【正文】 ) While = False Set Myrs2 = (select * from inlib where 進庫單號碼=39。 and goodsid=材料編碼) While = False = + 1 = 1 = 0 = (進庫單號碼) = 1 = (發(fā)票號碼) = 2 = (進庫日期) = 3 If IsNull((經(jīng)辦人)) Then = Else = (經(jīng)辦人) End If = 4 If IsNull((保管人)) Then = Else = (保管人) End If = 5 = (材料編碼) = 6 = (goodsname) = 7 = (type) = 8 = (unit) = 9 = (數(shù)量) = 10 = Format((單價), ) = 11 = Format((金額), ) = 12 If IsNull((備注)) Then = Else = (備注) End If Wend Wend Wend Else MsgBox 不存在這個材料編碼, vbOKOnly + vbExclamation, 信息提示 Text3 = Exit Sub End If End If End If If = True Then If = Then MsgBox 請正確填寫材料名稱！, vbOKOnly + vbExclamation, 信息提示 Exit Sub Else Set Myrs1 = (select * from goods where goodsname=39。) While = False Set Myrs2 = (select * from inlibdetail,goods where 材料編碼=39。) While = False = + 1 = 1 = 0 = (進庫單號碼) = 1 = (發(fā)票號碼) = 2 = (進庫日期) = 3 If IsNull((經(jīng)辦人)) Then = Else = (經(jīng)辦人) End If = 4 If IsNull((保管人)) Then = Else = (保管人) End If = 5 = (材料編碼) = 6 = (goodsname) = 7 = (type) = 8 = (unit) = 9 = (數(shù)量) = 10 = Format((單價), ) = 11 = Format((金額), ) = 12 If IsNull((備注)) Then = Else = (備注) End If Wend Else MsgBox 不存在這個發(fā)票號碼, vbOKOnly + vbExclamation, 信息提示 Text2 = Exit Sub End If End If End If If = True Then If = Then MsgBox 請正確填寫材料編碼！, vbOKOnly + vbExclamation, 信息提示 Exit Sub Else Set Myrs1 = (select DISTINCT 進庫單號碼 from inlibdetail where 材料編碼=39。) TableInit If = 1 Then Set Myrs2 = (select * from inlibdetail where 進庫單號碼=39。) TableInit If = 1 Then Set Myrs2 = (select * from inlibdetail,goods where 進庫單號碼=39。若為修理，可填為0！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsNumeric() Then = Format(, ) Else MsgBox 單價字段值為數(shù)字,請正確填寫！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If End If If = Then MsgBox 金額字段不能為空，請?zhí)顚懀? vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsNumeric() Then = Format(, ) Else MsgBox 金額字段值為數(shù)字,請正確填寫！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If = + 1 = 1 = 0 = = 1 = = 2 = = 3 = = 4 If = Then = Else = End If = 5 If = Then = Else = End If = 6 = = 7 If = Then = Else = End If = = = = = = = = = True Unload MeEnd SubPrivate Sub Command2_Click() = = = = = = = = = FalseEnd SubPrivate Sub Command3_Click() Unload Me (2).Text = 添加進庫單End SubPrivate Sub Form_Load(