如题,不知道有没有实现方法。或者有什么其他控件可以实现这个功能?
解决方案 »
- 血淋淋的VB,那个帖子有什么问题吗?很和谐的啊,这都锁了?
- VB6只用自带控件,能否做出2000/xp下免安装的软件?
- 求助!在VB里调用水晶报表9.2
- 为什么不能更新RECORDSET?
- ★★散分★★ 给大家一篇关于Vb和Vc++联合编程时所需要注意的问题 希望▲▲莫依姐姐▲▲进来给点鼓励
- 虚心请教:有关用ADODC打开含有密码的Access数据库问题
- 一个很奇怪的问题~~~~~~~
- VB操作EXCEL 2000,方法可行必给分
- 一个vb报表打印的简单问题,谢谢
- 最近做了一个OICQ监视程序,记录保存在注册表中。
- 怎么学习?
- 关于VB6.0和ACCESS2000的问题,高分求教!!!!!!!!!!!!!!
'
'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