C1TrueDBGrid 学习日记

 

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