主题：[求助]统计

老师好，怎样统计窗口临时加载的外部数据源的数据表。

老师，我是要筛选后在最一行显示合计数。（比如我筛选出每个列名称的数据后合计）

老师，合计行字体想变粗体怎样设置

谢谢老师

老师，把表A第一列数据复制到表A第二列中，望老师帮忙。

谢谢老师

此主题相关图片如下：图像 1.png

老师，下面代码有错误码？上图就是用这个代码，其中一个就是不减掉。（标出的数据）

 

Select Case e.DataCol.Name
    Case "股piao代码","股piao名称"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_Identify] < " & mr("_Identify") & " And [股piao代码] = '" & mr("股piao代码") & "'", "[_Identify] Desc")
        If dr Is Nothing Then
            mr("库存_数量") = mr("买入_数量") - mr("卖出_数量")
            mr("库存_金额") = mr("买入_金额") - mr("卖出_金额")
            dr = mr
        End If
        drs = e.DataTable.Select("[_Identify] >= " & dr("_Identify") & " And [股piao代码] = '" & dr("股piao代码") & "'", "[_Identify]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("库存_数量") = drs(i-1)("库存_数量") + drs(i)("买入_数量") - drs(i)("卖出_数量")
            drs(i)("库存_金额") = drs(i-1)("库存_金额") + drs(i)("买入_金额") - drs(i)("卖出_金额")
        Next
        If e.DataCol.Name = "股piao代码" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_Identify] < " & mr("_Identify") & " And [股piao代码] = '" & e.OldValue & "'", "[_Identify] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[股piao代码] = '" & e.OldValue & "'", "[_Identify]")
                If dr IsNot Nothing Then
                    dr("库存_数量") = dr("买入_数量")- dr("卖出_数量")
                    dr("库存_金额") = dr("买入_金额")- dr("卖出_金额")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_Identify] >= " & dr("_Identify") & " And [股piao代码] = '" & dr("股piao代码") & "'", "[_Identify]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("库存_数量") = drs(i-1)("卖出_金额") + drs(i)("买入_数量") - drs(i)("卖出_数量")
                    drs(i)("库存_金额") = drs(i-1)("库存_数量") + drs(i)("买入_金额") - drs(i)("卖出_金额")
                Next
            End If
        End If
End Select

Select Case e.DataCol.Name
    Case "股piao名称","买入数量","买入金额","卖出数量","卖出金额","买入单价","卖出价格"
        Dim drs As List(of DataRow)
        Dim Filter As String
        Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [股piao名称] = '" & e.DataRow("股piao名称") & "'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "[_SortKey] <= " & dr("_SortKey") & " And [股piao名称] = '" & dr("股piao名称") & "'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(买入数量)",Filter)
            Dim Val2 As Double = e.DataTable.Compute("Sum(卖出数量)",Filter)
            Dim Val3 As Double = e.DataTable.Compute("Sum(买入金额)",Filter)
            Dim Val4 As Double = e.DataTable.Compute("Sum(卖出金额)",Filter)
            Dim Val5 As Double = e.DataTable.Compute("Sum(卖出价格)",Filter)
            Dim Val6 As Double = e.DataTable.Compute("Sum(买入单价)",Filter)
           
            dr("库存_数量") = Val1 - Val2
            dr("库存_金额") = Val3 - Val4
            dr("交易差价") = Val6 - Val5
        Next
        If e.DataCol.Name = "股piao名称" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [股piao名称] = '" & e.OldValue & "'"
            drs = e.DataTable.Select(Filter)
            For Each dr As DataRow In drs
                Filter = "[_SortKey] <= " & dr("_SortKey") & " And [股piao名称] = '" & dr("股piao名称") & "'"
                Dim Val1 As Double = e.DataTable.Compute("Sum(买入数量)",Filter)
                Dim Val2 As Double = e.DataTable.Compute("Sum(卖出数量)",Filter)
                Dim Val3 As Double = e.DataTable.Compute("Sum(买入金额)",Filter)
                Dim Val4 As Double = e.DataTable.Compute("Sum(卖出金额)",Filter)
                Dim Val5 As Double = e.DataTable.Compute("Sum(卖出价格)",Filter)              
                Dim Val6 As Double = e.DataTable.Compute("Sum(买入单价)",Filter)             
                dr("库存_数量") = Val1 - Val2
                dr("库存_金额") = Val3 - Val4
                dr("交易差价") = Val5 - Val6
            Next
        End If

老师，上面的代码正确吗？下图交易差价正负颠倒了。谢谢老师给予修改。
End Select
此主题相关图片如下：图像 1.png

老师，我只改了一组另一组没改。现在好了。

老师，重新打开项目卖出明细表内部数据和外部数据不同步内部数据表部分数据不显示。

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

点击浏览该文件:新建文件夹.rar