主题：关于添加数据

建议先理清自己的业务逻辑。在没有相应的能力之前，不要想着把所有的逻辑都揉到一起。就像一团麻，斩不断理更乱。

当绑定新增的商户时绑定的怎么不是新增的商户而是老商户呢？ 已经解决

If  e.Form.Controls("liuliangkahao").text =Nothing Then
    If MessageBox.Show("流量卡号不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        e.Form.Controls("liuliangkahao").value=Nothing
        e.Form.Controls("liuliangkahao").Enabled= False
        e.Form.Controls("liuliangkazhuangtaixiugai").Enabled=True
        e.Form.Controls("liuliangkajiebang ").Enabled= False
        e.Form.Controls("liuliangkabangding").Enabled= False
        Return
    End If
End If
Dim dr As DataRow = DataTables("流量卡资料").Find("流量卡号='" & e.Form.Controls("liuliangkahao").text & "'")
e.Form.Controls("liuliangkahao").text
If dr Is Nothing Then
    msgbox("没有查到符合条件的数据,请核实流量卡是否入库!")
    Return
ElseIf dr.IsNull("商户ID") = False Then
    msgbox("该流量卡已经被其他商户占用,不能重复绑定商户!请核实流量卡号!")
    Return
End If
'systemready = False
If Tables("商户资料表").Current.Isnull("流量卡ID") Then
    dr("商户ID") = Tables("商户资料表").Current("商户ID")
    dr("商户名称") = Tables("商户资料表").Current("商户名称")
    dr("客户ID") = Tables("商户资料表").Current("客户ID")
    dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
    dr("是否绑定") = True
    Tables("商户资料表").Current("流量卡ID")=dr("流量卡ID")
    Tables("商户资料表").Current("流量卡号")=dr("流量卡号")
    Dim lsjl As Table =Tables("流量卡绑定商户历史记录表")
    Dim sr As Row =  lsjl .Current
    Dim nr As DataRow =  lsjl.DataTable.addnew
    nr("流量卡ID") =dr("流量卡ID")
    nr("流量卡号") =dr("流量卡号")
    nr("类型") =dr("类型")
    nr("商户ID") =dr("商户ID")
    nr("商户名称") =dr("商户名称")
    nr("客户ID") =dr("客户ID")
    nr("客户姓名") =dr("客户姓名")
    nr("绑定日期") =Date.Today
    e.Form.Controls("liuliangkahao").text =Nothing
    e.Form.Controls("liuliangkahao").Enabled= False
    e.Form.Controls("liuliangkazhuangtaixiugai").Enabled=True
    e.Form.Controls("liuliangkabangding").Enabled=False
    e.Form.Controls("liuliangkajiebang ").Enabled= False
    msgbox("该流量卡已成功绑定该商户")
Else
    Dim dlg = MessageBox.Show("该商户已经绑定其他流量卡,是否解绑后重新绑定新流量卡,单击是解绑后重新绑定,单击否则添加新商户并绑定到新增的商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)  
    If dlg = DialogResult.Yes Then
        For Each fdr As DataRow In DataTables("流量卡资料").Select("流量卡ID='" & Tables("商户资料表").Current("流量卡ID") & "'")
            fdr("商户ID") = Nothing
            fdr("商户名称") = Nothing
            fdr("客户ID") = Nothing
            fdr("客户姓名") = Nothing
            fdr("是否绑定") = False
        Next
        dr("商户ID") = Tables("商户资料表").Current("商户ID")
        dr("商户名称") = Tables("商户资料表").Current("商户名称")
        dr("客户ID") = Tables("商户资料表").Current("客户ID")
        dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
        dr("是否绑定") = True
        Tables("商户资料表").Current("流量卡ID")=dr("流量卡ID")
        Tables("商户资料表").Current("流量卡号")=dr("流量卡号")
        Dim lsjl As Table =Tables("流量卡绑定商户历史记录表")
        Dim sr As Row =  lsjl .Current
        Dim nr As DataRow =  lsjl.DataTable.addnew
        nr("流量卡ID") =dr("流量卡ID")
        nr("流量卡号") =dr("流量卡号")
        nr("类型") =dr("类型")
        nr("商户ID") =dr("商户ID")
        nr("商户名称") =dr("商户名称")
        nr("客户ID") =dr("客户ID")
        nr("客户姓名") =dr("客户姓名")
        nr("绑定日期") =Date.Today
        e.Form.Controls("liuliangkahao").text =Nothing
        e.Form.Controls("liuliangkahao").Enabled= False
        e.Form.Controls("liuliangkazhuangtaixiugai").Enabled=True
        e.Form.Controls("liuliangkabangding").Enabled=False
        e.Form.Controls("liuliangkajiebang ").Enabled= False
        msgbox("该流量卡已成功绑定该商户")
    ElseIf dlg = DialogResult.No
        '新增加的代码
        Dim tbl As Table =Tables("商户资料表")
        Dim sr As Row = tbl.Current
        Dim nr As DataRow = tbl.DataTable.addnew
        nr("通道名称") = sr("通道名称")
        nr("网点地址") = sr("网点地址")
        nr("商户名称") = sr("商户名称")
        nr("网点名称") = sr("网点名称")
        nr("网点编号") = sr("网点编号")
        nr("备注") = sr("备注")
        nr("商户照片") = sr("商户照片")
        nr("商户编号") = sr("商户编号")
        nr("客户ID") = sr("客户ID")
        nr("法人姓名") = sr("法人姓名")
        ' nr("机具ID") = sr("机具ID")
        'nr("机具条码") = sr("机具条码")
        dr("商户ID") = nr("商户ID")
        dr("商户名称") = nr("商户名称")
        dr("客户ID") = nr("客户ID")
        dr("客户姓名") = nr("法人姓名")
        dr("是否绑定") = True
        nr("流量卡ID")=dr("流量卡ID")
        nr("流量卡号")=dr("流量卡号")
        Dim lsjl As Table =Tables("流量卡绑定商户历史记录表")
        Dim sr1 As Row =  lsjl .Current
        Dim nr1 As DataRow =  lsjl.DataTable.addnew
        nr1("流量卡ID") =dr("流量卡ID")
        nr1("流量卡号") =dr("流量卡号")
        nr1("类型") =dr("类型")
        nr1("商户ID") =dr("商户ID")
        nr1("商户名称") =dr("商户名称")
        nr1("客户ID") =dr("客户ID")
        nr1("客户姓名") =dr("客户姓名")
        nr1("绑定日期") =Date.Today
        Dim lsdr As DataRow = DataTables("流量卡绑定商户历史记录表").Find("流量卡号='" & dr("流量卡号") & "'and 解绑日期='" & nr1.isNull("解绑日期")=True & "'")     
       If lsdr Is Nothing Then
         lsdr("解绑日期") =Date.Today
            Return
        Else
         Return
        End If
           msgbox("该流量卡已成功绑定该商户")
    End If
End If

这句代码那有问题呢？

我想实现当向商户资料表绑定机具时，如果商户已绑定其他机具先解绑机具再绑定时将查询"流量卡绑定商户历史记录表" 中已经绑定“流量卡号”和“解绑日期”为空的记录，如果存在就将今天的日期赋值给“解绑日期”字段

 

运行时出错

 

 

 

此主题相关图片如下：1456.jpg

Dim lsdr As DataRow = DataTables("流量卡绑定商户历史记录表").Find("流量卡号='" & dr("流量卡号") & "' and 解绑日期 is null")      
If lsdr IsNot Nothing Then
    lsdr("解绑日期") =Date.Today

甜老师：这样赋值“解绑日期”怎么会给商户绑的机具赋值定呢？应给解绑的机具赋值呀？

 没看懂你什么逻辑。

 

 请自己把基础语法学会，这样才能写出自己的软件。

 

 请回头把基础打牢，再编写代码。

不好意思！我想实现当向商户资料表绑定机具时，如果商户已绑定其他机具先解绑机具再绑定新机具，执行查询"流量卡绑定商户历史记录表" 中已经绑定“流量卡号”和“解绑日期”为空的记录的行，（因为流量卡绑定商户历史记录表中同一流量卡号的流量卡没对好几条记录，查找解绑日期为空的记录）如果存在就将今天的日期赋值给“解绑日期”字段，不是给现在要绑定的流量卡号的流量卡赋值，是刚解绑过的流量卡进行赋值。我调试了好长时间，调不过来，麻烦甜老师看看

 

上传实例，截图具体里说明逻辑。

打开商户信息窗体选择一条已经绑定商户的商户，单击“流量卡状态修改”按钮，输入流量卡号单击“流量卡绑定”按钮，弹出选择对话框后选择“是“或”否”后执行

参考代码

 

        Dim nr As DataRow = DataTables("流量卡绑定商户历史记录表").Find("流量卡号='" & dr("流量卡号") & "' and 解绑日期 is null")
        If nr IsNot Nothing Then
            nr("解绑日期") =Date.Today
        Else
            nr =  DataTables("流量卡绑定商户历史记录表").addnew
            nr("流量卡ID") =dr("流量卡ID")
            nr("流量卡号") =dr("流量卡号")
            nr("类型") =dr("类型")
            nr("商户ID") =dr("商户ID")
            nr("商户名称") =dr("商户名称")
            nr("客户ID") =dr("客户ID")
            nr("客户姓名") =dr("客户姓名")
            nr("绑定日期") =Date.Today
            nr("解绑日期") =Date.Today
        End If