销售明细表DataColChanged事件代码：

If forms("销售主界面").opened = True AndAlso (e.DataCol.Name ="数量" OrElse e.DataCol.Name ="单价")  Then
    Dim Filter As String = "订单号 = \'" & e.DataRow("订单号") & "\'"
    Dim sum As Double = 0
    For Each r As Row In Tables("销售明细表").Rows
        sum + = r("金额")
    Next
    Forms("销售主界面").Controls("TextBox9").Text =  sum - val(Forms("销售主界面").Controls("TextBox3").Text)
End If

If e.DataCol.name = "金额" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("销售订单") \'找出对应的父行
    If pr IsNot Nothing Then
        DataTables("销售订单").DataCols("金额").RaiseDataColChanged(pr)  \'通知系统此父行的数量列发生了改变,触发DataColChanged事件
    End If
End If

\'自动输入
If e.DataCol.Name ="产品型号" Then \'发生变化的是产品名称吗?
    \'在产品表找出该产品
    Dim dr As DataRow = DataTables("产品入库表").Find("产品型号 = " & "\'" & e.DataRow("产品型号") & "\'" )
    If dr IsNot Nothing\'如果找到,则设置各列内容
        e.DataRow("产品类别")= dr("产品类别")
        e.DataRow("单价")= dr("销售单价")
    End If
End If

\'计算已提数量

If e.DataCol.Name = "产品型号" Then \'发生变化的是产品列.
    \'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("已提数量") = Tables("订单出库明细表").Compute("Sum(已提数量)","产品型号 = \'" & e.DataRow("产品型号") & "\' And 订单号 = \'" & e.DataRow("订单号") & "\'")
End If

订单出库明细表DataColChanged事件代码：

Select Case e.DataCol.Name
    Case "产品型号","数量","已提数量","订单号"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品型号] = \'" & mr("产品型号") & "\'And [订单号] = \'" & mr("订单号") & "\'",  "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("未提数量") = mr("数量") - mr("已提数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品型号] = \'" & dr("产品型号") & "\'And [订单号] = \'" & dr("订单号") & "\'",  "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("未提数量") = drs(i-1)("未提数量") - drs(i)("已提数量")
        Next
        If e.DataCol.Name = "产品型号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [产品型号] = \'" & e.OldValue & "\'And [订单号] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[产品型号] = \'" & e.OldValue & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("未提数量") = dr("数量") - dr("已提数量")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [产品型号] = \'" & dr("产品型号") & "\'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("未提数量") = drs(i-1)("未提数量") - drs(i)("已提数量")
                Next
            End If
        End If
End Select

此主题相关图片如下：无标题.png

新增明细按钮的代码如下：

Dim r As Row = Tables("订单出库明细_Table2").Current
Dim dr As Row = Tables("订单出库明细表").Addnew
dr("提货日期") = Date.Today \'将新增行的日期设为当天日期.
dr("产品型号") = r("产品型号")
dr("订单号") = r("订单号")
dr("数量") = r("数量")

点击该按钮运行时间很长，大约2-3秒。是不是因为强制重置后，使得每个销售明细的价格发生了变化（回复原值）造成的。

以上3个问题请专家指点，谢谢！

1、

If e.DataCol.Name = "产品型号" orElse e.DataCol.Name = "订单号" Then \'发生变化的是产品列.
    \'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列
    e.DataRow("已提数量") = Tables("订单出库明细表").Compute("Sum(已提数量)","产品型号 = \'" & e.DataRow("产品型号") & "\' And 订单号 = \'" & e.DataRow("订单号") & "\'")
End If

2、

If e.DataCol.Name ="产品型号" Then \'发生变化的是产品名称吗?
    \'在产品表找出该产品
    Dim dr As DataRow = DataTables("产品入库表").Find("产品型号 = " & "\'" & e.DataRow("产品型号") & "\'" )
    If dr IsNot Nothing\'如果找到,则设置各列内容
        e.DataRow("产品类别")= dr("产品类别")
        If e.DataRow("单价") = Nothing Then
            e.DataRow("单价")= dr("销售单价")
        End If
    End If
End If

3、强制重置代码，不要写到datacolchanged事件。如果要写请加上条件，如

DataTables("销售明细表").DataCols("产品型号").RaiseDataColChanged("产品型号 = \'" & e.DataRow("产品型号") & "\' And 订单号 = \'" & e.DataRow("订单号") & "\'") 

e.DataRow("已提数量") = Tables("订单出库明细表").Compute("Sum(已提数量)","产品型号 = \'" & e.DataRow("产品型号") & "\' And 订单号 = \'" & e.DataRow("订单号") & "\'")

已提数量不是表达式列