急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!
怎样把下拉列表框中的数据邦定到DataGir数据中的某一格。
举例:下拉列表框中的数据是:12,怎样邦定到DataGir控键的第一行第一格急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!
怎样把下拉列表框中的数据邦定到DataGir数据中的某一格。
举例:下拉列表框中的数据是:12,怎样邦定到DataGir控键的第一行第一格急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!急救!!
'部件添加 Microsoft DataGrid Control 6.0(OLEDB)
'添加 List1
'下面代码,数据库名与表名自己改,并把它与程序放在同一路径Public conn As New ADODB.Connection '定义数据连接字符串
Public rs As New ADODB.Recordset '定义记录集
Dim i&, db$, Appdisk$Private Sub Form_Load()
Appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Appdisk & "bwscale.mdb"
conn.CursorLocation = adUseClient
conn.Open db '打开数据库连接
rs.Open "testtable", conn, adOpenKeyset, adLockPessimistic '打开记录集
If rs.RecordCount > 0 Then rs.MoveFirst
Set DataGrid1.DataSource = rs
For i = 1 To 5
List1.AddItem String(6, CStr(i))
Next i
End SubPrivate Sub List1_Click()
rs.MoveFirst
rs.Fields(0) = List1.Text
rs.Update '更新保存
End Sub