关于DATAGRID连接数据库的问题

Question

我有一个COMBO控件和一个DATAGRID控件   If Combo.Text <> "所有种类" Then
      sql = "select * from v_SPJJ where 种类='" & Combo.Text & "'"
   Else
      sql = "select * from v_SPJJ"
   End If   rs.Open sql, "DSN=Bill"
   Set DataGrid.DataSource = rs
   DataGSP.Refresh先运行时没有问题,我不知道改过什么再运行时
提示:'实时错误7004:行集合不能做为标签'MSDN里没有.
我换了新的DATAGRID控件也换过记录集提示信息也是一样.我不知道什么回事,高分相送,请高手指点.

Answer 1

rs.Open sql, "DSN=Bill"
   Set DataGrid.DataSource = rs  '<-- 这一句出错
   DataGrid.Refresh'实时错误7004:行集合不能做为标签'

Answer 2

   If Combo.Text <> "所有种类" Then
      sql = "select * from v_SPJJ where 种类='" & Combo.Text & "'"
   Else
      sql = "select * from v_SPJJ"
   End If   rs.cursorlocation=aduseclient<-----------加上这句试试？
   rs.Open sql, "DSN=Bill"
   Set DataGrid.DataSource = rs
   DataGSP.Refresh

Answer 3

谢谢
请问rs.cursorlocation=aduseclient是什么意思？顺便问一句：关于DATAGRID控件，什么属性能让每一列的宽度与显示的字段长度一样（自动调每一列的宽度）

Answer 4

谢谢
请问rs.cursorlocation=aduseclient是什么意思？顺便问一句：关于DATAGRID控件，什么属性能让每一列的宽度与显示的字段长度一样（自动调每一列的宽度）