|
Dim ba As string = Tables("开piao记录").Current("收货_单位")
Dim bb As string = Tables("基本资料").Current("客户名称")
dim s2 as datarow = datatables("基本资料").find("客户名称 = '" & ba & "' ")
if e.DataCol.Name = "收货_抵扣" and e.datarow("收货_抵扣") = true and e.datarow("发货_抵扣") = false then
e.datarow("收货_税号") = "+" & s2("税号")
elseif e.DataCol.Name = "发货_抵扣" and e.datarow("发货_抵扣") = true and e.datarow("收货_抵扣") = false then
e.datarow("发货_税号") = "+" & s2("税号")
elseif e.datarow("收货_抵扣") = true and e.datarow("发货_抵扣") = true then
messagebox.show("请规范录入")
end if
| 
加好友 
发短信
Post By：2008/11/16 21:05:00 [显示全部帖子]
