以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  一个问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22041)
--  作者：gygck
--  发布时间：2012/8/1 5:47:00
--  一个问题请教

Select Case e.DataCol.name
    Case "送审值","子项类型","所属项目"
        Dim drs As List(of DataRow) = e.DataTable.Select("所属项目 = \'" & e.DataRow("所属项目") , "子项类型 = \'" & e.DataRow("子项类型") & "\' And 送审值 Is Not Null And 子项类型 Is Not Null And 所属项目 Is Not Null","子项类型")
        Dim sum As Double
        Dim JINE As Double
        Dim DAXIE As String
        For i As Integer = 0 To drs.count - 1
            drs(i)("排列顺序") = i + 1
            sum = sum + drs(i)("送审值")
            drs(i)("累计值") = sum
                    Next

End Select