主题：关于数据库表关系建立

已更新最新版本运行“商户信息窗体”单击"DropDownBox"控件选择数据双击数据行就会出错

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

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

点击浏览该文件:客户关系表 (2).table

全删了还是不行的，在表中运行没问题，就是在窗体在的DropDownBox控件运行时出错

把  DropDownClosed事件中的

田老师不行：在窗体运行后选择客户编号后机具库存表添加的不是所选的的数据而是表中鼠标所在的位置的数据

第二是机具明明未被站用老是提示被占用

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

点击浏览该文件:客户关系表 (2) (1).table

经过测试商户资料表的机具编号不赋值

我又加了一条“ables("商户资料").Current("机具编号")  = tbl.Current("机具编号")”才赋值，为什么  “  e.Form.DropDownBox.Value = tbl.Current("机具编号")”代码不给商户资料表的机具编号赋值呢？

绑定那个表呢？

我的商户资料表和机具库存表的商户编号列都是不可编辑的绑不了，已绑定控件就不能用了

systemready是什么呢？起什么作用呀？

我已经在repareEdit事件中写Tables("商户资料").Cols("商户编号").AllowEdit=False代码了

老师我的商户资料表和机具库存表的商户编号列都是不可编辑的绑不了，已绑定控件就不能用了

Select  Case e.DataCol.Name
     Case  "客户姓名"
          Dim Filter  As  String =  "[客户编号] = '" & e.DataRow("客户编号") & "'"
          Dim drs  As  List(Of DataRow) =  DataTables("客户资料").Select(Filter)
         For  Each dr  As  DataRow  In drs
             dr(e.DataCol.Name) = e.NewValue
         Next
 End  Select

在商户资料表的 DataColChanged 事件中 写如下代码：

If e.DataCol.Name = "客户编号"  Then
     If e.NewValue Is  Nothing  Then
         e.DataRow("法人姓名") =  Nothing
         Else
          Dim dr As  DataRow
         dr =  DataTables("客户资料").Find("[客户编号] = '" & e.NewValue &  "'")
         If dr IsNot Nothing
            e.DataRow("法人姓名") = dr("客户姓名")
              End  If
      End  If
 End  If

运行后如客户表在客户姓名修改后怎么商户资料表的法人姓名不更新呢？

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

点击浏览该文件:客户关系表 (2) (1) (1).table

老师您看看哪错了我在“商户信息窗体”中操作"客户编号"选择客户的时候下拉窗口双击数据选择是出错.

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

点击浏览该文件:客户关系表 (2) (1) (1).table

还有一个问题：

我怎么在“客户信息窗体”中选择一个客户，想将该客户绑定一个商户，选择商户编号的DropDownBox下拉控件下载一个商户双击该商户后即可将“客户资料表”中所选择的数据的“客户编号”和"客户姓名"直接添加到该商户编号对应的各字段中。

现在一运行就错误

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

点击浏览该文件:客户关系表 (2) (1) (2）.table