rs.Fields.Item(1).Value = Trim(str_Barcode) & strID rs.Fields.Item(2).Value = Trim(str_pack_number) rs.Fields.Item(3).Value = Trim(str_tex_index) rs.Fields.Item(4).Value = Trim(str_tex_employee_id) rs.Fields.Item(7).Value = Trim(str_tex_order_no) rs.Fields.Item(8).Value = str_print_time rs.Fields.Item(9).Value = Trim(str_tex_mcode) rs.Fields.Item(10).Value = Trim(str_tex_custums_code) rs.Fields.Item(11).Value = Trim(str_print_man) rs.Update ' rs1.Close ' rs.Close End If cnn.CommitTrans '--------------- MsgBox "success" Else MsgBox "failure" End If err_exit: If rs1.State = ObjectStateEnum.adStateOpen Then rst1.Close End If If rs.State = ObjectStateEnum.adStateOpen Then rs.Close End If cnn.Close Set rs1 = Nothing Set rs = Nothing Set cnn = Nothing Exit Suberr_proc: cnn.RollbackTrans MsgBox "出现错误保存失败!,请重新操作", 48, "提示" Resume err_exit End Sub
上一页 [1] [2] [3] [4] [5]
