请教一个问题,也是关于DATAGRiD的

sxw1980

我的程式中需要将第一个DATAGRiD查询所得的数据加入到第二个DATAGRiD中,我该如何书写程式代码?

chengyu876

set datagrid1.datasoucre=adodc1.recordset
set datagrid2.datasouce=datagrid1.datasource
不知你是不是这个意思

sxw1980

不是啊

我是希望把第一个已经建立数据连接的DATAGRID中的数据加入第二个没有建立数据连接的DATAGRID之中，我是不是该为第二个没有建立数据连接的DATAGRID建立一个ADODB.recordset呢？

thetian

两个DATAGRiD都赋同样的数据源就可以了啊。不想的话，把第一个DATAGRiD数据遍历复制到第二个DATAGRiD里面。：）

sxw1980

我希望能够将第一个已经建立数据连接的DATAGRID中的数据有选择的加入第二个DATAGRID

我没有讲清楚......

方天涯

最后结果要来看的话~直接改善查询语句就OK了
要是要储存，可以把DATAGRID1的结果添加到2的数据表里
列不相同就用别的表来存,或者加列

chongzicool

你试试吧，好用的 ，动态改变datagrid中的数据
记得要引用ado  
你只需要在工程/引用 miscrosoft Activex data objects 2.x library 就可以了
Dim Db As Connection
Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
   

   strsql="select 字段 from 表 where 你的条件"
   Set Db = New Connection
   Db.CursorLocation = adUseClient
   '下面的连接数据字符串你要修改一下
   Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
   Set adoPrimaryRS = New Recordset
   adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = adoPrimaryRS
end sub

sxw1980

多谢了