大家来瞧下呀!

[CTSJT210]

Private Sub Command2_Click()
CTS_sql = "SELECT * FROM cts_sell"
Set DataGrid1.DataSource = cts_select(CTS_sql) 实事错误:'7004'行集合不能作为标签
这又错在什么地方呀
DataGrid1.Refresh
end sub
Public Function cts_select(cts_string As String) As ADODB.Recordset
On Error GoTo cts_error
Set CTS_cn = New ADODB.Connection
Set CTS_rst = New ADODB.Recordset
CTS_cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CTS_vendition;Data Source=cts-t"
CTS_cn.Open
Set CTS_rst.ActiveConnection = CTS_cn
CTS_rst.LockType = adLockOptimistic
CTS_rst.CursorType = adOpenKeyset
CTS_rst.Open Trim(cts_string)
Set cts_select = CTS_rst
Set CTS_rst = Nothing
Set CTS_cn = Nothing
Exit Function
cts_error:
If cts_error(Err.Description) Then
Resume
Else
End
End If
End Function

[hewei2003]

改一下：
CTS_cn.CursorLocation = adUseClient

我测试OK

Email:[e-mail]

[chenyu5188]

CTS_rst.CursorLocation= adUseClient'使用客户端游标可以解决

[蔡健常熟]

你还是用MSHFlexGrid吧。它和DataGrid比还是有优点的。
DataGrid的DataSource好象不能是Adodb类的

[CTSJT210]

阿龙;我是用的MSHFLEXGRID呀!但还是出错上面两位能不能说详细点呀!

[hewei2003]

在0分贴那边已经帮你改了，看了没

[artoksxb]

up