表ABeforeSaveDataRow事件
Dim dr As DataRow
dr = DataTables("云数据").SqlFind("[商品条码] = '" & e.DataRow("商品条码") & "'")
If dr Is Nothing Then
dr = DataTables("云数据").AddNew()
dr("商品名称") = e.DataRow("商品名称")
dr("规格") = e.DataRow("规格")
'e.DataRow("单位") = dr("单位")
'e.DataRow("进价") = dr("进价")
'e.DataRow("售价") = dr("售价")
'e.DataRow("类别编码") = dr("类别编码")
'e.DataRow("产地") = dr("产地")
dr.Save
dr.Remove
End If