从“临时报名表”向“报名表”填充《区》、《学校》,不重复的数据,就是说:如果某区某校已经报名,就不能够再次报名。下面代码报错,请指教!!!
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