标题：在每一个合同的第一行

1楼

blackzhu 发表于：2011/7/5 11:06:00

e.DataRow("未付本金")=datatables("合同").Compute("Sum(本金)", "[合同编号] = '" & e.datarow("合同编号") & "'")

这一句代码的结果我想在每一个合同编号的第一行显示.

2楼

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

在未付本金列里面的第一行显示合同表里的本金

3楼

狐狸爸爸 发表于：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

4楼

blackzhu 发表于：2011/7/5 11:43: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

这个代码第一步和第三步都想到了,第二步怎么想都想不到.

共4 条记录, 每页显示 10 条, 页签: [1]