首頁>Club>

VB中如何獲取Datagrid選中的資料，並複製出資料到剪貼簿？

9
回覆列表
  • 1 # 使用者2458114238191884

    先說明datagrid的一些屬性，說清楚了，自然解決方法就明瞭了。

    說明：

    Bookmark：設定或返回當前的行標籤號

    DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark)

    返回當前行中欄位為‘ProductID’的值。

    在 DataGrid 被連線到一個數據庫後，可能想要監視使用者單擊了哪一個單元。可以使用 RowColChange 事件——而不是 Click 事件。

    如；

    Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

    Debug.Print _DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)

    End Sub

    利用一下方法可以控制datagrid每列的寬度；

    Dim c As Column

    Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)

    With c

    .Visible = True

    .Width = 1000

    .Caption = "我的新列"

    .DataField = Adodc1.Recordset.Fields("ProductName").Name

    .Alignment = dbgRight

    End With

    Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

    DataGrid1.Columns.Remove ColIndex

    End Sub

  • 2 # 使用者2458114238191884

    先說明datagrid的一些屬性，說清楚了，自然解決方法就明瞭了。

    說明：

    Bookmark：設定或返回當前的行標籤號

    DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark)

    返回當前行中欄位為‘ProductID’的值。

    在 DataGrid 被連線到一個數據庫後，可能想要監視使用者單擊了哪一個單元。可以使用 RowColChange 事件——而不是 Click 事件。

    如；

    Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

    Debug.Print _DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)

    End Sub

    利用一下方法可以控制datagrid每列的寬度；

    Dim c As Column

    Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)

    With c

    .Visible = True

    .Width = 1000

    .Caption = "我的新列"

    .DataField = Adodc1.Recordset.Fields("ProductName").Name

    .Alignment = dbgRight

    End With

    Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

    DataGrid1.Columns.Remove ColIndex

    End Sub

相關內容

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 為什麼有些男生介意女生同居過，卻可以接受女生談戀愛開過房，有區別嗎？