【正文】 ) If 0 Then = True End If End If End If If = 3 Then If (, 1) = And = 0 Then MsgBox (無商品名稱,請重新輸入!!!) = 1 End If End If If = 6 Then (, 8) = Val((, 7)) * Val((, 6)) If = 7 Then (, 8) = Val((, 7)) * Val((, 6)) Dim a, b As Single For i =。+39。)or(簡稱 like 39。+ 39。規(guī)格) Then (, 3) = Trim(.Fields(規(guī)格)) If .Fields(產地) Then (, 4) = Trim(.Fields(產地)) If .Fields(單位) Then (, 5) = Trim(.Fields(單位)) If .Fields(零售價) Then (, 6) = .Fields(零售價) = = False = 5 End If End With End If If = 8 Then = + 1 = 1 Else If + 1 = 1 Then = + 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End If End If If KeyCode = vbKeyUp Then If 1 Then = 1 End If If KeyCode = vbKeyDown Then If 99 Then = + 1 End If If KeyCode = vbKeyLeft Then If Then = 0 = Len() End If If 8 = + 1 Then = 1 If = 0 Then = 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End If If KeyCode = vbKeyRight Then If Then = 0 = Len() End If If + 1 = 1 Then = + 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End If If KeyCode = vbKeyPageDown And = 1 Then = select * from spinf = True End IfEnd SubPrivate Sub Text1_Change() = If = 1 Then If = Then = False Else = select * from spinf where (商品名稱 like 39。%39。 + Trim() + 39。%39。 + Trim() + 39。 操作員： amp。 = False: = True: = False = False: = False = False: = False: = False Else MsgBox (填寫數(shù)據(jù)不完整,請核實, 再保存) = 1: = 1 = False End If End SubPrivate Sub Comqx_Click() For i = 1 To 101 For j = 1 To 8 (i, j) = Next j Next i = False: = True: = False = False: = False = 0: = 0: = 0 = 0: = 0: = End SubPrivate Sub Comend_Click() = True Unload MeEnd Sub5. 商品銷售39。 + + 39。 + + 39。 (i, 3) amp。 (i, 1) amp。 ]購進 amp。規(guī)格) = (i, 3) If (i, 4) Then (產地) = (i, 4) If (i, 5) Then (單位) = (i, 5) If (i, 6) Then (進價) = Val((i, 6)) If (i, 7) Then (庫存數(shù)量) = Val((i, 7)) If (i, 8) Then (庫存金額) = Val((i, 8)) If Then (倉庫) = End If select * from gysmx, n, adOpenKeyset, adLockOptimistic If = False Then If Then (日期) = (時間) = Time If Then (票號) = If (i, 7) Then (數(shù)量) = (i, 7) If (i, 8) Then (金額小計) = (i, 8) If (i, 6) Then (單價) = (i, 6) If (i, 5) Then (單位) = (i, 5) If Then (供應商) = If Then (摘要) = 進貨：從[ amp。 39。 amp。 39。 amp。 rk amp。 rk amp。%39。 + + 39。%39。 + + 39。 If And 0 Then = TrueEnd SubPrivate Sub gys_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = False End If If KeyCode = vbKeyPageDown Then = True End IfEnd SubPrivate Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then With If .RecordCount 0 Then If .Fields(商品名稱) Then If .Fields(商品名稱) Then (, 1) = Trim(.Fields(商品名稱)) If .Fields(商品編號) Then (, 2) = Trim(.Fields(商品編號)) If .Fields(規(guī)格) Then (, 3) = Trim(.Fields(規(guī)格)) If .Fields(產地) Then (, 4) = Trim(.Fields(產地)) If .Fields(單位) Then (, 5) = Trim(.Fields(單位)) If .Fields(進價) Then (, 6) = .Fields(進價) = = 6 = False Else MsgBox (無數(shù)據(jù)選擇!!!) = False End If End If End With End If If KeyCode = vbKeyEscape Then = False End IfEnd SubPrivate Sub DataList1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = Trim() = False End IfEnd SubPrivate Sub jsr_Change() = Trim()End SubPrivate Sub jsr_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub MS1_Click() If = 1 And ( 1, 7) Then = True End IfEnd SubPrivate Sub MS1_entercell() Dim X As String, y As String, p As String If = 0 Or = 0 Then Exit Sub X = (, ): y = (, 0) If y Then If = 3 Then = + 1 If 0 And 0 Then = : = = + : = + End If X = (, ): y = (, 0) p = (, ) = = 0 = Len() End IfEnd SubPrivate Sub MS1_RowColChange() For i = 1 To 101 If (i, 1) Then (, 6) = Format((, 6), ) (, 8) = Val((, 7)) * Val((, 6)) (, 8) = Format((, 8), ) End If Next iEnd SubPrivate Sub sf_Change() = Format((Val() Val()), )End SubPrivate Sub sl_Change() Call yfje_exp End SubPrivate Sub sl_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub zk_Change() Call yfje_exp End SubPrivate Sub zk_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub hjje_Change() Call yfje_exp = Format((Val() Val()), ) End SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub sf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = 1 Then With If 0 Then If .Fields(商品名稱) Then (, 1) = Trim(.Fields(商品名稱)) If .Fields(商品編號) Then (, 2) = Trim(.Fields(商品編