主题：非关联验证

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

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

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

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

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

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

验证后问题：

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

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

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

表A代码还是不行。当表B用料不全时，（比如BV 1.5 PVC J-70的用料空白）表A还是能勾选

表A的代码这样也不行

Select Case e.DataCol.name
    Case "产品型号","产品规格"
        'Dim fdr As DataRow = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
        Dim fdr As List(Of DataRow) = DataTables("表b").Select("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
        'If fdr IsNot Nothing Then
        If fdr IsNot Nothing And DataTables("表b").DataRows("用料") IsNot Nothing Then
            e.DataRow("标识") = True
        Else
            e.DataRow("标识") = False
        End If
End Select

表A的代码没有通过

此主题相关图片如下：非关联.gif

我上传的是GIF动画,怎么不动呢?

改变规格内容，勾选不符合要求,特别是表B有多条对应记录,不是找到1条用料就勾选,如果有1条用料是空的就不勾选

外出刚回.可以啦,谢谢