如何在datagrid控件的列中加入复选按钮或下拉列表,我将column的button属性设置为true了,然后该怎么做?
解决方案 »
- 运行 A.exe 便会生成 B.exe ,请问要怎么做才能实现?
- 急....高分.~~~~~分栏打印!在线等待大虾们帮忙...
- 新发布进程执法官软件,各位试用一下。另外寻找发布网站。
- 升星散分!!
- 一个关于VBSCRIPT的问题,急事,请大侠指教
- 请问下了水晶报表9后,有三个文件,如何安装?(在线等)
- 100分 PICTRUE 使用中的问题
- 急!!!!!!!!!!自定义控件中如何捕获控件外的鼠标信息
- 求教,想写一个贴吧的发贴机,想找一个源码参考。
- vb中怎样截获全局的鼠标事件?
- ====紧急:有关MSFLexGrid显示图片的问题:如何使得里面的图片自动缩放====
- 怎么在没有安装vb的环境下,运行我编的vb程序呀?
'----------------------------------------------------------------------------
'
'Author:lihonggen0
'Date:2003-6-18
'功能:DataGrid1上附加COMBO和CheckBox
'在form上添加一个DataGrid1、一个COMBO和一个CheckBox控件放到屏幕上任何位置都可以
'----------------------------------------------------------------------------Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Select Case DataGrid1.Col
Case 1
Check1.Visible = False
Combo1.Visible = True
Combo1.Width = DataGrid1.Columns(DataGrid1.Col).Width + 50
Combo1.Left = DataGrid1.Left + DataGrid1.Columns(DataGrid1.Col).Left
Combo1.Top = DataGrid1.Top + DataGrid1.Row * (DataGrid1.RowHeight) + (DataGrid1.HeadLines) * 195
Combo1.SetFocus
If DataGrid1.Columns(DataGrid1.Col).Text <> "" Then
Combo1.Text = DataGrid1.Columns(DataGrid1.Col).Text
End If
Case 2
Check1.Visible = True
Check1.Width = DataGrid1.Columns(DataGrid1.Col).Width + 50
Check1.Left = DataGrid1.Left + DataGrid1.Columns(DataGrid1.Col).Left
Check1.Top = DataGrid1.Top + DataGrid1.Row * (DataGrid1.RowHeight) + (DataGrid1.HeadLines) * 195
Check1.SetFocus
Combo1.Visible = False
Case Else
Combo1.Visible = False
Check1.Visible = False
End SelectEnd SubPrivate Sub Form_Load()
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;" CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
End Sub