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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这段填充数据的代码错在何处？

共有9973人关注过本帖树形打印复制链接主题：这段填充数据的代码错在何处？

wsxdwh

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

加好友

发短信

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

这段填充数据的代码错在何处？ 发帖心情

Post By：2012/12/17 12:40: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

wsxdwh

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

加好友

发短信

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

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

====

谢谢！！！

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/12/17 14:17: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
        Dim flt As String = "区 = '" & qu & "' And 学校 = '" & xx & "'"
        If DataTables("报名表").Find(flt) Is Nothing Then
            Dim f As New Filler
            f.filter = flt
            f.SourceTable = dt '指定数据来源
            f.DataTable = DataTables("报名表") '指定数据接收表
            f.Fill() '填充数据
        End If
    Next
Next

wsxdwh

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

加好友

发短信

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

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

谢谢！！！

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

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

帖子标题，最好简单描述一下问题，不要总是两个字“求助”

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

主题：这段填充数据的代码错在何处？