主题：取消自动计算数据

Dim zl As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "件数","件重"
        zl("数量") = zl("件数") * zl("件重")
End Select