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

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

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

 你的dropdownbox控件，要绑定表列，才能给表赋值。

绑定那个表呢？

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

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

 

1、绑定 商户资料表的机具编号

 

2、systemready，为了不触发datacolchanged事件  http://www.foxtable.com/webhelp/scr/2218.htm

 

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

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

 

那，你就用81楼的方式，直接赋值。不要绑定。

 

我已在 客户资料表DataColChanged 事件中写如下代码：

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

客户表DataColChanged

 

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.NewValue
         Next
 End  Select

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

 

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

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

 

 

还有一个问题：

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

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

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