共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：求代码
1楼
老有所乐 发表于：2009/12/30 22:39:00要求在表A填入日期，当“月”列为1时，表B“月”为12的最后一行的“余额”（50）自动填入到表A的“月”为1的行的“上年结余”行中。请教老师代码如何写？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
2楼
老有所乐 发表于：2009/12/30 23:53:00换句话说，就是要求将表B2008年12月最后一行的余额即50填入到表A的第一行的上年结存中。谢谢关注帮助！
3楼
mr725 发表于：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("余额")
Dim ra As DataRow
ra = DataTables("表A").Find("[月] = '1'")
Dim rb As DataRow
rb = DataTables("表B").Find("[月] = '12'", "日期 Desc")
ra("上年结存") = rb("余额")
4楼
老有所乐 发表于：2009/12/31 10:54:00谢谢mr725老师！
[此贴子已经被作者于2009-12-31 11:04:20编辑过]
共4 条记录, 每页显示 10 条, 页签:
[1]