比如统计代码

Dim Filter As String = "LSH = \'" & e.datarow("LSH") & "\' and LB = \'Z\'"

Dim max As String = DataTables("表A").compute("max(P2)", filter)

e.datarow("ZJYS") = max

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

谢谢版主!

但发现一点小问题：除了LSH号为“17120820”的那个页数“70”正确，其它都不正确。不清楚是什么原因？

几个月前在各版主大力支持下，生吞活剥地设计了一个软件，倒是挺好使。但现在好久没有时间研究FOXTABLE，好多新知识没学会，倒是有的基础知识都忘了。现在急用，所以只好再次求助版主。我直接给出文件，请帮忙。谢谢!

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

点击浏览该文件:test.foxdb

谢谢提醒!

请版主再帮我看看代码：

1、为什么重置表“DAJG_SSFZXX”中“LSH”列时，会自动增加311行，而不是GetValues("LSH")之后流水号不重复的10行？

2、如何实现系统保存时，自动重置表“DAJG_SSFZXX”呢？

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

点击浏览该文件:test1.foxdb

1、项目事件MainTableChanged中加入下面的代码：

If MainTable.Name = "DAJG_SSFZXX" Then
    DataTables("DAJG_SSFZXX").DataCols("LSH").RaiseDataColChanged()
End If

2、将表"DAJG_SSFZXX"中的DataColChanged事件代码改为，仍然存在生成许多空行问题。还是没太明白原因是什么？

Dim V1 As List(of String)
V1 = DataTables("DAJG_SSJCBM").GetValues("LSH")
\' Output.Show(V1.Count -1)
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)

Select Case e.DataCol.Name
    Case "LSH"
        For i As Integer = 0 To V1.Count -1
            DataTables("DAJG_SSFZXX").AddNew()
            Dim dr1 As DataRow = DataTables("DAJG_SSFZXX").DataRows(i)
            dr1("LSH") = V1(i)
            e.DataRow("ZJCS") = maxCH
            e.DataRow("ZJYS") = maxP2
        Next
End Select
\' DataTables("DAJG_SSFZXX").DeleteFor("[LSH] IS NULL" )

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

点击浏览该文件:test2.foxdb

太感谢了!这么晚了，居然还能回复。