主题：[求助]流通管理

1、交付点列表

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

2、筛选问题，绑定主表（不要用副本表），或者写代码

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

3、判断是否为空，你直接判断控件的值，即可啊

If e.form.controls("xxx").Text = nothing then

4、累计参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113583&skin=0

具体说明你要做哪一个功能。如果累计，参考  http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113583&skin=0

如果不能为空，那就判断 If e.form.controls("xxx").Text = nothing then

1、具体哪里不行？如果判断是否为空就写 If e.form.controls("xxx").Text = nothing then

2、3、累计照抄 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113583&skin=0

Datacolchanged事件

Dim dr9 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "单号","交付点"
        dr9("交付ID") = dr9("单号") & "" & dr9("交付点")
End Select

Select Case e.DataCol.name
    Case "交付ID","交付数量"
        Dim filter As String = "交付ID = '" & e.DataRow("交付ID") & "'"
        Dim sum1 As Double = e.DataTable.Compute("sum(交付数量)", filter)
        e.DataTable.ReplaceFor("交付点累计",sum1,filter)
        filter = "交付ID = '" & e.oldvalue & "'"
        sum1 = e.DataTable.Compute("sum(交付数量)", filter)
        e.DataTable.ReplaceFor("交付点累计",sum1,filter)
End Select

Select Case e.DataCol.name
    Case "交付数量","单号"
        Dim filter As String = "单号 = '" & e.DataRow("单号") & "'"
        Dim sum2 As Double = e.DataTable.Compute("sum(交付数量)", filter)
        e.DataTable.ReplaceFor("交付累计",sum2,filter)
       
End Select

Select Case e.DataCol.name
    Case "交付ID","交付数量"
        Dim filter As String = "交付ID = '" & e.DataRow("交付ID") & "'"
        For Each dr As DataRow In e.DataTable.Select(filter &  " and [_SortKey] >= " & e.DataRow("_SortKey"))
            Dim Val1 As Double = e.DataTable.Compute("Sum(交付数量)",filter & " and [_SortKey] <= " & dr("_SortKey"))
            dr("本次累计") = val1
        Next
        If e.DataCol.name = "交付ID" Then
            filter = "交付ID = '" & e.oldvalue & "'"
            For Each dr As DataRow In e.DataTable.Select(filter)
                Dim Val1 As Double = e.DataTable.Compute("Sum(交付数量)",filter & " and [_SortKey] <= " & dr("_SortKey"))
                dr("本次累计") = val1
            Next
           
        End If
End Select