Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y) Dim scnn,cnn,rst,ssql,mshgridx,x1,y1,begintime,endtime
Set mshgridx=ScreenItems("MSHFlexGridx")
Set cnn=CreateObject("ADODB.Connection")
Set rst=CreateObject("ADODB.Recordset")
scnn="Provider=WinCCOLEDBProvider.1;"
'scnN=scnn & "Integrated Security=SSPI;"
'scnN=scnn & "Persist Security Info=False;"
scnn=scnn &"Catalog=CC_cc_10_07_03_18_51_38R;"
scnn=scnn &"Data Source=.\WinCC "
cnn.ConnectionString=scnn
cnn.open
begintime="2010-07-15 23:12:00"
endtime="2010-07-15 23:15:00"
ssql="TAG:R,1,'2010-07-17 22:15:00.000','2010-07-17 22:20:00.000'"
Set rst=cnn.Execute(ssql)
mshgridx.Cols=5
x1=1
'rst.moyefirst
Do While Not rst.EOF
mshgrid.additems rst.fields(1).value
rst.movenext
Loop
Set rst=Nothing
cnn.close
Set cnn=Nothing
End Sub
错误显示为：对象不支持方法或属性‘rst.movefirst’
去掉rst.movefirst后，MSHFlexGrid不能填充数据。不知为什么
请各位大侠予以指导。