vb中dataGrid中添加check控件

Question

请问在vb中dataGrid中怎么添加check控件

Answer 1

这个问题我也曾经很头痛
告诉你吧
步骤:
1.先建好数据库(sql server)里面设一个字段(如"停用"字段类型"bit")然后在建好的数据库里面添加数据信息
2.右击datagrid控件--->属性--->格式--->在列表框里面选择"复选框"
3.进行数据库连接;然后帮定数据控件datagrid
你试一下.

Answer 2

wangbanzhang(王主席)的方法我曾经用Access试过,不行,难道sqlserver可以吗?这个问题我至今还没找到方法

Answer 3

用VSFlexGrid添加check显示非常方便

Answer 4

Option Explicit
Dim Cn As New ADODB.ConnectionPrivate Sub Form_Load()
   Cn.ConnectionString = "Driver=SQL Server;Server=127.0.0.1;uid=sa;pwd=123456;database=master"
   Cn.Open
   
   Dim Rst As New ADODB.Recordset
   Dim Sql As String
   
   Sql = "select pa_no,pa_name,pa_indat,pa_sex,pa_marr from iepa00h where pa_oudat='' and wa_no='VSAZY'"
   Rst.CursorLocation = adUseClient
   Rst.Open Sql, Cn, adOpenStatic, adLockPessimistic
   
   Set DataGrid1.DataSource = Rst   Dim i As Integer
   For i = 0 To Rst.Fields.Count - 1
       DataGrid1.Columns.Item(i).Button = True
   Next
End Sub
Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
    If ColIndex = 0 Then
       Check1.Visible = True
       Check1.Height = DataGrid1.RowHeight + 16
       Check1.Left = DataGrid1.Columns.Item(ColIndex).Left + DataGrid1.Left
       Check1.Width = DataGrid1.Columns.Item(ColIndex).Width
       Check1.Top = DataGrid1.Columns.Item(ColIndex).Top + DataGrid1.Top + (DataGrid1.RowHeight + 16) * DataGrid1.Row
    Else
       Combo1.Visible = True
       'Combo1.Height = DataGrid1.RowHeight + 16
       Combo1.Left = DataGrid1.Columns.Item(ColIndex).Left + DataGrid1.Left
       Combo1.Width = DataGrid1.Columns.Item(ColIndex).Width
       Combo1.Top = DataGrid1.Columns.Item(ColIndex).Top + DataGrid1.Top + (DataGrid1.RowHeight + 16) * DataGrid1.Row
    End If
End Sub自己再调试一下位置