Dim dt As DataTable = DataTables("雷鸟成绩记录表") Dim dt1 As DataTable = DataTables("报名表") Dim dr,fr As DataRow Dim Ary As String() dt.DataRows.Clear For Each Ary In dt1.GetUniqueValues("项目 like '%雷鸟%'","序号","编号","姓名","组别") dr = dt.AddNew dr("序号") = Ary(0) dr("编号") = Ary(1) dr("姓名") = Ary(2) dr("组别") = Ary(3) Next