没看懂你的逻辑。

上传具体项目，说明要计算什么，最后计算结果放到哪里。

比如代码

Dim n = DataTables("表A").Compute("count(流水号)", "流水号 = \'48615\' and 页码 like \'%-%\'")

msgbox(n)

参考

http://www.foxtable.com/webhelp/scr/2394.htm

刷新表格DAJG_SSFZXX列“LSH”，运行如下代码，为什么系统会崩溃呢？如何解决？

   For Each nm As String In DataTables("DAJG_SSJCBM").GetValues("LSH")
            Dim dr As DataRow =  DataTables("DAJG_SSFZXX").AddNew()
            dr("LSH") = nm
            Dim n = DataTables("DAJG_SSJCYX").Compute("count([LSH])", "LSH = \'nm\' and YEMA Like \'%-%\'")
            msgbox(n)
            If e.DataRow.IsNull("LSH") = False Then
                Dim Filter As String = "[LSH] = \'" & e.DataRow("LSH") & "\' and [JZLB] =  \'Z\'  "
                Dim maxCH As String = DataTables("DAJG_SSJCBM").compute("max(CH)", Filter)
                Dim maxP2 As String = DataTables("DAJG_SSJCBM").compute("max(P2)", filter)
                If maxCH = Nothing Then
                    e.DataRow("ZJCS") = 0
                    e.DataRow("ZJYS") = 0
                Else
                    e.DataRow("ZJCS") = maxCH
                    e.DataRow("ZJYS") = maxP2 +3 + n                    
                End If
                Dim FilterB As String = "[LSH] = \'" & e.DataRow("LSH") & "\' and [JZLB] =  \'F\'  "
                Dim maxCHB As String = DataTables("DAJG_SSJCBM").compute("max(CH)", FilterB)
                Dim maxP2B As String = DataTables("DAJG_SSJCBM").compute("max(P2)", filterB)
                If maxCHB = Nothing Then
                    e.DataRow("FJCS") = 0
                    e.DataRow("FJYS") = 0
                Else
                    e.DataRow("FJCS") = maxCHB
                    e.DataRow("FJYS") = maxP2B +3 + n                    

                End If
            End If
            Dim dr1 As DataRow = e.DataRow
            dr1("AJZCS") = dr1("ZJCS") + dr1("FJCS")
           
        Next

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

点击浏览该文件:ls.zip