请问,DATAGIRD能否在编辑时,在表格里使用下拉框控件,如何使用??谢谢 请问,DATAGIRD能否在编辑时,在表格里使用下拉框控件,如何使用??谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '----------------------------------------------------------------------------''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 = RsEnd Sub 关于使用AscW读取字符编码的问题 DataGrit如何更新 进度条 从文件中读取,在pictureBox中使用Pset绘制,如何提高速度 100 分送大虾:今天在看一本《vb数据库系统开发实例导航》时碰到的问题 欢迎跟帖讨论系统分析及程序设计 关机程序代码运行不了! 关于form的有关问题请大家告诉我一下谢谢 GetBitmapBits和SetBitmapBits函数的问题?(了解GDI的朋友请进) 读取txt 文件中数据与excel中的数据比较,并找出出现频率最高的一组 小小问题,分数高:如何在Richtext中显示图片和Text。在线等待中。。。 有没有比较好的分析控件那?
'
'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