CASE无法实现循环?。。。

已锁定

Tech.Wing

  • 帖子

    1327
  • 精华

    3
  • 被关注

    36

论坛等级:侠圣

注册时间:2008-05-04

普通 普通 如何晋级?

CASE无法实现循环?。。。

782

1

2012-07-19 21:22:21

Dim a
Set a= HMIRuntime.Tags("up_1")
Dim b
Dim c
Select Case a

Case 1
b=1
Case 2
b=2
Case Else
b=0
End Select
For c = 0 To b

objRecordset.movenext
Next
lngValue = objRecordset.Fields(0).Value
HMIRuntime.Tags("data_1").Write lngValue
CASE无法实现循环?。。。 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32642条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
X 图片
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。