主题：[求助]两列值不重复，跨表对应两列不存在就填入

跨表填入对应两列值，请教

 

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

点击浏览该文件:两列值不重复，跨表对应两列不存在就填入.foxdb

此主题相关图片如下：两列值，中间表不存在就新建一行填入这两列的值.png


此主题相关图片如下：自动填入类型管理表，对应的这两列.png

还有1个问题请教，就是自动编号不知道和那段代码冲突了，帮忙也看看了

此主题相关图片如下：ctrl+d复制 立面图 报错，怎么修改？.png

1、没看懂你问题，哪个表做哪些操作后，怎么增加怎么赋值？

2、改成

 

                    idx = CInt(max.Substring(lb.length,3)) + 1 '获得最大编号的后三位顺序号,并加1

想实现的是表：中间表，新增一行，填入类型管理表的两列值

不知我描述是否清楚没有

此主题相关图片如下：想实现的效果.png

版主，帮忙看看了，我的问题重新描述了一下

Select Case e.DataCol.name
    Case "类型编号","类型名称"
        If e.DataRow.IsNull("类型编号") = False AndAlso e.DataRow.IsNull("问题编号") = False Then
            Dim fdr As DataRow = DataTables("中间表").Find("类型编号 = '" & e.DataRow("类型编号") & "' and 问题编号 = '" & e.DataRow("问题编号") & "'")
            If fdr Is Nothing Then
                Dim ndr As DataRow = DataTables("中间表").addnew
                ndr("类型编号") = e.DataRow("类型编号")
                ndr("问题编号") = e.DataRow("问题编号")
            End If
        End If
End Select

 完美解决，谢了，辛苦了

如果find不是整个DataTable，而是当前已筛选过的行， 7楼代码怎么修改？ 求助

Dim fdr As DataRow = DataTables("中间表").Find(filter )