高手请看有关datagrid

Question

在datagrid的属性框中设datasource为data1或别的

Answer 1

同样错误，
我的程序是这样的:
Option Explicit
Dim conn As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
Const ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=internet.mdb"Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = ConnString
conn.OpenEnd SubPrivate Sub d_s_b_Click()
rs2.Open "select * from xxx", conn, adOpenDynamic, adLockOptimistic, adCmdText
Set datagrid.DataSource = rs2
datagrid.ClearFields
datagrid.ReBind
  End Sub

Answer 2

datagrid.DataSource = rs2
这条语句出错了,不可以在语句这样写

Answer 3

rs2是什么东西？是记录集吗？datagrid要绑定的是数据控件，而不是记录集。
datagrid.datasource=adodc1
set adodc1.recordset=rs2

Answer 4

应该在属性框中设datasoure的数据来源!

Answer 5

并且是来源于data1或其它的数据控件

Answer 6

"rs2是什么东西？是记录集吗？datagrid要绑定的是数据控件，而不是记录集。
datagrid.datasource=adodc1
set adodc1.recordset=rs2 "
还是报同样的错误

Answer 7

应该在属性框中设datasoure的数据来源! 
设置为data1或是adodc1等数据控件!

Answer 8

visualcpu(天涯浪子)照你的话去做了，还是报错

Answer 9

建议删除
datagrid.ClearFields
datagrid.ReBind
如需重置datagrid，建议用datagrid.Refresh

Answer 10

ganzhiruogy(方竹)我也按你的方法去做了，报错。

Answer 11

应该在属性框中设datagrid1的datasoure的数据来源! 
设置为data1或是adodc1等数据控件! 
并且设置好data1或是adodc1等数据控件的数据来源
如:data1.recordsoure=rst1

Answer 12

我有段代码就是如此，根据用户选择适时刷新MSHFlexGrid

Answer 13

注意!data1或是adodc1等数据控件得到数据来源后应该用
data1.Refresh语句刷新一下

Answer 14

'--------------
'加上这一句
  rst.CursorLocation = adUseClient
'--------------
rst.Open "select * from XXX", cnn, adOpenDynamic, adLockOptimistic, adCmdTextset datagrid1.datasource = rst

Answer 15

Wesely(找工！)你得到分了！谢谢！！！

Answer 16

好象datagrid不支持记录集的动态绑定（？？？）
建议：1、换用MSHFlexGrid + 记录集
      2、使用datagrid + adodc1

Answer 17

我也遇到过这种情况，用DataGrid还真是不行！改用MFlexGrid或ListView效果不错！一个个单元的赋值。好麻烦！