If Forms("销售单").opened()
If e.DataCol.Name = "辅助数量" Then
e.DataRow("数量") =e.DataRow("辅助数量")*e.DataRow("换算比例")
End If
If e.DataCol.Name = "数量" OrElse e.DataCol.Name = "单价" Then
e.DataRow("辅助数量")=e.DataRow("数量")/e.DataRow("换算比例")
e.DataRow("金额") =e.DataRow("数量")*e.DataRow("单价")
End If
Tables("销售单").Current("数量") = Tables("销售单明细").Compute("sum(数量)")
Tables("销售单").Current("金额") = Tables("销售单明细").Compute("sum(金额)")
Tables("销售单").Current("累计余额") = Tables("销售单").current("上期余额")+Tables("销售单").Current("金额")
vars("ljsl")=Tables("销售单").current("数量")
vars("ljje")=Tables("销售单").current("金额")
vars("jzljje")=Tables("销售单").current("累计余额")
Forms("销售单").Controls("Label8").text=" 数量: " & vars("ljsl") & " 金额: " & vars("ljje")
' Forms("销售单").Controls("Label11").text=" 大写: " & cumoney(vars("jzljje")) & " 小写: " & vars("jzljje")
Forms("销售单").Controls("Label11").text=" 大写: " & iif(vars("jzljje")>0,cumoney(vars("jzljje")),cumoney(math.abs(vars("jzljje")))) & " 小写: " & vars("jzljje")
End If
If Forms("销售单").opened()
If e.DataCol.name="产品编码"
Dim filter As String = "客户名称 ='" & Tables("销售单").current("客户名称") & "'And 产品编码='" & e.DataRow("产品编码") & "'"
Dim dr1 As DataRow
dr1 =DataTables("销售单明细").sqlFind(filter,"日期 Desc")
If dr1 IsNot Nothing
e.DataRow("单价")=dr1("单价")
Else
e.DataRow("单价")=0
End If
End If
End If
If Forms("销售单").opened()
If e.DataCol.name="数量"
If e.DataRow.IsNull("颜色")
messagebox.show("请输入颜色")
End If
Dim filter As String = "产品编码 ='" & e.DataRow("产品编码") & "'And 颜色 ='" & e.DataRow("颜色") & "'And 仓库 ='" & e.DataRow("仓库") & "'"
Dim dr1 As DataRow
dr1 = DataTables("库存表").Find(filter)
If dr1 IsNot Nothing Then
If dr1("库存数量")>=e.DataRow("数量")
e.DataRow("成本单价")=dr1("库存金额")/dr1("库存数量")
e.DataRow("成本")=e.DataRow("数量")*e.DataRow("成本单价")
Else
messagebox.show("库存不足")
e.DataRow("数量")=0
e.DataRow("成本单价")=e.DataRow("单价")
e.DataRow("成本")=e.DataRow("数量")*e.DataRow("成本单价")
End If
Else
messagebox.show("库存中没有这个产品!!!")
e.DataRow("数量")=0
End If
End If
End If
加好友 
发短信
Post By：2016/3/29 10:01:00 [显示全部帖子]
