主题：计算张数

Dim t1 As Table = Tables("开piao明细")
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，但是计算出来的结果不是我所想的。哪里出了问题？？？

目前 e.form.Controls("TextBox7").text 的值现在是95000元

此主题相关图片如下：22.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

真想不明白，使用的计算值提piao是没有问题的

还是不行

原来我在设属性设置了一段代码

终于解决了，多谢