关于MSHFlexGrid的很奇怪的问题

Question

.CursorLocation = adUseClient

Answer 1

1、    
Dim Cmd AS NEW ADODB.Command
Dim Rs AS NEW ADODB.Recordset
Cmd.ActiveConnection = g_StrCon    '自己定义
Cmd.CommandType = adCmdText
Cmd.CommandText = strSQL           '自己定义
Set Rs = Cmd.Execute
'
If NOT Rs.EOF Then
   Set MSH1.DataSource = Cmd.Execute
   LblCount = "符合条件的记录共有：" & MSH1.Rows - 1
Else
   MSH1.Clear
   MSH1.Rows = 2
   LblCount = ""
End If2、
Dim Rs AS NEW ADODB.Recordset
Rs.Open strSQL, g_StrCon, adOpenStatic, adLockOptimistic
If Not Rs.EOF THEN
   Set MSH1.DataSource = Rs
EndIF
Rs.Close

Answer 2

第一种方法好处在于可以增加查询的延时时间，Cmd.CommandTimeout 默认60秒可以将此值设大。

Answer 3

看看你的rows设置为多少，可能是你在代码后面有.rows=1吧！

Answer 4

我没有设过那玩艺我只用了grd
.recordset

Answer 5

设成动态游标就可以了
rst.Open csql,con,adOpenKeyset,adLockOptimistic