在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
微信扫一扫 
支付宝扫一扫 