主题：[求助]

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2013市空模.table

现在想“雷鸟成绩记录表”从“报名表”中自动获取所有项目为“雷鸟。。。。”的数据行并添加到对应的列。

"成绩表"从以上两个表中自动呢获取数据。

请专家指点

谢谢！！！

 

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

("项目 like '%雷鸟%'","序号","

请问 上述代码改 % 为 * 如何处理

什么意思？

"雷鸟"*

你是要结果，还是要过程方法

谢谢指教！成绩表要从上述两个表中获得数据'，怎么解决?请指教！！！ 上述代码编辑在什幺地方？

谢谢指教！成绩表要从上述两个表中获得数据'，怎么解决?请指教！！！

上述代码编辑在什幺地方最好！？

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

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

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

 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