If e.DataCol.Name = "产品名称" Then \'发生变化的是产品名称吗? \'在产品设置找出该产品

    Dim dr As DataRow 

    dr = DataTables("产品设置").Find("产品名称 = " & "\'" & e.DataRow("产品名称") & "\'" )

    If dr IsNot Nothing \'如果找到, 则设置各列内容

        e.DataRow("产品名称")= dr("产品名称")

        e.DataRow("出粉率")= dr("出粉率")

        e.DataRow("规格")= dr("规格")

        e.DataRow("类别")= dr("类别") 

        e.DataRow("产品编号")= dr("编号")

    End If

End If

Select Case e.DataCol.Name 

    Case "数量" 

 Dim dr As DataRow

dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") \'找出上一行

        If dr Is Nothing Then \'如果没有找到上一行,说明本行就是第一行

            e.DataRow("总重量") = e.DataRow("规格") * e.DataRow("数量")

            dr = e.DataRow

        End If

        Dim drs As List(of DataRow)

        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")

        For i As Integer = 1 To drs.Count - 1 \'重算余下行的总重量

            drs(i)("总重量") = drs(i)("规格") * drs(i)("数量")

        Next