Sub Record_View
Dim strConnectionString
Dim objConnection
Dim objCommand
Dim strSQL
Dim Rs
Dim MSHFlexGrid

strConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SHUJUJILU;Data Source=COMPUTER3\WINCC"
strSQL = "select * from WeightValue"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open

Set objCommand = CreateObject("ADODB.Command")
With objCommand
objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
End With

Set Rs=CreateObject("ADODB.Recordset")
Rs.Open objCommand, , 1, 3


Set MSHFlexGrid=HMIRuntime.Screens("MainPicture").ScreenItems("MSHFlexGrid")
Set MSHFlexGrid.DataSource = Rs
MSHFlexGrid.Refresh

Rs.Close
objConnection.Close
Set objCommand = Nothing
Set Rs=Nothing
Set objConnection = Nothing
Set MSHFlexGrid=Nothing
End Sub
我的这段代码用变量触发或用定时器触发时MSHFlexGrid控件中都不能显示数据库中的数据，但用画面上的按钮后通过单击事件却能显示数据库中的数据在MSHFlexGrid控件中，请高手给小弟看看，多谢了！