此主题相关图片如下：微信图片_20231122110855.png
这代码弹窗显示的数据都没错，可窗口里本页合计和本页止累计行的金额列都没显，应如何把结果输到本里。
Dim wbl As WinForm.Table = e.Form.Controls("Table1")
Dim tbl As Table = wbl.Table
With tbl
.DataTable.DeleteFor("[分类] = '本页合计'")
.DataTable.DeleteFor("[分类] = '本页止累计'")
Dim r As Row
Dim s As Double = 0
r = .Rows.AddNew()
r("分类") = "本页合计"
Dim dss As List(Of DataRow) = DataTables("表A").Select("[项目] Is Not Null")
If dss IsNot Nothing Then
For Each ds As DataRow In dss
s = s + ds("金额")
Next
MessageBox.Show(s)
r("金额") = s
r.Save()
End If
r = tbl.Rows.AddNew()
Dim s1 As Double = 0
r("分类") = "本页止累计"
Dim Tel As String = e.Form.Controls("TextBox1").Value
Dim Parts() As String = Tel.Split("/")
Dim a As Double = CDbl(Parts(0)) * 25 - 1
Dim drs As List(Of DataRow) = DataTables("表A").SQLSelect("[项目] Is Not Null")
If drs IsNot Nothing Then
For i1 As Integer = 0 To a
s1 = s1 + drs(i1)("金额")
Next
MessageBox.Show(s1)
r("金额") = s1
r.Save()
End If
End With
[此贴子已经被作者于2023/11/22 11:57:11编辑过]
加好友 
发短信
Post By：2023/11/22 11:24:00 [显示全部帖子]
