|
#2
chen35232016-12-31 16:32
|
只有本站会员才能查看附件，请 登录
其中进货管理代码出现了问题.
程序代码：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
就是"供应商"不能选择.老是默认第一个."经手人"也是这样的问题.我怀疑是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 & "'"
这句出了问题.
敬请各位老师指点.