Question

vb datagrid 问题： 条件：窗体中有datagrid1,datagrid2两个数据表格，一个命令按钮

问题：如何编写程序才能把datagrid1中当前选中行的数据自动转移到datagrid2,谢谢各位大神了

Answer 1

你的数据库文件格式？是本地还是远程数据库？假设是本地的。
方法：使用ADODC控件，通过VB6的菜单： [工程]--[部件]，
勾选：Microsoft ADO Data Control 6.0 (SP6) (OLEDB)
勾选：Microsoft DataGrid Control 6.0 (SP6) (OLEDB)
假设你的数据库文件名：数据库.MDB,存放在与VB程序文件同一个目录。
数据库里有数据表：表1和表2，包含有相同的字段：
字段1、字段2、字段3（就简单点，3个字段吧），现在假定要把表1的内容添加到表2；
先创建你的工程文件夹,比如:数据库应用,然后把"数据库.MDB"复制进去.
一，把ADODC1连接到表1：
1，连接数据库文件：
方法1：设置ADODC1的ConnectionString 属性，在属性窗口点带有省略号的按钮----选[生成]
--选Microsoft Jet 4.0 OLE DB Privider -- [下一步]--单击省略号按钮,定位到你保存
"数据库.MDB"的位置,选中该数据库,单击[打开],连接成功了,可以测试一下.
回到窗体,你会看到ADODC1的ConnectionString 属性里的一大串内容.
方法2: 也可以用命令直接设置连接:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\ADODC控件实例\数据库.mdb;Persist Security Info=False"
这里引号里的一大串内容,你可以从刚在属性窗口里直接复制过来,然后做一些改动(关键).
把其中的Source=C:\Program Files\Microsoft Visual Studio\VB98\ADODC控件实例\数据库.mdb
改为:Source=" & App.Path & "\数据库.mdb,及如下:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
2. 连接数据表:
方法1：设置ADODC1的RecordSource 属性,在属性窗口点带有省略号的按钮;
在"命令类型"里,选:2 - adCmdTable,在"表或存储过程名称"里,选"表1",单击确定.
你会看到ADODC1的RecordSource 属性栏里是"表1"
方法2: 也可以用命令直接设置连接:
Adodc1.RecordSource = "表1"
好了,接下来对Adodc2进行同样的操作:(略),不过注意,连接到表2 !!!!!!!!
二, 将DataGrid1绑定到ADODC1:
选中窗体上的DataGrid1,设置其DataSource 属性属性,点右边的下拉按钮,选ADODC1
然后:右击DataGrid1,选"检索字段",[Y],完成.
好了,将DataGrid2绑定到ADODC2:(略)

三, 添加一个命令按钮,Command1,编写代码如下:
Private Sub Command1_Click()
Adodc2.Recordset.AddNew '添加1条空记录（在尾部）
'编辑（或替换）当前（刚添加的空）记录的第1个字段的内容
Adodc2.Recordset.Fields(0) = Adodc1.Recordset.Fields(0) 'Adodc2.Recordset.Fields("字段1") = Adodc1.Recordset.Fields("字段1")
'编辑（或替换）当前（刚添加的空）记录的第2个字段的内容
Adodc2.Recordset.Fields(1) = Adodc1.Recordset.Fields(1) 'Adodc2.Recordset.Fields("字段2") = Adodc1.Recordset.Fields("字段2")
'编辑（或替换）当前（刚添加的空）记录的第2个字段的内容
Adodc2.Recordset.Fields(2) = Adodc1.Recordset.Fields(2) 'Adodc2.Recordset.Fields("字段3") = Adodc1.Recordset.Fields("字段3")
Adodc2.Recordset.Update '编辑修改完必须执行Update方法
End Sub