- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5705)
-- 发布时间：2009/12/30 22:39:00
-- 求代码
要求在表A填入日期，当“月”列为1时，表B“月”为12的最后一行的“余额”（50）自动填入到表A的“月”为1的行的“上年结余”行中。请教老师代码如何写？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2009/12/30 23:53:00
--
换句话说，就是要求将表B2008年12月最后一行的余额即50填入到表A的第一行的上年结存中。谢谢关注帮助！
-- 发布时间：2009/12/31 1:04:00
--
你总是问题说不清楚（肯定还有其他条件），要按你1楼的就简单了：
Dim ra As DataRow
ra = DataTables("表A").Find("[月] = \'1\'")
Dim rb As DataRow
rb = DataTables("表B").Find("[月] = \'12\'", "日期 Desc")
ra("上年结存") = rb("余额")
-- 发布时间：2009/12/31 10:54:00
--
谢谢mr725老师！
[此贴子已经被作者于2009-12-31 11:04:20编辑过]