主题：关于添加数据

 

 

此主题相关图片如下：56668.png

代码没问题，上传实例测试。

在POS机库存资料表选择商户ID选择商户表中已绑定的机具

此主题相关图片如下：001.png

单击否

此主题相关图片如下：002.png

POS机库存资料表中的商户名称不赋值

此主题相关图片如下：003.png

 

此主题相关图片如下：004.png

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:商户入库.rar

 

 

怎么回事呀？代码也找不出问题呀/

是不是得先个商户资料表复制后再获取该行的数据呀？因为没给新行赋值前只有商户编号是自动编号有数值其他字段是没有数据的，应该是这种原因吧？

 

 

老师 POS机库存资料表中的商户名称不赋值的问题已经解决，就是执行代码的先后顺序的问题

 

如果已经绑定机具，则执行弹出一个是否解绑选择对话框有三个选择(是、否、取消)1、选择“是”则执行解绑旧机具后重新绑定新机具（出现POS机资料表中原数据的商户ID和商户名称不清空）；造成机具假绑定现象    还没解决

 

 

            Else
                Dim Result As DialogResult = MessageBox.Show("该商户已经绑定机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否添加新商户放弃绑定新商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
                If result = DialogResult.Yes Then
                    systemready = False
                    For Each dr As DataRow In tbl1.DataTable.Select("机具Id = '" &  tbl.Current("机具ID") & "'")
                        dr("商户ID") = Nothing
                        dr("商户名称") = Nothing
                    Next
                    e.Form.DropDownBox.Value = tbl.Current("商户ID")
                    tbl1.Current("商户ID") = tbl.Current("商户ID")
                    tbl1.Current("商户名称")= tbl.Current("商户名称")
                    tbl1.Current("客户ID")= tbl.Current("客户ID")
                    tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                    tbl.Current("机具ID")= tbl1.Current("机具ID")
                    tbl.Current("机具条码")= tbl1.Current("机具条码")
                    msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                    systemready =True
                    Return

甜老师如是在POS机库存资料表商户ID添加绑定商户时能实现以上功能，如果是POS机库存资料表商户ID已经存在时做修改的时候商户资料表中的机具ID和机具条码不发生清空的出现一台机具绑定了两台以上机具（这是绝不允许出现的现象）怎么解决呢？
此主题相关图片如下：0005.jpg

Else
                Dim Result As DialogResult = MessageBox.Show("该商户已经绑定机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否添加新商户放弃绑定新商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
                If result = DialogResult.Yes Then
                    systemready = False
                    For Each dr As DataRow In tbl1.DataTable.Select("机具Id = '" &  tbl.Current("机具ID") & "'")
                        dr("商户ID") = Nothing
                        dr("商户名称") = Nothing
                    Next

                    For Each dr As DataRow In tbl.DataTable.Select("机具Id = '" &  tbl1.Current("机具ID") & "'")
                        dr("机具ID") = Nothing
                        dr("机具条码") = Nothing
                    Next
                    e.Form.DropDownBox.Value = tbl.Current("商户ID")
                    tbl1.Current("商户ID") = tbl.Current("商户ID")
                    tbl1.Current("商户名称")= tbl.Current("商户名称")
                    tbl1.Current("客户ID")= tbl.Current("客户ID")
                    tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                    tbl.Current("机具ID")= tbl1.Current("机具ID")
                    tbl.Current("机具条码")= tbl1.Current("机具条码")
                    msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                    systemready =True
                    Return

甜老师运行效果一样的

                    For Each dr As DataRow In tbl1.DataTable.Select("机具Id = '" &  tbl.Current("机具ID") & "'")
                        dr("商户ID") = Nothing
                        dr("商户名称") = Nothing
                    Next

                    For Each dr As DataRow In tbl.DataTable.Select("机具Id = '" &  tbl1.Current("机具ID") & "'")
                        dr("机具ID") = Nothing
                        dr("机具条码") = Nothing
                    Next

如果有问题，请截图说明：1、原始数据是什么样的；2、修改哪行数据；3、最后要做到什么结果。

谢谢甜老师