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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码问题

共有2314人关注过本帖树形打印复制链接主题：代码问题

有点蓝

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

加好友

发短信

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

Post By：2016/9/8 16:22:00 [显示全部帖子]

For j As Integer = t.TopPosition To t.BottomPosition
Dim dr As Row = t.rows(j)
if sum3 > 0

str &= i & "、" & dr("项目简称") & ":(1)当日资金可用余额:" & Format(dr("资金可用余额") ,"0.00") & "万元;(2)当日销售情况:现金收款" & Format(dr("当天收入截至当天17时_现金回款额") ,"0.00") & "万元;(3)当日共支出:" & Format(dr("支出合计") ,"0.00") & "万元;其中土地支出:" & Format(dr("当天支出截至当天17时_土地支出") ,"0.00") & "万元."

else

endif

str &= vbcrlf
i += 1
Next

有点蓝

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

加好友

发短信

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

Post By：2016/9/8 17:27:00 [显示全部帖子]

msgbox(sum3)看看

[此贴子已经被作者于2016/9/8 17:27:29编辑过]

有点蓝

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

加好友

发短信

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

Post By：2016/9/8 17:45:00 [显示全部帖子]

是让你弹出sum3的值看看

有点蓝

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

加好友

发短信

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

Post By：2016/9/8 18:03:00 [显示全部帖子]

不明白你想要做什么。

重新整理下问题，详细说明，最好上例子

有点蓝

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

加好友

发短信

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

Post By：2016/9/8 20:39:00 [显示全部帖子]

这个合计的判断是指整表的合计还是某个项目的合计？

如果是后者，这样

For j As Integer = t.TopPosition To t.BottomPosition

Dim dr As Row = t.rows(j)

sum3 = DataTables("日报表").Compute("Sum(支出合计)","项目名称='" & dr("项目名称") & "'")

If sum3 > 0 Then

str &= i & "、" & dr("项目名称") & ":(1)当日资金可用余额:" & Format(dr("资金可用余额") ,"0.00") & "万元;(2)当日销售情况:现金收款" & Format(dr("当天收入截至当天17时_现金回款额") ,"0.00") & "万元;(3)当日共支出:" & Format(dr("支出合计") ,"0.00") & "万元;其中土地支出:" & Format(dr("当天支出截至当天17时_土地支出") ,"0.00") & "万元;设计费:" & Format(dr("当天支出截至当天17时_设计费") ,"0.00") & "万元。"

Else

End If

str &= vbcrlf

i += 1

下一主题 >> << 上一主题

主题：代码问题