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

老师还是不更新，是不是必须以“机具库存资料表”的“机具ID”作为主键和“商户资料表”的"机具ID”建立关系才可以的呀；我的表不是这样的我是以“商户资料表”的“商户ID”作为主键和“机具资料表”的"商户ID "建立关系的。但是“商户资料表”的"机具ID" 是引用机具资料表中的"机具ID"的。老师应该怎么处理呀？

回复楼上，你修改代码后，重置列了吗？或者输入新的数据测试了吗？请认真测试。

而且，你列名要写正确

 

Select  Case e.DataCol.Name
    Case  "机具ID"

        msgbox(e.newvalue)
        Dim Filter  As  String =  "[机具ID] = '" & e.oldvalue & "'"
        Dim drs  As  List(Of DataRow) =  DataTables("商户资料表").Select(Filter)
        For  Each dr  As  DataRow  In drs
            dr("机具ID") = e.NewValue
        Next
End  Select
    

老师"机具ID"能更新了，但是“机具条码”还是不更新" ，我的“商户资料表"中“机具ID"和"机具条码”两个字段都来同时源于“机具库存资料表”。应该“机具库存资料表”中“机具ID"和"机具条码”两个字段只要发生改变后，应该“商户资料表"中的“机具ID"和"机具条码”两个字段要立即更新才对。

 

Select  Case e.DataCol.Name
    Case  "机具ID"
        Dim Filter  As  String =  "[机具ID] = '" & e.oldvalue & "'"
        Dim drs  As  List(Of DataRow) =  DataTables("商户资料表").Select(Filter)
        For  Each dr  As  DataRow  In drs
            dr("机具ID") = e.NewValue

            dr("机具条码") = e.datarow("机具条码")
        Next

    Case  "机具条码"
        Dim Filter  As  String =  "[机具ID] = '" & e.datarow("机具id") & "'"
        Dim drs  As  List(Of DataRow) =  DataTables("商户资料表").Select(Filter)
        For  Each dr  As  DataRow  In drs

            dr("机具条码") = e.datarow("机具条码")
        Next   
End  Select

在哪连接自己的数据库？？？？？？？？？？？？

 

http://www.foxtable.com/webhelp/scr/1420.htm‘