急救! 請問DataGrid中是否可以加CheckBox ???

Question

請問各位﹐DataGrid 中能否加入CheckBox,如我想讓DataGrid 中的column0 顯示為CheckBox,其數據源為記錄集的一個Boolean字段﹐可以嗎﹖怎么實現呢﹖盼復﹗謝謝﹗

Answer 1

combo1.width=datagrid1.columns(datagrid1.col).width
combol1.left=datagrid1.left+datagrid1.columns(datagrid1.col+1).left
combo1.top=datagrid1.top+datagrid1.row*datagrid1.rowheight+225
datagrid1.text=combo1.text

Answer 2

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    Dim hh As Integer
    Dim Xh As Integer
    Dim Cpm As String
    Dim cSpdj1 As Double
    hh = 12
    
    If DataGrid1.Enabled = True Then
        If DataGrid1.Columns(0).Text = "品牌" And DataGrid1.Columns(0).Text = "工艺" And DataGrid1.Columns(0).Text = "规格" And DataGrid1.Columns(0).Text = "TOTAL:" Then
            DataGrid1.Columns(9).Locked = True
        Else
            DataGrid1.Columns(9).Locked = False
        End If
        Select Case DataGrid1.Col
            Case 0
                Check1.Visible = False
                Text5.Visible = False
                Combo2.Visible = True
                Combo4.Visible = False
                Combo5.Visible = False
                Combo2.Width = DataGrid1.Columns(DataGrid1.Col).Width + 50
                Combo2.Left = DataGrid1.Left + DataGrid1.Columns(DataGrid1.Col).Left
                Combo2.Top = DataGrid1.Top + DataGrid1.Row * (DataGrid1.RowHeight + hh) + (DataGrid1.HeadLines - 1) * 195
                Combo2.SetFocus
                If DataGrid1.Columns(0).Text <> "" Then
                    Combo2.Text = DataGrid1.Columns(0).Text
                End If
            Case 1
            Case 2
                Check1.Visible = False
           Case 6                Check1.Visible = True
                Check1.Width = DataGrid1.Columns(DataGrid1.Col).Width + 30
                Check1.Left = DataGrid1.Left + DataGrid1.Columns(DataGrid1.Col).Left
                Check1.Top = DataGrid1.Top + DataGrid1.Row * (DataGrid1.RowHeight + hh) + (DataGrid1.HeadLines - 1) * 195
                Check1.SetFocus
                If DataGrid1.Columns(9).Text <> "" Then
                    Check1.Value = 1
                Else
                    Check1.Value = 0
                End If
            Case Else
                Check1.Visible = False
                Text5.Visible = False
                Combo2.Visible = False
                Combo4.Visible = False
                Combo5.Visible = False
        End Select
End Sub

Answer 3

可是我想要DataGrid的某一欄對應的所有列都根據記錄集的值顯示相應的CheckBox就不行了吧﹖

Answer 4

右击,属性->格式->选定COL->选布尔型->复选框 !OK!
代码自己找找吧!不要我说了吧!

Answer 5

to flxa()这个办法我试了一下
DataGrid中设置 DataFormat属性是没有用的，不会显示checkbox的拉