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
Set rs = Nothing
Set rs1 = Nothing
cnn.Close
Set cnn = Nothing
exit sub

err_proc:
      cnn.RollbackTrans
      MsgBox "出现错误保存失败!,请重新操作", 48, "提示"
      Exit Sub
Set rs = Nothing
Set rs1 = Nothing
cnn.Close
Set cnn = Nothing
End Sub 提交

上一页  [1] [2]