主题：求大神帮忙

自己看

 

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

 

初学者看视频教程。

单价计算的问题，你提油的时候，就应该去指定，每次提油，是哪个订单的，这样才方法后面的计算啊。

导出，导入，就是数据表。

 

或者你用filler填充数据。http://www.foxtable.com/help/topics/0680.htm

 

代码已经给出。知识点已经给出。

单价问题，去datacolchanged事件写代码

 

Select Case e.DataCol.Name
    Case "客户名称", "提货地点", "提油数量"
        If e.DataRow.IsNull("客户名称") OrElse e.DataRow.IsNull("提货地点") Then
            e.DataRow("单价") = Nothing
        Else
            Dim psum As Double = e.DataTable.Compute("sum(提油数量)", "_Identify < " & e.DataRow("_Identify") & " and 客户名称 = '" & e.DataRow("客户名称") & "' and 提货地点 = '" & e.DataRow("提货地点") & "'")
            Dim drs As List(Of DataRow) = DataTables("订单").Select("客户名称 = '" & e.DataRow("客户名称") & "' and 提货地点 = '" & e.DataRow("提货地点") & "'", "订单日期")
            Dim sum As Double = 0
            For Each dr As DataRow In  drs
                If sum < psum Then
                    sum += psum
                Else
                    e.DataRow("单价") = dr("单价")
                    Exit For
                End If
            Next
        End If
End Select

初学者，先去看视频教程。