~~~~~~~~~~~~~~Set DataGrid1.DataSource = rst 怎么DATAGRID显示不出数据，但Set MSHFlexGrid1.DataSource = rst，MSHFlexGrid1就显示得

Question

 Set MSHFlexGrid1.DataSource = rst
Set DataGrid1.DataSource = rst

Answer 1

rst.CursorLocation = adUseClient

Answer 2

用了rst.CursorLocation = adUseClient
提示：对象打开时，不允许操作！！！！！！！！！！！！！！！！！！！！！！！！！！！！

Answer 3

那就在rst或者ado连接open前设置这个属性

Answer 4

看
Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.RecordsetPrivate Sub Form_Load()
Dim apppath As String
Dim DbFileName As String
Dim ConnectString As String
Dim i As Integer
Set conn = New ADODB.Connection
If Right(App.Path, 1) = "\" Then
   apppath = App.Path
Else
   apppath = App.Path & "\"
End If
DbFileName = apppath & "article.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbFileName & ";Persist Security Info=False;"
conn.Open ConnectString
conn.CursorLocation = adUseClientSet rs = New ADODB.Recordset
rs.Open "select id,mc from mz", conn, adOpenDynamic, adLockPessimistic
If rs.EOF Then
Exit Sub
End If
Set DataGrid1.DataSource = rsEnd Sub

Answer 5

请问，我是第一次登录这个论坛，我现在正在做我的毕业设计，请问如何使用coolmenu这个件，我加完代码后，在运行程序时，弹出coolmenu中的某个下拉菜单中的功能选项时，我还没有来得及选哪个菜单选项，它就自动出来？谢谢各位