项目文件打不开 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 项目文件打不开

共有3593人关注过本帖树形打印复制链接主题：项目文件打不开

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110766 积分：563762 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/8 20:55:00 [显示全部帖子]

afteropenproject代码执行死循环了

If sd >=d

Dim i As Integer =1

Do While i<= dr("支付年限")

nr = dt.AddNew

nr("工程编号") = dr("工程编号")

nr("工程类别") = dr("工程类别")

nr("应结工程款日期") = sd.AddYears(1)

nr("需付资金") = dr("镇级应付价") * dr("第" & i & "年")

i = i + 1

Loop

End If

主题：项目文件打不开