【正文】 sgBox 數(shù)量字段不能為空，請(qǐng)?zhí)顚?。若為修理，可填?！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Not IsNumeric() Then MsgBox 數(shù)量字段值為數(shù)字,請(qǐng)正確填寫！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If If = Then MsgBox 單價(jià)字段不能為空，請(qǐng)?zhí)顚?。若為修理，可填?！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsNumeric() Then = Format(, ) Else MsgBox 單價(jià)字段值為數(shù)字,請(qǐng)正確填寫！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If End If If = Then MsgBox 金額字段不能為空，請(qǐng)?zhí)顚懀? vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsNumeric() Then = Format(, ) Else MsgBox 金額字段值為數(shù)字,請(qǐng)正確填寫！, 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 = 添加進(jìn)庫單End SubPrivate Sub Form_Load() = 1 = 4 = 0 = 0 = 材料編碼 = 1 = 材料名稱 = 2 = 規(guī)格 = 3 = 單位 (1) = 1000 Set Mydb = OpenDatabase( + \) Set myrecordset = (select * from goods) Do While Not = + 1 = 1 = 0 = (GoodsId) = 1 = (GoodsName) = 2 = (Type) = 3 = (Unit) Loop = False = FalseEnd SubPrivate Sub bo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub MSFlexGrid2_DblClick() If = 0 Then Exit Sub End If = 0 = If Then Set myrecordset = (select * from Goods where Goodsid=39。 amp。 Trim() amp。 39。) If Not Then Text2 = (goodsName) Text3 = (type) Text4 = (Unit) Else Exit Sub End If Else MsgBox 請(qǐng)選擇正確的材料編碼！, vbOKOnly + vbExclamation, 信息提示 End If = False End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd SubPrivate Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End IfEnd Sub:代碼分析:Option ExplicitDim Mydb As DatabaseDim Myrs1 As RecordsetDim Myrs2 As RecordsetPrivate Sub Command1_Click() Dim mrc As Recordset Dim str1 As String, str2 As String If = True Then If = Then MsgBox 請(qǐng)正確填寫進(jìn)庫單號(hào)碼！, vbOKOnly + vbExclamation, 信息提示 Exit Sub Else Set Myrs1 = (select * from inlib where 進(jìn)庫單號(hào)碼=39。 amp。 Trim(Text1) amp。 39。) TableInit If = 1 Then Set Myrs2 = (select * from inlibdetail,goods where 進(jìn)庫單號(hào)碼=39。 amp。 Trim(Text1) amp。 39。 And GoodsID = 材料編碼) While = False = + 1 = 1 = 0 = (進(jìn)庫單號(hào)碼) = 1 = (發(fā)票號(hào)碼) = 2 = (進(jìn)庫日期) = 3 If IsNull((經(jīng)辦人)) Then = Else = (經(jīng)辦人) End If = 4 If IsNull((保管人)) Then = Else = (保管人) End If = 5 = (goodsid) = 6 = (goodsname) = 7 = (type) = 8 = (unit) = 9 = (數(shù)量) = 10 = Format((單價(jià)), ) = 11 = Format((金額), ) = 12 If IsNull((備注)) Then = Else = (備注) End If Wend Else MsgBox 不存在這個(gè)進(jìn)庫單號(hào)碼, vbOKOnly + vbExclamation, 信息提示 Text1 = Exit Sub End If End If End If If = True