[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有8082人关注过本帖树形打印复制链接主题：[求助]

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

[求助]

Post By：2012/12/14 9:54:00 [只看该作者]

求绝对值表达式为：Abs(-12) 不报错，也不执行。请指点！

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/14 10:00:00 [只看该作者]

呃，对于表达式，不能这样求值。

IIF(-12 < 0, -12 * -1, -12)

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2012/12/14 10:04:00 [只看该作者]

谢谢！！！

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2012/12/17 11:54:00 [只看该作者]

从“临时报名表”向“报名表”填充《区》、《学校》，不重复的数据，就是说：如果某区某校已经报名，就不能够再次报名。

Dim dt As DataTable = DataTables("临时报名表")
Dim qus As List(Of String)= dt.GetUniqueValues("", "区")
Dim xxs As List(Of String)= dt.GetUniqueValues("", "学校")

For Each qu As String In qus
    For Each xx As String In xxs

        If DataTables("报名表").Find("区 = '" & qu.Text & "' And 学校 = '" & xx.Text & "'") Is Nothing Then
            )
            Dim f As New Filler
            f.SourceTable = dt '指定数据来源
            f.DataTable = DataTables("报名表") '指定数据接收表
            f.Fill() '填充数据
        End If
Next
Next

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

主题：[求助]