帮忙看看代码那错了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙看看代码那错了？

共有2344人关注过本帖树形打印复制链接主题：帮忙看看代码那错了？

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/7/9 14:02:00 [只看该作者]

上传例子

kaiyu

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

加好友

发短信

等级：三尾狐帖子：770 积分：7813 威望：0 精华：0 注册：2014/4/21 15:16:00

Post By：2016/7/9 14:03:00 [只看该作者]

Select Case e.DataCol.name
    Case "编号","付款方式"
        Dim count As Integer = e.DataTable.compute("count(_Identify)", "付款方式 = '" & e.DataRow("付款方式") & "' and 编号 = '" & e.DataRow("编号") & "'")
        If count > 1 Then
            msgbox("重复了")

e.DataRow.Delete
End If
End Select

把CASE 后面的编号去掉试试

manyifuwu

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

加好友

发短信

等级：二尾狐帖子：500 积分：5397 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2016/7/9 18:58:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:关联表条件禁止重复.table

自己怎么都弄不好

希望，有判定重复不添加，如果重复了就删除。

[此贴子已经被作者于2016/7/9 18:59:45编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/10 11:27:00 [只看该作者]

If e.DataCol.Name = "是否" AndAlso e.DataRow("是否") = True Then
    Dim count As Integer = DataTables("表B").compute("count(_Identify)", "[第十列] = '" & e.DataRow("_Identify") & "' and 第一列 = #" & e.DataRow("第一列") & "# and 第二列 = '" & e.DataRow("第二列") & "' and 第三列 = '" & e.DataRow("第三列") & "'")
    If count > 0 Then
        msgbox("不能新增")
        Return
    End If
    Dim nma() As String = {"第十列","第一列","第二列","第三列","第四列","第五列","第六列"} 'A表数据来源列
    Dim nmb() As String = {"第十列","第一列","第二列","第三列","第四列","第五列","第六列"} 'B表数据接收列
    Dim dr As DataRow = DataTables("表B").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

manyifuwu

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

加好友

发短信

等级：二尾狐帖子：500 积分：5397 威望：0 精华：0 注册：2009/2/5 13:09:00

Post By：2016/7/10 13:13:00 [只看该作者]

感谢！非常感谢！

狐表有您更精彩！

即时帮助解决问题，是我们这种非程序员的福音。

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

总数 15 上一页 1 2

主题：帮忙看看代码那错了？