| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 在每一个合同的第一行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11034) |
|
| -- 作者：blackzhu -- 发布时间：2011/7/5 11:06:00 -- 在每一个合同的第一行 e.DataRow("未付本金")=datatables("合同").Compute("Sum(本金)", "[合同编号] = \'" & e.datarow("合同编号") & "\'") 这一句代码的结果我想在每一个合同编号的第一行显示.
|
|
| -- 作者：blackzhu -- 发布时间：2011/7/5 11:11:00 -- 举例: 合同表: 合同编号 本金 开始日期 结束日期 B0001 5000 2011-01-01 2011-04-01 本表: 合同编号 未付本金 开始日期 结束日期 B0001 5000 2011-01-01 2011-02-01 B0001 2011-02-01 2011-03-01 B0001 2011-03-01 3011-04-01 在未付本金列里面的第一行显示合同表里的本金 |
|
| -- 作者：狐狸爸爸 -- 发布时间：2011/7/5 11:21:00 -- Dim drs as List(of datarow) = datatables("本表").Select("合同编号 = \'" & e.datarow(“合同编号") & "\'") If drs(0)("_Identify") = e.Datarow("_Identify") Then e.DataRow("未付本金")=datatables("合同").Compute("Sum(本金)", "[合同编号] = \'" & e.datarow("合同编号") & "\'") End if |
|
| -- 作者：blackzhu -- 发布时间：2011/7/5 11:43:00 -- 谢谢,
|