combobox 控加问题 请高手回答

Question

combobox 中我添加一些数据
用该数据带入ddm语言中 用来建立数据集 用来显示相应的记录 在点开combobox中 慢速移动每条记录没有问题..如果一旦移动加快(一直按住)回出现记录集关闭无法关闭状态
Private Sub ordercbx_Click()
Dim rsMain As New ADODB.Recordset
Dim sql As String
Dim i As Integer
rcvcbx.Clear
sql = "select * from VW_M_OrderEdit where purchase_order_no='" & ordercbx & "' "
Call CreateRS(rsMain, sql)
If rsMain.RecordCount = 0 Then
MsgBox "没有符合条件的记录", vbOKOnly, "mis提示"
Exit Sub
End If
Set fp.DataSource = rsMainfp.MaxRows = rsMain.RecordCount
rsMain.Close
sql = "select distinct receiving_report_no from VW_M_OrderEdit where purchase_order_no='" & ordercbx & "'"
Call CreateRS(rsrcv, sql)
For i = 0 To rsrcv.RecordCount - 1
rcvcbx.AddItem rsrcv.Fields(0)
rsrcv.MoveNext
Next i
rsrcv.close
End Sub

Answer 1

Dim rsMain As New ADODB.Recordset
Dim sql As String
Dim i As Integer
rcvcbx.Clear
sql = "select * from VW_M_OrderEdit where purchase_order_no='" & ordercbx & "' "
Call CreateRS(rsMain, sql)
If rsMain.RecordCount = 0 Then
MsgBox "没有符合条件的记录", vbOKOnly, "mis提示"
Exit Sub
End If
Set fp.DataSource = rsMainfp.MaxRows = rsMain.RecordCount
rsMain.Close
sql = "select distinct receiving_report_no from VW_M_OrderEdit where purchase_order_no='" & ordercbx & "'"
Call CreateRS(rsrcv, sql)
For i = 0 To rsrcv.RecordCount - 1
rcvcbx.AddItem rsrcv.Fields(0)
rsrcv.MoveNext
Next i
rsrcv.close
你怎么把这些代码写在CLICK事件里面呢???    这样你就频繁的做上面的代码,连接数据库,
    系统也许接受不了,应该一次连接,加载数据,以后多次使用

Answer 2

和和..楼上说的是 我改用Datecombo把