请问如何将datagrid1中选的若干条记录（不一定是相邻的）追加到其一个表table2中??

[badboy168]

问题如题,不如用selbookmarks集合行不行,该如何操作,谢谢

[daisy8675]

Option Explicit

Public Rs As New ADODB.Recordset
Public adoRs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Dim i As Integer
Dim j As Integer

Public 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 Sub

Private 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 Sub

Public 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
'

[of123]

可以呀，你在 DataGrid 绑定的表中添加一个 Boolean 型字段 Selected。每选中一条记录将其设置为 True：

"Insert Into table2 Select field1, field2, .... From tabel1 Where Selected"
"Update tabel1 Set Selected = False"

[sgh321]

msgrid 选择若干记录的方法：
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cellstart = MSHFlexGrid1.Row
End Sub

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cellstop = MSHFlexGrid1.RowSel
Call sel_boyong
End Sub
Sub sel_boyong()
Dim i, j

For j = cellstart To cellstop
MSHFlexGrid1.Row = j
If MSHFlexGrid1.CellBackColor = RGB(255, 200, 255) Then
For i = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellBackColor = RGB(255, 255, 255)
Next
Else
For i = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellBackColor = RGB(255, 200, 255)
Next
End If
Next

End Sub