- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 将商品绑定客户 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101952)
-- 发布时间：2017/6/10 15:47:00
-- 将商品绑定客户
有两个表其中一个表是“机具库存表”字段有(机具型号、机具条码、机具是否绑定、客户姓名、备注等字段）
另一个表是“客户表”字段有（客户姓名、客户手主机号、第二手机号、、第三手机号、商户名称、地址、备注等字段）
在
建立关系是主表是“客户表”子表示分别是“机具库存表”
现在窗体上有“绑定客户按钮”和“文本框”两个控件。想实现通过通过窗体上“文本框”中输入‘机具条码’再单击“绑定客户”按钮。 第一步先判断“机具库存表”是否有该条数据。如果没有该数据，弹出一个提示框终止操作；第二部是如果有该数据在判断是否为已绑定客户，如果已绑定客户，则弹出一个提示框，终止操作，如果未绑定客户，则执行则弹出一个对话框提示客户是否绑定客户，如果单击是则执行将已查找的“机具库存表”数据绑定到“客户表”中的‘客户姓名’并将“机具库存表”中的‘机具是否绑定’字段标记为已绑定状态；如果单击否则终止操作。
谢谢各位老师给指点指点！
-- 发布时间：2017/6/10 16:06:00
--
按钮代码
Dim dr As DataRow = DataTables("表B").Find("机具条码=\'" & e.Form.controls("文本框").Text & "\'")
If dr Is Nothing Then
msgbox("没有数据")
ElseIf dr.IsNull("客户姓名") = False Then
msgbox("已绑定")
Else
If MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNo) = DialogResult.Yes Then
dr("客户姓名") = Tables("客户表").Current("客户姓名")
dr("机具是否绑定") = True
End If
End If
-- 发布时间：2017/6/10 22:10:00
--
运行时出错
此主题相关图片如下：122.png
-- 发布时间：2017/6/11 15:45:00
--
贴出你写的代码
-- 发布时间：2017/6/11 16:56:00
--
老师你好！是我写错代码了现在好了。如果是要解绑客户怎么写呀。是不是将后面的代码赋空值就可以了对吗?
-- 发布时间：2017/6/11 18:46:00
--
赋值为false，或者nothing
dr("机具是否绑定") = False