主题：[求助]

 把代码放到命令窗口里执行就行了。

 菜单->杂项->命令窗口

 成绩表要从上述两个表中获得数据，自己看一下代码，改一下就行了。

 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

 楼主，要照葫芦画瓢，不然难有长进。

Dim dt_jilu As DataTable = DataTables("雷鸟成绩记录表")
Dim dt_baoming As DataTable = DataTables("报名表")
Dim dt_chengji As DataTable = DataTables("成绩表")

Dim Ary As String()
dt_chengji.DataRows.Clear
For Each Ary In dt_baoming.GetUniqueValues("项目 like '%雷鸟%'", "编号", "区", "学校", "姓名","组别", "项目", "辅导老师")
    Dim ndr As DataRow = dt_chengji.AddNew
    ndr("编号") = ary(0)
    ndr("区") = ary(1)
    ndr("学校") = ary(2)
    ndr("姓名") = ary(3)
    ndr("组别") = ary(4)
    ndr("项目") = ary(5)
    ndr("辅导老师") = ary(6)
    Dim dr As DataRow = dt_jilu.Find("编号 = " & ary(0))
    If dr IsNot Nothing Then
        ndr("成绩1") = dr("成绩1")
        ndr("成绩2") = dr("成绩2")
    End If
Next