主题：以下代码 写在销售单明细的datachanged 事件中 没有出错？就是有点不严谨 狐爸帮我看一下 如何写得更好？

 没看懂你的逻辑，怎么不严谨？有什么问题？具体例子上传上来。

SystemReady = False

If e.DataCol.Name = "辅助数量" Then

    e.DataRow("数量") = e.NewValue / 3

ElseIf e.DataCol.Name = "数量" Then

    e.DataRow("辅助数量") = e.newValue * 3

End If

SystemReady = True

SystemReady = False

If e.DataCol.Name = "辅助数量" Then

    e.DataRow("数量") = e.DataRow("辅助数量")*e.DataRow("换算比例")

ElseIf e.DataCol.Name = "数量" Then

    e.DataRow("辅助数量")=e.DataRow("数量")/e.DataRow("换算比例")

End If

SystemReady = True