Foxtable(狐表) → 用户栏目 → 专家坐堂 → 添加数据


  共有2050人关注过本帖树形打印复制链接

主题：添加数据
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		添加数据  发帖心情 Post By：2017/10/17 22:29:00 [显示全部帖子]

Dim sr As String
Dim dr1 As Table = Tables("商户资料表")
If dr1.Current.Isnull("机具ID") Then
    dr("商户ID") = dr1.Current("商户ID")
    dr("商户名称") = dr1.Current("商户名称")
    dr("客户ID") = dr1.Current("客户ID")
    dr("客户姓名") = dr1.Current("法人姓名")
    dr("机具是否绑定") = True
    dr1.Current("机具ID")=dr("机具ID")
    dr1.Current("机具条码")=dr("机具条码")
    sr =dr1.Current("机具条码")
    Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
    If lsjl  IsNot Nothing Then
        lsjl =  DataTables("POS机绑定商户历史记录表").addnew
        lsjl("机具ID") =dr("机具ID")
        lsjl("机具条码") =dr("机具条码")
        lsjl("机具类型") =dr("机具类型")
        lsjl("机具型号") =dr("机具型号")
        lsjl("所属仓库") =dr("所属仓库")
        lsjl("商户ID") =dr1.Current("商户ID")
        lsjl("商户名称") =dr1.Current("商户名称")
        lsjl("客户ID") =dr1.Current("客户ID")
        lsjl("客户姓名") =dr1.Current("法人姓名")
        lsjl("绑定日期") =Date.Today
    End If
    DataTables("POS机库存资料"). Save   '
    msgbox(dr("商户名称") & "机具成功绑定商户 ")
    e.Form.Controls("jijutiaoma").text =Nothing
    e.Form.Controls("jijutiaoma").Enabled= False
    e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
    e.Form.Controls("jijubangding").Enabled=False
    e.Form.Controls("jijujiebang").Enabled= False
Else
    Dim dlg = MessageBox.Show("该商户已经绑定其他机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否则添加新商户并绑定到新增的商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If dlg = DialogResult.Yes Then
        For Each fdr As DataRow In DataTables("POS机库存资料").Select("机具ID='" & dr1.Current("机具ID") & "'")
            fdr("商户ID") = Nothing
            fdr("商户名称") = Nothing
            fdr("客户ID") = Nothing
            fdr("客户姓名") = Nothing
            fdr("机具是否绑定") = False
        Next
        dr("商户ID") = dr1.Current("商户ID")
        dr("商户名称") = dr1.Current("商户名称")
        dr("客户ID") = dr1.Current("客户ID")
        dr("客户姓名") = dr1.Current("法人姓名")
        dr("机具是否绑定") = True
        dr1.Current("机具ID")=dr("机具ID")
        dr1.Current("机具条码")=dr("机具条码")
        sr = dr1.Current.DataRow.OriginalValue("机具条码")
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
        If lsjl  IsNot Nothing  Then
            lsjl ("解绑日期") =Date.Today
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        Else
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        End If
        DataTables("POS机库存资料"). Save   
        msgbox(dr("商户名称") & "机具成功绑定商户 ")
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
    ElseIf dlg = DialogResult.No
        '新增加的代码
        Dim tbl As Table =Tables("商户资料表")
        sr =  dr1.Current.DataRow.OriginalValue("机具条码")
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" &  sr  & "' and 解绑日期 is null")
        Dim sr1 As Row = tbl.Current
        Dim nr As DataRow = tbl.DataTable.addnew
        nr("通道名称") = sr1("通道名称")
        nr("网点地址") = sr1("网点地址")
        nr("商户名称") = sr1("商户名称")
        nr("网点名称") = sr1("网点名称")
        nr("网点编号") = sr1("网点编号")
        nr("备注") = sr1("备注")
        nr("商户照片") = sr1("商户照片")
        nr("商户编号") = sr1("商户编号")
        nr("客户ID") = sr1("客户ID")
        nr("法人姓名") = sr1("法人姓名")
        dr("商户ID") = nr("商户ID")
        dr("商户名称") = nr("商户名称")
        dr("客户ID") = nr("客户ID")
        dr("客户姓名") = nr("法人姓名")
        dr("机具是否绑定") = True
        nr("机具ID")=dr("机具ID")
        nr("机具条码")=dr("机具条码")
        If lsjl  IsNot Nothing Then
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr("商户ID")
            lsjl("商户名称") =dr1.Current("商户名称")
            lsjl("客户ID") =dr1.Current("客户ID")
            lsjl("客户姓名") =dr1.Current("法人姓名")
            lsjl("绑定日期") =Date.Today
        End If
        DataTables("POS机库存资料"). Save   '
        msgbox("该机具成功绑定商户 ")
    End If
End If

 

 

甜老师这段代码哪有问题呢？添加数据时，如果商户资料表中的“机具条码”是空值的时候绑定机具时，不在“POS机绑定商户历史记录表”添加一条记录，其他正常

[此贴子已经被作者于2017/10/18 0:21:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/17 23:59:00 [显示全部帖子]

窗体上有一个“机具绑定”按钮和一个"文本框"我想实现：
一、在"文本框"中输入机具条码，单击“绑定机具”按钮.首先判断"商户资料表"中当前行的"机具ID" 是否存在，如果不存在（说明该商户未绑定任何机具）则执行：
   1、将"商户资料表"中的 当前行的商户ID、商户名称、客户ID、法人姓名等字段分别赋值给“POS机库存资料” 商户ID、商户名称、客户ID、客户姓名等字段，并将"机具是否绑定"设置为True，同时将“POS机库存资料”中的机具ID、机具条码等字段赋值给"商户资料表"中的机具ID、机具条码等字段。
    dr("商户ID") = dr1.Current("商户ID")
    dr("商户名称") = dr1.Current("商户名称")
    dr("客户ID") = dr1.Current("客户ID")
    dr("客户姓名") = dr1.Current("法人姓名")
    dr("机具是否绑定") = True
    dr1.Current("机具ID")=dr("机具ID")
    dr1.Current("机具条码")=dr("机具条码")

   2、以"商户资料表"中当前行的"机具条码"（即文本框所输入的内容）和“解绑日期”是 null"为查询"条件来查询"POS机绑定商户历史记录表"  
如果查询结果为空则执行：在“POS机绑定商户历史记录表”添加一条绑定机具的记录

 If lsjl  IsNot Nothing Then
        lsjl =  DataTables("POS机绑定商户历史记录表").addnew
        lsjl("机具ID") =dr("机具ID")
        lsjl("机具条码") =dr("机具条码")
        lsjl("机具类型") =dr("机具类型")
        lsjl("机具型号") =dr("机具型号")
        lsjl("所属仓库") =dr("所属仓库")
        lsjl("商户ID") =dr1.Current("商户ID")
        lsjl("商户名称") =dr1.Current("商户名称")
        lsjl("客户ID") =dr1.Current("客户ID")
        lsjl("客户姓名") =dr1.Current("法人姓名")
        lsjl("绑定日期") =Date.Today
    End If
   保存数据 并初始化窗体
    DataTables("POS机库存资料"). Save   '
    msgbox(dr("商户名称") & "机具成功绑定商户 ")
    e.Form.Controls("jijutiaoma").text =Nothing
    e.Form.Controls("jijutiaoma").Enabled= False
    e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
    e.Form.Controls("jijubangding").Enabled=False
    e.Form.Controls("jijujiebang").Enabled= False


二、如果"商户资料表"中当前行的"机具ID"如果存在（说明该商户已经绑定了其他机具）则执行：
有三个选择
  1、选择是则执行：（先解绑后重新绑定新机具,再处理"POS机绑定商户历史记录表"）
     （1）首先清空（即解绑机具）"POS机库存资料"中商户ID、商户名称、客户ID、客户姓名、机具是否绑定 = False等字段。
        For Each fdr As DataRow In DataTables("POS机库存资料").Select("机具ID='" & dr1.Current("机具ID") & "'")
            fdr("商户ID") = Nothing
            fdr("商户名称") = Nothing
            fdr("客户ID") = Nothing
            fdr("客户姓名") = Nothing
            fdr("机具是否绑定") = False
        Next
     （2）将"商户资料表"中的 商户ID、商户名称、客户ID、法人姓名等字段分别赋值给“POS机库存资料” 商户ID、商户名称、客户ID、客户姓名等字段，并将"机具是否绑定"设置为True，同时将“POS机库存资料”中的机具ID、机具条码等字段赋值给"商户资料表"中的机具ID、机具条码等字段。（重新绑定）

     （3）以"商户资料表"中当前行的"机具条码"未修改前的数值和“解绑日期”为 null"为查询"条件来查询"POS机绑定商户历史记录表" (处理"POS机绑定商户历史记录表"）
如果查询结果为有数据则执行：首先给"POS机绑定商户历史记录表"中的该条记录中的“解绑日期”赋值当前日期，再增加一条新绑定机具的记录。
       sr = dr1.Current.DataRow.OriginalValue("机具条码")

      Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
        If lsjl  IsNot Nothing  Then
            lsjl ("解绑日期") =Date.Today
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        Else
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        End If

保存数据 并初始化窗体
    DataTables("POS机库存资料"). Save   '
    msgbox(dr("商户名称") & "机具成功绑定商户 ")
    e.Form.Controls("jijutiaoma").text =Nothing
    e.Form.Controls("jijutiaoma").Enabled= False
    e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
    e.Form.Controls("jijubangding").Enabled=False
    e.Form.Controls("jijujiebang").Enabled= False

2、如果选择否，则执行(先处理“商户资料表”再处理"POS机绑定商户历史记录表")
 （1）、直接向“商户资料表”复制一条记录
       Dim nr As DataRow = tbl.DataTable.addnew
        nr("通道名称") = sr1("通道名称")
        nr("网点地址") = sr1("网点地址")
        nr("商户名称") = sr1("商户名称")
        nr("网点名称") = sr1("网点名称")
        nr("网点编号") = sr1("网点编号")
        nr("备注") = sr1("备注")
        nr("商户照片") = sr1("商户照片")
        nr("商户编号") = sr1("商户编号")
        nr("客户ID") = sr1("客户ID")
        nr("法人姓名") = sr1("法人姓名")
        dr("商户ID") = nr("商户ID")
        dr("商户名称") = nr("商户名称")
        dr("客户ID") = nr("客户ID")
        dr("客户姓名") = nr("法人姓名")
        dr("机具是否绑定") = True
        nr("机具ID")=dr("机具ID")
        nr("机具条码")=dr("机具条码")
    （2）、向"POS机绑定商户历史记录表"中添加一条记录
       If lsjl  IsNot Nothing Then
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr("商户ID")
            lsjl("商户名称") =dr1.Current("商户名称")
            lsjl("客户ID") =dr1.Current("客户ID")
            lsjl("客户姓名") =dr1.Current("法人姓名")
            lsjl("绑定日期") =Date.Today
        End If
      保存记录

2、如果选择取消，则执行（无操作）

不执行如何操作

 

 

 

 

完整代码见1楼

[此贴子已经被作者于2017/10/18 0:19:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/18 13:06:00 [显示全部帖子]

Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
If dr Is Nothing Then
    msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    Return
ElseIf dr.IsNull("商户ID") = False Then
    msgbox("该机具已经被其他商户占用,不能重复绑定!请核实机具条码!")
    Return
End If
Dim sr As String
Dim dr1 As Table = Tables("商户资料表")
If dr1.Current.Isnull("机具ID") Then
    dr("商户ID") = dr1.Current("商户ID")
    dr("商户名称") = dr1.Current("商户名称")
    dr("客户ID") = dr1.Current("客户ID")
    dr("客户姓名") = dr1.Current("法人姓名")
    dr("机具是否绑定") = True
    dr1.Current("机具ID")=dr("机具ID")
    dr1.Current("机具条码")=dr("机具条码")
    sr = dr1.Current.DataRow.OriginalValue("机具条码")
    Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
    If lsjl  Is Nothing Then
        lsjl =  DataTables("POS机绑定商户历史记录表").addnew
        lsjl("机具ID") =dr("机具ID")
        lsjl("机具条码") =dr("机具条码")
        lsjl("机具类型") =dr("机具类型")
        lsjl("机具型号") =dr("机具型号")
        lsjl("所属仓库") =dr("所属仓库")
        lsjl("商户ID") =dr1.Current("商户ID")
        lsjl("商户名称") =dr1.Current("商户名称")
        lsjl("客户ID") =dr1.Current("客户ID")
        lsjl("客户姓名") =dr1.Current("法人姓名")
        lsjl("绑定日期") =Date.Today
    End If
    DataTables("POS机库存资料"). Save  
    DataTables("POS机绑定商户历史记录表"). Save    '
    msgbox(dr("商户名称") & "机具成功绑定商户 ")
    e.Form.Controls("jijutiaoma").text =Nothing
    e.Form.Controls("jijutiaoma").Enabled= False
    e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
    e.Form.Controls("jijubangding").Enabled=False
    e.Form.Controls("jijujiebang").Enabled= False
Else
    Dim dlg = MessageBox.Show("该商户已经绑定其他机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否则添加新商户并绑定到新增的商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If dlg = DialogResult.Yes Then
        For Each fdr As DataRow In DataTables("POS机库存资料").Select("机具ID='" & dr1.Current("机具ID") & "'")
            fdr("商户ID") = Nothing
            fdr("商户名称") = Nothing
            fdr("客户ID") = Nothing
            fdr("客户姓名") = Nothing
            fdr("机具是否绑定") = False
        Next
        dr("商户ID") = dr1.Current("商户ID")
        dr("商户名称") = dr1.Current("商户名称")
        dr("客户ID") = dr1.Current("客户ID")
        dr("客户姓名") = dr1.Current("法人姓名")
        dr("机具是否绑定") = True
        dr1.Current("机具ID")=dr("机具ID")
        dr1.Current("机具条码")=dr("机具条码")
        sr = dr1.Current.DataRow.OriginalValue("机具条码")
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
        If lsjl  IsNot Nothing  Then
            lsjl ("解绑日期") =Date.Today
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today           这句代码那有问题呢？如果窗体打开后给已经绑定机具的商户如果连续解绑再重新重新绑定的新机具时，第一次运行正常，第二次以及以后各次“POS机绑定商户历史记录表”中已经解绑的机具“解绑日期”不赋值，必须把窗体关闭重启后才能正常，如果是新绑定的机具立即解绑重新绑定机具也是同样的结果。甜老师看看哪错了？
        Else
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        End If
        DataTables("POS机库存资料"). Save   
        DataTables("POS机绑定商户历史记录表"). Save    
        msgbox(dr("商户名称") & "机具成功绑定商户 ")
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
    ElseIf dlg = DialogResult.No
        '新增加的代码
        Dim tbl As Table =Tables("商户资料表")
        sr =  dr1.Current.DataRow.OriginalValue("机具条码")
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" &  sr  & "' and 解绑日期 is null")
        Dim sr1 As Row = tbl.Current
        Dim nr As DataRow = tbl.DataTable.addnew
        nr("通道名称") = sr1("通道名称")
        nr("网点地址") = sr1("网点地址")
        nr("商户名称") = sr1("商户名称")
        nr("网点名称") = sr1("网点名称")
        nr("网点编号") = sr1("网点编号")
        nr("备注") = sr1("备注")
        nr("商户照片") = sr1("商户照片")
        nr("商户编号") = sr1("商户编号")
        nr("客户ID") = sr1("客户ID")
        nr("法人姓名") = sr1("法人姓名")
        dr("商户ID") = nr("商户ID")
        dr("商户名称") = nr("商户名称")
        dr("客户ID") = nr("客户ID")
        dr("客户姓名") = nr("法人姓名")
        dr("机具是否绑定") = True
        nr("机具ID")=dr("机具ID")
        nr("机具条码")=dr("机具条码")
        If lsjl  IsNot Nothing Then
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr("商户ID")
            lsjl("商户名称") =dr1.Current("商户名称")
            lsjl("客户ID") =dr1.Current("客户ID")
            lsjl("客户姓名") =dr1.Current("法人姓名")
            lsjl("绑定日期") =Date.Today
        End If
        DataTables("POS机库存资料"). Save 
        DataTables("POS机绑定商户历史记录表"). Save      '
        msgbox("该机具成功绑定商户 ")
    End If
End If

[此贴子已经被作者于2017/10/18 14:00:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/18 15:37:00 [显示全部帖子]

甜老师我怎么修改呢？我的修改如下

        sr = dr1.Current.DataRow.OriginalValue("机具条码")

        dr1.Current("机具ID")=dr("机具ID")

        dr1.Current("机具条码")=dr("机具条码")

修改后还是不行

 


图片点击可在新窗口打开查看此主题相关图片如下：4444555.jpg
图片点击可在新窗口打开查看



图片点击可在新窗口打开查看此主题相关图片如下：6666.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/10/18 16:21:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/18 16:22:00 [显示全部帖子]

我的修改如下

        sr = dr1.Current.DataRow.OriginalValue("机具条码")

        dr1.Current("机具ID")=dr("机具ID")

        dr1.Current("机具条码")=dr("机具条码")

修改后还是不行看看怎么回事？
[此贴子已经被作者于2017/10/18 17:49:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/18 19:23:00 [显示全部帖子]

打开窗体后同一条数据只能操作一次第二次就不赋值了必须关闭窗体重启后才能赋值

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/18 20:37:00 [显示全部帖子]

写到哪呢？好几个地方都在调用“sr”

 

还有就是我用的是 sr = dr1.Current.DataRow.OriginalValue("机具条码")不是sr = dr1.Current("机具条码")

因为我有的查询条件时表修改前的数据不是修改后的数据

 

如果改为sr = dr1.Current("机具条码")解绑后的机具在POS机机具与流量卡历史绑定记录表中解绑日期根本不赋值，以前用的就是这个语句后来就改为这个了

[此贴子已经被作者于2017/10/18 20:44:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/18 21:13:00 [显示全部帖子]

甜老师我全改了，就解绑后的机具在POS机机具在流量卡历史绑定记录表中解绑日期根本不赋值

您看看代码那错了

If  e.Form.Controls("jijutiaoma").text =Nothing Then
    If MessageBox.Show("机具条码不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
        Return
    End If
End If
Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
If dr Is Nothing Then
    msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    Return
ElseIf dr.IsNull("商户ID") = False Then
    msgbox("该机具已经被其他商户占用,不能重复绑定!请核实机具条码!")
    Return
End If
Dim sr As String
Dim dr1 As Table = Tables("商户资料表")
If dr1.Current.Isnull("机具ID") Then
    dr("商户ID") = dr1.Current("商户ID")
    dr("商户名称") = dr1.Current("商户名称")
    dr("客户ID") = dr1.Current("客户ID")
    dr("客户姓名") = dr1.Current("法人姓名")
    dr("机具是否绑定") = True
   sr = dr1.Current("机具条码")
    dr1.Current("机具ID")=dr("机具ID")
    dr1.Current("机具条码")=dr("机具条码")
    'sr = dr1.Current.DataRow.OriginalValue("机具条码")
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
    If lsjl  Is Nothing Then
        lsjl =  DataTables("POS机绑定商户历史记录表").addnew
        lsjl("机具ID") =dr("机具ID")
        lsjl("机具条码") =dr("机具条码")
        lsjl("机具类型") =dr("机具类型")
        lsjl("机具型号") =dr("机具型号")
        lsjl("所属仓库") =dr("所属仓库")
        lsjl("商户ID") =dr1.Current("商户ID")
        lsjl("商户名称") =dr1.Current("商户名称")
        lsjl("客户ID") =dr1.Current("客户ID")
        lsjl("客户姓名") =dr1.Current("法人姓名")
        lsjl("绑定日期") =Date.Today
    End If
    DataTables("POS机库存资料"). Save 
    DataTables("POS机绑定商户历史记录表"). Save    '
    msgbox(dr("商户名称") & "机具成功绑定商户 ")
    e.Form.Controls("jijutiaoma").text =Nothing
    e.Form.Controls("jijutiaoma").Enabled= False
    e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
    e.Form.Controls("jijubangding").Enabled=False
    e.Form.Controls("jijujiebang").Enabled= False
Else
    Dim dlg = MessageBox.Show("该商户已经绑定其他机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否则添加新商户并绑定到新增的商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If dlg = DialogResult.Yes Then
        For Each fdr As DataRow In DataTables("POS机库存资料").Select("机具ID='" & dr1.Current("机具ID") & "'")
            fdr("商户ID") = Nothing
            fdr("商户名称") = Nothing
            fdr("客户ID") = Nothing
            fdr("客户姓名") = Nothing
            fdr("机具是否绑定") = False
        Next
        dr("商户ID") = dr1.Current("商户ID")
        dr("商户名称") = dr1.Current("商户名称")
        dr("客户ID") = dr1.Current("客户ID")
        dr("客户姓名") = dr1.Current("法人姓名")
        dr("机具是否绑定") = True
         sr = dr1.Current("机具条码")
        dr1.Current("机具ID")=dr("机具ID")
        dr1.Current("机具条码")=dr("机具条码")
       ' sr = dr1.Current.DataRow.OriginalValue("机具条码")
               Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
        If lsjl  IsNot Nothing  Then
            lsjl ("解绑日期") =Date.Today
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        Else
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr1.Current("商户ID")
            lsjl("商户名称") =dr("商户名称")
            lsjl("客户ID") =dr("客户ID")
            lsjl("客户姓名") =dr("客户姓名")
            lsjl("绑定日期") =Date.Today
        End If
        DataTables("POS机库存资料"). Save  
        DataTables("POS机绑定商户历史记录表"). Save   
        msgbox(dr("商户名称") & "机具成功绑定商户 ")
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
    ElseIf dlg = DialogResult.No
        '新增加的代码
        Dim tbl As Table =Tables("商户资料表")
        sr =  dr1.Current.DataRow.OriginalValue("机具条码")
        Dim lsjl As DataRow = DataTables("POS机绑定商户历史记录表").Find("机具条码='" &  sr  & "' and 解绑日期 is null")
        Dim sr1 As Row = tbl.Current
        Dim nr As DataRow = tbl.DataTable.addnew
        nr("通道名称") = sr1("通道名称")
        nr("网点地址") = sr1("网点地址")
        nr("商户名称") = sr1("商户名称")
        nr("网点名称") = sr1("网点名称")
        nr("网点编号") = sr1("网点编号")
        nr("备注") = sr1("备注")
        nr("商户照片") = sr1("商户照片")
        nr("商户编号") = sr1("商户编号")
        nr("客户ID") = sr1("客户ID")
        nr("法人姓名") = sr1("法人姓名")
        dr("商户ID") = nr("商户ID")
        dr("商户名称") = nr("商户名称")
        dr("客户ID") = nr("客户ID")
        dr("客户姓名") = nr("法人姓名")
        dr("机具是否绑定") = True
        nr("机具ID")=dr("机具ID")
        nr("机具条码")=dr("机具条码")
        If lsjl  IsNot Nothing Then
            lsjl =  DataTables("POS机绑定商户历史记录表").addnew
            lsjl("机具ID") =dr("机具ID")
            lsjl("机具条码") =dr("机具条码")
            lsjl("机具类型") =dr("机具类型")
            lsjl("机具型号") =dr("机具型号")
            lsjl("所属仓库") =dr("所属仓库")
            lsjl("商户ID") =dr("商户ID")
            lsjl("商户名称") =dr1.Current("商户名称")
            lsjl("客户ID") =dr1.Current("客户ID")
            lsjl("客户姓名") =dr1.Current("法人姓名")
            lsjl("绑定日期") =Date.Today
        End If
        DataTables("POS机库存资料"). Save
        DataTables("POS机绑定商户历史记录表"). Save      '
        msgbox("该机具成功绑定商户 ")
    End If
End If
'systemready = True
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/18 21:22:00 [显示全部帖子]

就是按照您说的修改的，我真的看不出那错了

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：12678 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/10/18 21:32:00 [显示全部帖子]

怎么返回来的是空值呀

 

 


图片点击可在新窗口打开查看此主题相关图片如下：69.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：70.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：71.jpg
图片点击可在新窗口打开查看

 

 

 

谢谢甜老师！我已经解决还是有 sr = dr1.Current.DataRow.OriginalValue("机具条码")作为查询条件。只要每次修改后交"商户资料表"保存后就正常了，不保存数据，返回来的永远是第一次修改前的数据

[此贴子已经被作者于2017/10/18 22:02:09编辑过]
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 5 次数据查询