以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这段填充数据的代码错在何处？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26910)
--  作者：wsxdwh
--  发布时间：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
--  发布时间：2012/12/17 13:04:00
--  

====

谢谢！！！
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2012/12/17 14:53:00
--  

谢谢！！！

 
--  作者：狐狸爸爸
--  发布时间：2012/12/17 15:02:00
--  

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