| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 加载数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25420) |
| -- 作者：wilson -- 发布时间：2012/11/8 21:04:00 -- 加载数据 现有表A与表B 两个表 ，表A 表B 都有 编号列 如果表A的编号列里有6行数据分别为 dd1 dd2 dd3 dd6 dd7 dd8 ，我想点击按钮表B也同样加载编号为 dd1 dd2 dd3 dd6 dd7 dd8 的行。 如果表B的数据源不存在dd6 ，那么提示表B不存在dd6
求助，表B如何加载数据。
谢谢！
|
| -- 作者：pyh6918 -- 发布时间：2012/11/8 21:17:00 -- 用填充的方式 |
| -- 作者：lin_hailun -- 发布时间：2012/11/8 21:27:00 -- 如果不存在dd6，还加载数据不？ |
| -- 作者：wilson -- 发布时间：2012/11/8 21:51:00 -- 谢谢！ 提示不存在DD6,加载其他数据 |
| -- 作者：wilson -- 发布时间：2012/11/8 21:56:00 -- 谢谢！ 是从表B的外部数据源，加载到表B ,我认为是不能用填充 |
| -- 作者：lin_hailun -- 发布时间：2012/11/8 23:17:00 -- 从效率来说，就先加载，再比较吧。 dim str_bianhao as string = "" dim ary_bianhao(datatables("A").datarows - 1) as string dim i as integer = 0 for each dr as datarow in datatables("A").datarows str_bianhao = str_bianhao & "\'" & dr("编号") & "\'," ary_bianhao(i) = dr("编号") next datatables("B").loadfilter = "编号 in (" & str_bianhao.trim(",") & ")" datatables("B").load for each bianhao as string in ary_bianhao if datatables("B").find("编号 = \'" & bianhao & "\'" ) is nothing then msgbox(bianhao & "不存在") end if next [此贴子已经被作者于2012-11-8 23:18:12编辑过]
|
| -- 作者：wilson -- 发布时间：2012/11/9 10:05:00 -- 问题已解决 非常感谢！
|