比如这个情况,我就需要选中第一行的时候,text1.text=1001
我已经编写的代码:
Option Explicit
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs_findsp As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.ConnectionString = "driver={SQL Server};server=(local);uid=;pwd=;database=market"
cn.Open
rs_findsp.Open ("select 商品号,商品名称,单价,商品类型,厂商,库存量 from 商品表 where 商品类型= '" & Combo1.Text & "' "), cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs_findsp
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_findsp
End Sub
Private Sub Form_Load()
Combo1.AddItem "食品"
Combo1.AddItem "饮料"
Combo1.AddItem "日用品"
Combo1.AddItem "乳制品"
Combo1.AddItem "香烟"
End Sub
实在是不会写,毕竟初学者。求教!万分感谢!