实时错误'7004':
行集合不能作为标签Finds = "SELECT uStudBaseInfo.学号,uStudBaseInfo.姓名,uSelectClass.学期 FROM uStudBaseInfo,uSelectClass,uScoreInfo where uStudBaseInfo.学号=uSelectClass.学号 and uStudBaseInfo.学号=uScoreInfo.学号 and uScoreInfo.成绩 is null and uScoreInfo.缺考原因 is null and uSelectClass.课程代号=" & txtClassID.Text
RscouRse.Close
RscouRse.Open Finds
Set DataGrid2.DataSource = RscouRse如何解决啊,急急急~~~~~~
行集合不能作为标签Finds = "SELECT uStudBaseInfo.学号,uStudBaseInfo.姓名,uSelectClass.学期 FROM uStudBaseInfo,uSelectClass,uScoreInfo where uStudBaseInfo.学号=uSelectClass.学号 and uStudBaseInfo.学号=uScoreInfo.学号 and uScoreInfo.成绩 is null and uScoreInfo.缺考原因 is null and uSelectClass.课程代号=" & txtClassID.Text
RscouRse.Close
RscouRse.Open Finds
Set DataGrid2.DataSource = RscouRse如何解决啊,急急急~~~~~~
RscouRse.CursorLocation = adUseClient
RscouRse.Open Finds
Set DataGrid2.DataSource = RscouRse
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = Rs
应该就可以了,因为DataGrid控件不支持动态游标(Dynamic)