求助：如果利用vbs实现MSFlexGrid控件的赋值

2019年6月10日下午8:19 • SIMATIC WinCC

在ActiveX控件中添加了Microsoft FlexGrid Control,version6.0控件, 然后拖了一个到界面中，又拖了一个按钮，见图片1
wincc用的7.0,现在MSFlexGrid控件实现能实现历史数据做报表，现在最基本的点击按钮变量在控件中显示实现不了。请大侠帮忙。

http://www.ad.siemens.com.cn/service/answer/solution.aspx?Q_id=27738&cid=1032

http://www.ad.siemens.com.cn/club/bbs/post.aspx?b_id=5&a_id=312512&s_id=0&num=5#anch

参考了以上2处的程序，点击按钮后无任何反应。请教大侠帮忙

最佳答案

给你一个例子，可以参考：
在界面上添加一MSFlexGrid1控件,命名为MSFlexGrid1
dim MSFlexGrid1
set MSFlexGrid1=ScreenItems("MSFlexGrid1")
Dim str2 As String
str2 = "字段一|字段二"
MSFlexGrid1.AllowUserResizing = 1
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FormatString = str2
MSFlexGrid1.ColWidth(0) = 1600
MSFlexGrid1.ColWidth(1) = 2300
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = 2
Dim cnn As String
   cnn = "provider=WinCCOLEDBProvider.1;catalog=CC_test_09_07_14_14_54_22R;data source=计算机名\WinCC"
   Set cc1 = CreateObject("adodb.connection")
       cc1.ConnectionString = cnn
       cc1.CursorLocation = 3
       cc1.Open
   Dim rst As Object
   Set rst = CreateObject("adodb.recordset")
   Dim ssql As String
       ssql = "Tag:R,”archive_test\archive_test1”,”" & "2009-8-19 10:00:00.000”,”" & "2009-8-19 10:59:59.999”"
       rst.Open ssql, cc1
    If rst.RecordCount = 0 Then
       MsgBox "查无结果"
    Else
      rst.MoveFirst
      Do While Not rst.EOF
         MSFlexGrid1.AddItem (rst.Fields(1).Value & vbTab & rst.Fields(2).Value)
         rst.MoveNext
       Loop
       cc1.Close
   Set cc1 = Nothing
   Set rst = Nothing
   set MSFlexGrid1=nothing

提问者对于答案的评价：
谢谢

原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc255268.html

求助：如果利用vbs实现MSFlexGrid控件的赋值

相关推荐