主题：[求助]

从林老师那里学习到跨表引用数据，进行了修改，加了一个防止重复引入的条件，执行时不报错，但没反应。请指教！！！

     从报名表引用数据到DataTables(""& xzb.text & "")，不加防止重复引入的条件时，执行正常。

 

Dim jsmc As WinForm.ComboBox = e.Form.Controls("竞赛名称")
Dim xzb As WinForm.ComboBox = e.Form.Controls("选择表")
Dim xm As WinForm.ComboBox = e.Form.Controls("项目")
Dim dt As DataTable = DataTables(""& xzb.text & "")
Dim dt1 As DataTable = DataTables("报名表")
Dim dr,fr As DataRow
Dim Ary As String()

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 dt.Find(flt) Is Nothing Then
           
            For Each Ary In dt1.GetUniqueValues("竞赛名称='" & jsmc.text & "' And 参赛项目  like '*" & xm.Text & "*'","编号","中小学","学校","姓名","场地","参赛项目","竞赛名称")
                dr = dt.AddNew
                dr("编号") = Ary(0)
                dr("中小学") = Ary(1)
                dr("学校") = Ary(2)
                dr("姓名") = Ary(3)
                dr("场地") = Ary(4)
                dr("参赛项目") = Ary(5)
                dr("竞赛名称") = Ary(6)
            Next
        End If
    Next
Next

DataTables(""& xzb.text & "").AllowEdit = False

这是从您那里学习的引用语句，执行正常，现在想加入一个防止重复引用的条件

Dim xzb As WinForm.ComboBox = e.Form.Controls("选择表")
Dim xm As WinForm.ComboBox = e.Form.Controls("项目")
Dim dt As DataTable = DataTables(""& xzb.text & "")
Dim dt1 As DataTable = DataTables("报名表")
Dim dr,fr As DataRow
Dim Ary As String()
For Each Ary In dt1.GetUniqueValues("参赛项目  like '*" & xm.Text & "*'","编号","中小学","学校","姓名","组别","场地")
    dr = dt.AddNew
    dr("编号") = Ary(0)
    dr("中小学") = Ary(1)
    dr("学校") = Ary(2)
    dr("姓名") = Ary(3)
    dr("组别") = Ary(4)
    dr("场地") = Ary(5)
Next

DataTables(""& xzb.text & "").AllowEdit = False

某一名学生已经被引入，下一次引入时不会再把他引入进来。

经过测试，还是可以重复引用。再想想办法，拜托了！

你说的填充方案我学习了，感觉不适用我的方案。

 

哦！这我早就改过来试了，根本就不执行。

现在又试了一次，还是不执行，也没有错误提示。

 

导航栏---编排----记录表编排------导入数据

项目已上传，你修改后只上传修改 的代码！！！

是你下载的吗？

 

你那里有例子，你先试一下。

拜托了！！！

 从 报名表  接收数据   引用到  DataTables(""& xzb.text & "").

例子已用qq传给你了，拜托你弄一下。======

谢谢！今天为这条代码纠结了一天，换过去倒过来把人都搞晕了。现在解决了。其实上面的代码我也试过。不知是人荤了还是电脑晕了………………现在终于解决了。谢了！！！