Dim dr As DataRow
Dim Filter As String
Filter = "[name] = '" & e.DataRow("name") & "' And [leiji] = '" & e.DataRow("leiji") & "'"
dr = DataTables("minxi").Find(Filter ) '在行政区域表查找所输入省市和县市的行
If dr IsNot Nothing Then '如果找到
'将找到行的区号?邮编内容填入到正在输入的行中.
e.DataRow("cb") = dr("price")
e.DataRow("pt") = dr("price1")
e.DataRow("vip") = dr("vip")
e.DataRow("vvip") = dr("vvip")
e.DataRow("cvp") = dr("cvp")
e.DataRow("used") =1
e.DataRow("lirun")=e.DataRow("price")-e.DataRow("cb")
e.DataRow("yu")=dr("leiji") - e.DataRow("leiji")
Else If dr Is Nothing Then
e.Cancel = True
msgbox("无法出库,库存不足")
End If
紫色部分我想改为 e.datarow（“yu“）=dr最大的（”leiji“）- ed.atarow（”leiji“）
应该怎么改？
非常感谢！
加好友 
发短信
Post By：2016/6/19 12:40:00 [显示全部帖子]
