代码如下:
Dim mydb As Database
Dim myrs As Recordset
Dim sql As String
Dim i As Integer
Private Sub Cmdok_ValueChanged(blnValue As Boolean)
End Sub
Private Sub Form_activate()
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\kfgl.mdb") '打开数据库
sql = "select 操作员 from qxsz"
Set myrs = mydb.OpenRecordset(sql)
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
master.AddItem (myrs.Fields(0))
myrs.MoveNext
Next i
If master.ListCount > 0 Then master.ListIndex = 0
myrs.Close
mydb.Close
master.SetFocus