实现“入库单在保存时自动生成会计凭证” - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name

Case "数量","金额"

SystemReady = False

If e.DataRow.IsNull("数量") OrElse e.DataRow.IsNull("金额")

e.DataRow("单价")= Nothing

Else

e.DataRow("单价") = e.DataRow("金额") / e.DataRow("数量")

End If

SystemReady = True

End Select

Select Case e.DataCol.Name

Case "数量","单价"

SystemReady = False

If e.DataRow.IsNull("数量") OrElse e.DataRow.IsNull("单价")

e.DataRow("金额")= Nothing

Else

e.DataRow("金额") = e.DataRow("数量") * e.DataRow("单价")

End If

SystemReady = True

End Select

主题：实现“入库单在保存时自动生成会计凭证”