想在WINCC中使用mshflexgrid控件,连接数据库也成功!就是数据无法显示到该控件中,哪位给个使用该控件的例子?
以下是数据连接部分,前后省掉了,只有使用控件部分的....
.....
Dim datagrid
Set datagrid=ScreenItems("控件2")
'datagrid.clear
datagrid.AllowUserResizing = 1
datagrid.Redraw = False
datagrid.Rows = 1
datagrid.Cols = 3
datagrid.ColWidth(1) =100
datagrid.ColWidth(2) =100
datagrid.ColWidth(3) =100
'datagrid.ColWidth(4) =100
Set datagrid.DataSource=oRs
MsgBox("Field0=" & oRs.Fields(0).Value)
MsgBox("Field1=" & oRs.Fields(1).Value)
MsgBox("Filed2=" & oRs.Fields(2).Value)
MsgBox("Field3=" & oRs.Fields(3).Value)
datagrid.TextMatrix(0, 0)="日期"
datagrid.TextMatrix(0, 1)="时间"
.......
最佳答案
Dim str1
Dim str2
Dim MSFlexGrid1
Set MSFlexGrid1=ScreenItems("history")
str1 = "时间|报警信息|报警点"
MSFlexGrid1.AllowUserResizing = 1
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = 3
'MSFlexGrid1.FixedRows = 1
'MSFlexGrid1.FixedCols = 1
MSFlexGrid1.FormatString = str1
MSFlexGrid1.ColWidth(0) = 2000
MSFlexGrid1.ColWidth(1) = 4000
MSFlexGrid1.ColWidth(2) = 3000
rst.movefirst
i=1
Do While Not rst.EOF
MSFlexGrid1.AddItem ( i & vbTab & Trim(rst.fields("datetime").value) & vbTab & Trim(rst.fields("text1").value) & vbTab & Trim(rst.fields("text2").value))
rst.MoveNext
i=i+1
Loop
这是一个报警查询的的例子,中间省了数据库操作的部分,MSFlexGrid1.的操作基本都在,你可以参考!
提问者对于答案的评价：
OK
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc267170.html
微信扫一扫 
支付宝扫一扫 