主题：非关联验证

不想建立表的关联，想要以下结果

1、如果表B有对应的产品用料，(所有材料的用料)则勾选[标识]；

2、如果在表B编辑和新增产品的用料，则勾选表A的[标识]

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

点击浏览该文件:非关联.foxdb

 参考

 

http://www.foxtable.com/webhelp/scr/1453.htm

 

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

点击浏览该文件:非关联.foxdb

能贴出代码吗,我还没有升级

 

表A_DataColChanged

 

Select Case e.DataCol.name

    Case "产品型号","产品规格"

        Dim fdr As DataRow = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")

        If fdr IsNot Nothing Then

            e.DataRow("标识") = True

        Else

            e.DataRow("标识") = False

        End If

End Select

 

表B_DataColChanged

 

If e.DataCol.name = "产品型号" Then

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.oldvalue & "' and 产品规格='" & e.DataRow("产品规格") & "'")

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")

End If

If e.DataCol.name = "产品规格" Then

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.OldValue & "'")

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")

End If

验证后问题：

1、表B每个产品有两行，必须都有数据才能勾选，删除任一行数据都勾选不了或去掉勾选

 不明白你的问题。如何知道表A的数据对应两行还是三行还是四行？

表A与表B实际是一对多(表A是一,表B是多)

只有表B的用料都有数据(对应产品)才能在表A勾选

 

Select Case e.DataCol.name

    Case "产品型号","产品规格"

        Dim fdr As DataRow = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")

        If fdr IsNot Nothing Then

            e.DataRow("标识") = True

        Else

            e.DataRow("标识") = False

        End If

End Select

 

表B_DataColChanged

 

If e.DataCol.name = "产品型号" Then

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.oldvalue & "' and 产品规格='" & e.DataRow("产品规格") & "' and 用料 > 0")

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "' and 用料 > 0")

End If

If e.DataCol.name = "产品规格" Then

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.OldValue & "'")

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")

End If

If e.DataCol.name = "用料" Then

    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")

End If