从书上抄了一个超市管理系统.


其中进货管理代码出现了问题.

Private Sub Timer2_Timer()
   If DBCombo3.Text = "" Then
     MsgBox "没有选择供应商!"
     Timer2.Enabled = False
     Exit Sub
     End If
     Data3.Recordset.FindFirst "名称 = '" & DBCombo3.Text & "'"
     If Data3.Recordset.NoMatch = True Then
       MsgBox "Err供应商", 0, "提示"
       Timer2.Enabled = False
       Exit Sub
       End If
       Dim mystr As String
       mystr = CStr(Data3.Recordset("名称")) & "   地址: " & CStr(Data3.Recordset("地址")) & "   联系人:" & CStr(Data3.Recordset("联系人")) & "   电话: " & CStr(Data3.Recordset("电话")) & "  备注: " & CStr(Data3.Recordset("备注"))
       Timer2.Enabled = False
End Sub

就是"供应商"不能选择.老是默认第一个."经手人"也是这样的问题.我怀疑是
Data3.Recordset.FindFirst "名称 = '" & DBCombo3.Text & "'"
这句出了问题.
敬请各位老师指点.

单独对DBCombo3进行测试，看结果。我感觉两种可能：一是没对DBCombo3赋值，二是没加载DBCombo3

dbcombo3显示内容，并且随时间改变。还影响数据库。可能跟timer控件有关。

找到原因了.是因为dbcombo控件多选了一个"datafield"选项内容。它只要选择listfield选项即可。谢谢2楼。