[求助]两列值不重复，跨表对应两列不存在就填入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]两列值不重复，跨表对应两列不存在就填入

共有2120人关注过本帖树形打印复制链接主题：[求助]两列值不重复，跨表对应两列不存在就填入

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/28 16:57:00 [显示全部帖子]

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/28 16:59:00 [显示全部帖子]

2、改成

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/28 18:03:00 [显示全部帖子]

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

下一主题 >> << 上一主题

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