关于统计的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim m,n As Integer
Select Case e.DataCol.name
    Case "备注","开始日期", "结束时间"
        If e.DataRow.isnull("备注") = false Then
            m = e.DataRow("备注").split(",").Length
        End If
        If e.DataRow.IsNull("开始日期") = False AndAlso e.DataRow.IsNull("结束时间") = False
            n = DateDiff("d",e.DataRow("开始日期"),e.DataRow("结束时间")) + 1
        End If
        e.DataRow("合计") = m + n
End Select

[此贴子已经被作者于2012-11-11 15:58:26编辑过]

主题：关于统计的问题