【正文】 39。 amp。進(jìn)行表格控件選定當(dāng)前行數(shù)據(jù)備份 MFGridClickTxtBmmc = (, 2) MFGridClickTxtBz = (, 3) End IfEnd SubPrivate Sub txtqtjb_GotFocus() Call TxtYellow(TxtQtjb)End SubPrivate Sub txtccts_GotFocus() Call TxtYellow(TxtCcts)End SubPrivate Sub txtbxts_GotFocus() Call TxtYellow(TxtBxts)End SubPrivate Sub txtqjcs_GotFocus() Call TxtYellow(TxtQjcs)37 / 46End SubPrivate Sub txtkgts_GotFocus() Call TxtYellow(TxtKgts)End SubPrivate Sub txtcdcs_GotFocus() Call TxtYellow(TxtCdcs)End SubPrivate Sub txtztcs_GotFocus() Call TxtYellow(TxtZtcs)End SubPrivate Sub txtbz_GotFocus() Call TxtYellow(TxtBz)End SubPrivate Sub cbobmmc_LostFocus() Call TxtWhite(CboBmmc)End SubPrivate Sub cboygbh_LostFocus() Call TxtWhite(CboYgbh)End SubPrivate Sub Txtygxm_LostFocus() Call TxtWhite(TxtYgxm)End Sub38 / 46Private Sub Txtcqts_LostFocus() Call TxtWhite(TxtCqts)End SubPrivate Sub Txtjrjb_LostFocus() Call TxtWhite(TxtJrjb)End SubPrivate Sub Txtqtjb_LostFocus() Call TxtWhite(TxtQtjb)End SubPrivate Sub Txtccts_LostFocus() Call TxtWhite(TxtCcts)End SubPrivate Sub Txtbxts_LostFocus() Call TxtWhite(TxtBxts)End SubPrivate Sub Txtqjcs_LostFocus() Call TxtWhite(TxtQjcs)End SubPrivate Sub Txtkgts_LostFocus() Call TxtWhite(TxtKgts)End SubPrivate Sub Txtcdcs_LostFocus() Call TxtWhite(TxtCdcs)39 / 46End SubPrivate Sub Txtztcs_LostFocus() Call TxtWhite(TxtZtcs)End SubPrivate Sub Txtbz_LostFocus() Call TxtWhite(TxtBz)End SubPrivate Sub cbobmmc_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKeyReturn If CbobmmcCheck = True Then Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub cboygbh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Call TxtgxmMake Case Else KeyAscii = 0 End Select40 / 46 If Len() 5 Then Select Case KeyAscii Case vbKeyBack Case vbKeyDelete Case vbKeyReturn Call TxtgxmMake Case Else KeyAscii = 0 End Select End IfEnd SubPrivate Sub TxtYgxm_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then End SubPrivate Sub Txtcqts_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtjrjb_KeyPress(KeyAscii As Integer)41 / 46 Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtqtjb_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtccts_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn 42 / 46 Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtbxts_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtqjcs_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtkgts_KeyPress(KeyAscii As Integer)43 / 46 Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtcdcs_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtztcs_KeyPress(KeyAscii As Inte