【正文】 adLockOptimistic If 0 Then If Not Then If (票號) Then lsph = Right(Trim((票號)), 4) + 1 = Date amp。 Format(lsph, 0000) End If Else = Date amp。 0001 End If = True: = True: = True = True: = False = True: = TrueFor i = 1 To 100 For j = 1 To 8 (i, j) = Next j Next i = : = 0: = 0 = 0: = 0: = 0 End SubPrivate Sub Combc_Click() select * from rkd, n, adOpenKeyset, adLockOptimistic If (1, 1) And (1, 7) Then For i = 1 To 100 If (i, 1) And (i, 7) Then If (i, 1) Then (商品名稱) = Trim((i, 1)) If (i, 2) Then (商品編號) = Trim((i, 2)) If (i, 3) Then (規(guī)格) = Trim((i, 3)) If (i, 4) Then (產(chǎn)地) = Trim((i, 4)) If (i, 5) Then (單位) = Trim((i, 5)) If (i, 6) Then (進(jìn)價) = Val((i, 6)) If (i, 7) Then (數(shù)量) = Val((i, 7)) If (i, 8) Then (金額) = Val((i, 8)) If Then (供應(yīng)商) = Trim() (操作員) = (3).Text If Then (經(jīng)手人) = Trim() If Then (日期) = Trim() If Then (票號) = Trim() If Then (倉庫) = Trim() select * from kc where 商品編號=39。 Trim((i, 2)) amp。and 倉庫=39。 Trim() amp。, n, adOpenKeyset, adLockOptimistic If 0 Then If (商品名稱) Then (庫存數(shù)量) = (庫存數(shù)量) + Trim(Val((i, 7))) (庫存金額) = Val((庫存數(shù)量)) * Val((進(jìn)價)) End If Else If (i, 1) Then (商品名稱) = (i, 1) If (i, 2) Then (商品編號) = (i, 2) If (i, 3) Then (185。 amp。 [ amp。 , amp。 ]等 End If Next i = select * from gysmx where 供應(yīng)商全稱=39。and 累計余額0 order by 日期,時間 If = False Then If 0 Then If (累計余額) Then = (累計余額) End If = select * from gysmx where 供應(yīng)商全稱=39。order by日期,時間 If = False Then If 0 Then (欠款記賬) = Val() (累計余額) = Val() + Val() End If 39。定義數(shù)據(jù)集對象Dim rs1 As New Dim rs2 As New Dim rs3 As New Dim rs4 As New Dim rs5 As New Dim s, y, i, j Private Sub Command1_Click()End SubPrivate Sub Form_Activate() = Date (現(xiàn)金): (轉(zhuǎn)帳支票) (匯票): = 0 = amp。 (3).TextEnd SubPrivate Sub Form_Load() = 102: = 9 s = Array(300, 2100, 1200, 1800, 1500, 765, 1200, 1200, 1200) y = Array(xh, 商品名稱, 商品編號, 規(guī)格, 產(chǎn)地, 單位, 零售價, 數(shù)量, 金額) For i = 0 To 8 (i) = s(i): (0, i) = y(i) Next i = 1: = 1 For i = 1 To 101 (i, 0) = i Next i = Date End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub ck_Change() = Trim()End SubPrivate Sub ck_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then = 1: = 1 = True End IfEnd SubPrivate Sub jsr_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub kh_Change() = select * from kh where 客戶全稱 like 39。+ 39。or 簡稱 like 39。+ 39。 If And 0 Then = TrueEnd SubPrivate Sub kh_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(產(chǎn)地) Then (, 4) = Trim(.Fields(產(chǎn)地)) 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 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 End If 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 sf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub sl_Change() = Format((Val() * (Val() / 10)) + (Val() * (Val() / 100)), )End SubPrivate Sub sl_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub zk_Change() sl_ChangeEnd SubPrivate Sub hjje_Change() sl_Change = Format((Val() Val()), )End SubPrivate Sub zk_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub Combo1_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 = False If = 1 Then With If 0 Then If .Fields(商品名稱) Then (, 1) = Trim(.Fields(商品名稱)) If .Fields(商品編號) Then (, 2) = Trim(.Fields(商品編號)) If .Fields(185。 + + 39。%39。 + + 39。%3