老师，你好！窗口上有一表Tables(_Sys_lsb2+"_Table1")，窗口AfterLoad部分代码：
Dim Builder As New DataTableBuilder("统计")
Dim str As String = ""
Builder.Adddef("内 容",Gettype(String),20)
Do
Dim nm As String = dt.Year & "年_" & dt.Month & "月"
If nm<>str Then
str=nm
Builder.Adddef(nm,Gettype(Double))
End If
dt = dt.Adddays(1)
If dt > Enddate Then
Exit Do
End If
Loop
Tables(_Sys_lsb2+"_Table1").DataSource = Builder.BuildDataSource
有一按钮，部分代码：
Dim st As Double
For Each cl As Col In Tables(_Sys_lsb2+"_Table1").Cols
If cl.Name <> "内 容" Then
st = Tables(_Sys_lsb2+"_Table1").Compute("Sum(cl.Name)")
End If
Next
结果：st都为0，不对，不知是啥原因。
请老师指正一下，谢谢！
加好友 
发短信
Post By：2022/2/8 22:59:00 [只看该作者]
