- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 循环语句的学习 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146576)
-- 发布时间：2020/2/26 20:34:00
-- 循环语句的学习
我想实现一个合同资金预测的功能，请帮编段代码，让我学习一下循环语句的使用：样表及要求见附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:基表.xlsx |
请指教，谢谢！！
-- 发布时间：2020/2/26 21:21:00
--
一个典型的循环:
FOR each r as row in tables("表A").ROWS
tables("表B").Addnew
tables("表B").current("工程合同编号")=r("工程合同编号")
tables("表B").current("工程类别")=r("工程类别")
NEXT
-- 发布时间：2020/2/27 9:57:00
--
2楼的代码应该这样用，尽量不要使用current，有时候不经意的其它事件可能会导致选择的行变化，current行就不是原来的行了
dim r as row
FOR each r as row in tables("表A").ROWS
r = tables("表B").Addnew
r("工程合同编号")=r("工程合同编号")
r("工程类别")=r("工程类别")
NEXT
-- 发布时间：2020/2/27 10:26:00
--
又学到了一招
,谢谢 有点蓝大师
-- 发布时间：2020/2/27 22:35:00
--
应结工程款日期和应结金额两列的数据怎么得到呢？请指教，谢谢！！
-- 发布时间：2020/2/28 0:03:00
--
应结工程款日期你没给呀,所以应结金额也没法算
-- 发布时间：2020/2/28 9:55:00
--
请详细描述一下计算规则，以 HT0001举例说明一下，B表应该存储什么结果？
-- 发布时间：2020/2/28 14:35:00
--
根据合同明细表生成资金预算表，具体要求：在资金预算表的右侧
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:基础表.xlsx |
-- 发布时间：2020/2/28 16:39:00
--
Dim dt As DataTable = DataTables("资金预算表")
dt.StopRedraw
Dim d As Date = Date.Today
Dim nr As DataRow
For Each dr As DataRow In DataTables("合同明细表").DataRows
Dim sd As Date = dr("履约开始日期")
Dim i As Integer = 1
Do While i<=dr("合同期")
sd = sd.AddYears(1)
If sd >= d
nr = dt.AddNew
nr("工程合同编号") = dr("工程合同编号")
nr("应结工程款日期") = sd
nr("应结金额") = dr("合同金额") * dr("第" & i & "年")
End If
i += 1
Loop
Next
dt.ResumeRedraw
-- 发布时间：2020/3/4 8:57:00
--
我上例中对资金需求理解有误，重新说明如下：
1、工程期限不等于支付期限；（“工程主表”中）
2、支付依据：镇级应付价（“工程主表”中）
3、支付工程款常出现：有时滞后支付，有时不按合同约定比例支付；（见“支付明细表”）
我想根据“工程主表”中的各年支付比例和“支付明细表”中各年的实际支付金额，生成一个“资金预算表”：
要求：
1、未到期的逐年计算“需付资金”
2、已到期中，未支付完毕的资金列入本年度的“需付资金”
请指教，谢谢！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工程管理.rar |