- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 计算张数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140808)
-- 发布时间：2019/9/15 3:19:00
-- 计算张数
Dim t1 As Table = Tables("开票明细")
Dim cn As Integer = t1.Rows.Count
Dim f As Double
Dim k As Integer=1
For i As Integer = 0 To cn
Dim P As Row = t1.Rows(i)
Dim S As Row = t1.Rows(i+1)
P("第N张")=k
f = f + P("含税金额")
msgbox(F)
If (f + S("含税金额"))> = e.form.Controls("TextBox7").text Then
msgbox(F+ S("含税金额"))
k = k+1
f = 0
End If
Next
此主题相关图片如下：11.jpg
想不明白，为什么计算出来的结果会是这样的，哪里的罗辑出问题了，我的意思是想：含税金额累计大于指定文本框金额时，累计金额归零，同时张数增加1，但是计算出来的结果不是我所想的。哪里出了问题？？？
-- 发布时间：2019/9/15 3:21:00
--
目前 e.form.Controls("TextBox7").text 的值现在是95000元
-- 发布时间：2019/9/15 8:54:00
--
试试
Dim t1 As Table = Tables("开票明细")
Dim cn As Integer = t1.Rows.Count-1
Dim P As Row = t1.Rows(0)
Dim f As Double = p("含税金额")
p("第N张") = 1
Dim k As Integer=1
Dim s As Row
For i As Integer = 1 To cn
p = t1.Rows(i-1)
s = t1.Rows(i)
f = f + s("含税金额")
If f > 95000 Then
k = k+1
f = 0
s("第N张") = k
End If
Next
-- 发布时间：2019/9/15 10:07:00
--
此主题相关图片如下：22.jpg
-- 发布时间：2019/9/15 10:13:00
--
上传实例测试
-- 发布时间：2019/9/15 11:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2019/9/15 11:30:00
--
真想不明白，使用的计算值提票是没有问题的
-- 发布时间：2019/9/15 11:43:00
--
Dim t1 As Table = Tables("开票明细")
Dim cn As Integer = t1.Rows.Count-1
Dim P As Row = t1.Rows(0)
Dim f As Double = p("含税金额")
p("第N张") = 1
Dim k As Integer=1
Dim s As Row
For i As Integer = 1 To cn
s = t1.Rows(i)
f = f + s("含税金额")
If f > 95000 Then
k = k+1
f = s("含税金额")
End If
s("第N张") = k
Next
-- 发布时间：2019/9/15 13:47:00
--
还是不行
-- 发布时间：2019/9/15 13:54:00
--
原来我在设属性设置了一段代码