1.复制选中表格的内容
If Me.C1TrueDBGrid1.SelectedRows.Count > 0 Then
For Each row In Me.C1TrueDBGrid1.SelectedRows
'copy everything here
For Each col In Me.C1TrueDBGrid1.SelectedCols
strTemp = strTemp & col.CellText(row) & vbTab
Next
strTemp = strTemp & vbCrLf
Next
System.Windows.Forms.Clipboard.SetDataObject(strTemp, False)
End If
2.遍历选中的行
If Me.TabBaseC1TrueDBGrid.SelectedRows.Count > 0 Then
For i As Integer = 0 To Me.TabBaseC1TrueDBGrid.SelectedRows.Count - 1
TabBaseC1TrueDBGrid.Bookmark = TabBaseC1TrueDBGrid.SelectedRows(i)
myMsg(Me.TabBaseC1TrueDBGrid.Columns("Name").Text)
Next
Else
myMsg("没有选择多行!")
End If