以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQLCompute  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136206)
--  作者：lfz123
--  发布时间：2019/6/9 21:26:00
--  SQLCompute
DataTables("凭证明细")表用了动态加载,Compute改成SQLCompute,系统启动变的奇慢,不知道啥原因

Select Case e.DataCol.name
    Case  "年份","月份","一级码"
        If e.DataRow.IsNull("年份") OrElse e.DataRow.IsNull("月份") OrElse e.DataRow.IsNull("一级码") Then
            e.DataRow("借方金额") = Nothing
            e.DataRow("贷方金额") = Nothing
        Else
            e.DataRow("借方金额") = DataTables("凭证明细").SQLCompute("Sum(借方金额)","年份 = " & e.DataRow("年份") & " And [月份] = " & e.DataRow("月份") & " And [一级码] = \'" & e.DataRow("一级码") & "\'")
            e.DataRow("贷方金额") = DataTables("凭证明细").SQLCompute("Sum(贷方金额)","年份 = " & e.DataRow("年份") & " And [月份] = " & e.DataRow("月份") & " And [一级码] = \'" & e.DataRow("一级码") & "\'")
        End If
End Select
--  作者：有点甜
--  发布时间：2019/6/10 9:11:00
--  

每执行一次sqlcompute，大概耗时0.5秒，请不要重置列。也就是执行太多行数据。

 

如果需要重置列，请单独做一个按钮，加载所有数据出来，然后再用compute计算。