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

点击浏览该文件:实例.table

实例中有需求说明，请各位老师帮忙编码怎么写，谢谢。

DataColChanged事件

If e.DataCol.name = "财务编码" OrElse e.DataCol.name = "类别" Then
    Dim dr As DataRow = e.DataRow
    Dim dt As DataTable
    If dr("类别") = "按入库" Then
        dt = DataTables("入库表")
    ElseIf dr("类别") = "按销售" Then
        dt = DataTables("销售表")
    End If
    Dim yearin1 As Double = dt.Compute("sum(数量)", "财务编码1 = \'" & dr("财务编码") & "\'")
    Dim yearin2 As Double = dt.Compute("sum(数量)", "财务编码2 = \'" & dr("财务编码") & "\'")
    Dim yearout1 As Double = dt.Compute("sum(数量)", "财务编码1 = \'" & dr("财务编码") & "\' and 财务1结清 = true")
    Dim yearout2 As Double = dt.Compute("sum(数量)", "财务编码2 = \'" & dr("财务编码") & "\' and 财务2结清 = true")
    dr("全年数量") = yearin1 + yearin2 - yearout1 - yearout2
End If

If e.DataCol.name = "财务编码" OrElse e.DataCol.name = "类别" Then
    Dim dr As DataRow = e.DataRow
    Dim dt As DataTable
    If dr("类别") = "按入库" Then
        dt = DataTables("入库表")
    ElseIf dr("类别") = "按销售" Then
        dt = DataTables("销售表")
    End If
    Dim yearin1 As Double = dt.Compute("sum(数量)", "财务编码1 = \'" & dr("财务编码") & "\'")
    Dim yearin2 As Double = dt.Compute("sum(数量)", "财务编码2 = \'" & dr("财务编码") & "\'")
    Dim yearout1 As Double = dt.Compute("sum(数量)", "财务编码1 = \'" & dr("财务编码") & "\' and 财务1结清 = true")
    Dim yearout2 As Double = dt.Compute("sum(数量)", "财务编码2 = \'" & dr("财务编码") & "\' and 财务2结清 = true")
    dr("全年数量") = yearin1 + yearin2 - yearout1 - yearout2
   
    Dim cs() As String = {"第一季度数量","第二季度数量","第三季度数量","第四季度数量"}
    For i As Integer = 0 To cs.Length - 1
        Dim filter As String = ""
        Dim d As Date
        d = new Date(2016, 3*i+1, 1)
        filter = " and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(3) & "#"
        Dim quarin1 As Double = dt.Compute("sum(数量)", "财务编码1 = \'" & dr("财务编码") & "\'" & filter)
        Dim quarin2 As Double = dt.Compute("sum(数量)", "财务编码2 = \'" & dr("财务编码") & "\'" & filter)
        Dim quarout1 As Double = dt.Compute("sum(数量)", "财务编码1 = \'" & dr("财务编码") & "\' and 财务1结清 = true" & filter)
        Dim quarout2 As Double = dt.Compute("sum(数量)", "财务编码2 = \'" & dr("财务编码") & "\' and 财务2结清 = true" & filter)
        dr(cs(i)) = quarin1 + quarin2 - quarout1 - quarout2
    Next
End If