【正文】 r, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub kh_Change select * from kh where 客戶全稱 like 39。or 簡稱 like 39。 If And 0 Then True End Sub Private Sub kh_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then False End If If KeyCode vbKeyPageDown Then True End If End Sub Private 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 零售價(jià) Then , 6 .Fields 零售價(jià) 6 False Else MsgBox 無數(shù)據(jù)選擇 !!! False End If End If End With End If If KeyCode vbKeyEscape Then False End If End Sub Private Sub DataList1_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then Trim False End If End Sub Private Sub jsr_Change Trim End Sub Private Sub MS1_Click If 1 And 1, 7 Then True End If End Sub Private 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 If End Sub Private 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 i End Sub Private Sub sf_Change Format Val Val , End Sub Private Sub sf_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub sl_Change Format Val * Val / 10 + Val * Val / 100 , End Sub Private Sub sl_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub zk_Change sl_Change End Sub Private Sub hjje_Change sl_Change Format Val Val , End Sub Private Sub zk_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private Sub Combo1_KeyDown KeyCode As Integer, Shift As Integer If KeyCode vbKeyReturn Then End Sub Private 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 1 規(guī)格 Then , 3 Trim .Fields 規(guī)格 If .Fields 產(chǎn)地 Then , 4 Trim .Fields 產(chǎn)地 If .Fields 單位 Then , 5 Trim .Fields 單位 If .Fields 零售價(jià) Then , 6 .Fields 零售價(jià) 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 If End Sub Private Sub Text1_Change If 1 Then If Then False Else select * from spinf where 商品名稱 like 39。 or 簡稱 like 39。 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 。+39。+ 39。+ 39。+ 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 Sub Private Sub Form_Activate Date 現(xiàn)金 : 轉(zhuǎn)帳支票 匯票 : 0 amp。and 累計(jì)余額 0 order by 日期 ,時(shí)間 If False Then If 0 Then If 累計(jì)余額 Then 累計(jì)余額 End If select * from gysmx where 供應(yīng)商全稱 39。 , amp。 amp。 amp。 amp。 rk amp。 + + 39。 + + 39。 + Trim + 39。 + Trim + 39。 Time End Sub Private Sub rkd_Click Load main_rcyw_rk False End Sub Private Sub rktd_Click Load main_rcyw_rktd False End Sub Private Sub kccx_Click Load main_kcgl_kcc