怎样在Datagrid里移动一条记录到别个datagrid里

Question

有二个datagrid 和一个按钮在同一个画面里,
怎样选择第一个datagrid 里的一条记录点击按钮后,到别个DATAGRID里？
二个datagrid 是同一张表里的同一个字段

Answer 1

Option ExplicitPublic Rs As New ADODB.Recordset
Public adoRs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Dim i As Integer
Dim j As IntegerPublic Sub Make_Connection()
  Dim strConn As String
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\TEST!\People.mdb;Persist Security Info=False"
  
  Conn.CursorLocation = adUseClient
  Conn.Open strConn
  
End SubPrivate Sub DataGrid1_DblClick()  On Error Resume Next
  
  adoRs.AddNew
  
  adoRs(0) = Me.DataGrid1.Columns(0).Text
  adoRs(1) = Me.DataGrid1.Columns(1).Text
  adoRs(2) = Me.DataGrid1.Columns(2).Text
  
  adoRs.Update
  
 
End Sub
Private Sub Form_Load()
  Call Make_Connection
  
  If Rs.State <> adStateClosed Then Rs.Close
  Rs.Open "Select * from Man", Conn, adOpenStatic, adLockOptimistic
  
  Set Me.DataGrid1.DataSource = Rs
  
  Call Make_Connection2
  
End SubPublic Sub Make_Connection2()
 
 For i = 0 To 2
     adoRs.Fields.Append "n * " & i + 1, adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
 Next i
 
 adoRs.Open Set Me.DataGrid2.DataSource = adoRs
 
End Sub
'

Answer 2

对datagrid所有操作只要记住一点就是对recordset的操作就行了上面的代码或许不是最简单的，只是参考了一下野性以前的代码做了个小测试测试可以通过

Answer 3

还能问下，在记录集里怎样移动记录
不是简单的移动
如：
01  aa
02  bb
03  cc
拖动第三记录放在01与02之间
在里表现为：
01  aa
02  cc
03  bb
01，02，03为表里的序号字段