主题：[求助]

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

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

是你下载的吗？

 

 代码没有错，请注意细节，你比较的表是什么，你接收的表是什么。

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()

For Each Ary In dt1.GetUniqueValues("竞赛名称='" & jsmc.text & "' And 参赛项目  like '*" & xm.Text & "*'","编号","中小学","学校","姓名","场地","参赛项目","竞赛名称")
    Dim flt As String  = "编号 = '" & ary(0) & "'  And  竞赛名称 = '" & ary(6) & "'"

    If dt.Find(flt) Is Nothing Then   
        dr = dt.AddNew
        dr("编号") = Ary(0)
        dr("中小学") = Ary(1)
        dr("学校") = Ary(2)
        dr("姓名") = Ary(3)
        dr("场地") = Ary(4)
        dr("参赛项目") = Ary(5)
        dr("竞赛名称") = Ary(6)
    End If
Next

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

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

拜托了！！！

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

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

 代码正确，能正常导入。已测试有效。

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()

For Each Ary In dt1.GetUniqueValues("竞赛名称='" & jsmc.text & "' And 参赛项目  like '*" & xm.Text & "*'","编号","中小学","学校","姓名","场地","参赛项目","竞赛名称")
    Dim flt As String  = "编号 = '" & ary(0) & "'  And  竞赛名称 = '" & ary(6) & "'"

    If dt.Find(flt) Is Nothing Then   
        dr = dt.AddNew
        dr("编号") = Ary(0)
        dr("中小学") = Ary(1)
        dr("学校") = Ary(2)
        dr("姓名") = Ary(3)
        dr("场地") = Ary(4)
        dr("参赛项目") = Ary(5)
        dr("竞赛名称") = Ary(6)
    End If
Next

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

 原本代码就是可以的，如果你注意一下dt和dt1的话。

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