Foxtable(狐表)用户栏目专家坐堂 → 在每一个合同的第一行


  共有10862人关注过本帖树形打印复制链接

主题:在每一个合同的第一行

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
在每一个合同的第一行  发帖心情 Post By:2011/7/5 11:06:00 [只看该作者]

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


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

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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


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


 回到顶部