- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26386)
-- 发布时间：2012/12/2 13:55:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2013市空模.table |
现在想“雷鸟成绩记录表”从“报名表”中自动获取所有项目为“雷鸟。。。。”的数据行并添加到对应的列。
"成绩表"从以上两个表中自动呢获取数据。
请专家指点
谢谢！！！
-- 发布时间：2012/12/2 15:38:00
--
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
-- 发布时间：2012/12/2 16:58:00
--
("项目 like \'%雷鸟%\'","序号","
请问 上述代码改 % 为 * 如何处理
-- 发布时间：2012/12/2 17:56:00
--
什么意思？
-- 发布时间：2012/12/2 19:18:00
--
"雷鸟"*
-- 发布时间：2012/12/2 20:32:00
--
你是要结果，还是要过程方法
-- 发布时间：2012/12/2 20:42:00
--
谢谢指教！成绩表要从上述两个表中获得数据\'，怎么解决?请指教！！！ 上述代码编辑在什幺地方？
[此贴子已经被作者于2012-12-2 20:44:25编辑过]
-- 发布时间：2012/12/2 22:26:00
--
谢谢指教！成绩表要从上述两个表中获得数据\'，怎么解决?请指教！！！
上述代码编辑在什幺地方最好！？
-- 发布时间：2012/12/3 9:19:00
--
把代码放到命令窗口里执行就行了。
菜单->杂项->命令窗口
成绩表要从上述两个表中获得数据，自己看一下代码，改一下就行了。
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
-- 发布时间：2012/12/3 21:36:00
--
改了好多次都不能解决，请专家指点