主题：[求助]

你现在的难点是什么

"成绩表"从以上两个表中自动呢获取数据.如何编写代码？

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

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