我想用datagrid控件来插入新物资,而其中某一项想实现下拉框的选择,改如何实现?下拉框的选项该如何添置? 我想用datagrid控件来插入新物资,而其中某一项想实现下拉框的选择,该如何实现?下拉框的选项该如何添置?请各位帮忙,多谢了! 解决方案 » 免费领取超大流量手机卡,每月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 其实还有一个 rowTop(row) 的方法,可以得出当前row 的top值 vb常碰见的问题 active report 打印时总是带出一张空白纸,怎么解决?急,谢谢 vb程序显示磁盘上记事本界面? 两个EXCEL的问题。(求助) 文件拷贝与合并疑问? 请问怎么在vb中调用纯c接口的api并实现多线程 帮帮忙--看看这个错在哪了。 问高手,我让一个窗口始终在最前,是调什么API,还是用什么方法,急切等待! 问题:Datagrid 根据显示记录数 怎么做这种工具条!!!!! 如何把Check4(i).Caption加入到Access的数据表中的某个列中 看看那错了这只是一个发邮件的程序
'
'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