[求助]自动录入代码求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:汽车管理系统.rar

1.“总表”中如果fa piao登记_开piao确定则自动在“开piao记录表”中增加一行并填入“总表”中的车次，车号，收货单位，发货单位，运费结算_重量、运价，运费等数据。
2.开piao记录表中，两个抵扣唯一存在，如不存在则在确定打印时示警，如确定抵扣方则自动在税号前加“+”号，打印列确定后，打开报表“开piao证明”打印预览。
3.开piao证明模板帮改一改，要求实现同单位（一piao）打印5行数据，（模板中服务项目要求9行）

[此贴子已经被作者于2008-11-16 13:28:24编辑过]

fa piao登记搞定，抵扣加+还不能达到要求，收货和发货只能存在一方抵扣，楼上的却能双方共同存在，且确定一次加一次“+”。fa piao登记中不能自动输入税号，（税号来源于基本资料，又及，fa piao记录中的审核列就是打印确定列）。

录入税号OK，加减“+”号有待完善：在fa piao记录中取消抵扣时，没能自动去掉”+“号，提示出现情况：当改变抵扣方（如现在收货抵扣要改发货方抵扣）提问“确定要改变抵扣方吗”即可（延用易表提示习惯，嘿嘿）。

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.DataCol.Name = "收货_抵扣" and e.datarow("收货_抵扣") = true and e.datarow("发货_抵扣") = true then
       e.datarow("收货_税号") = "+" & s2("税号")
       e.datarow("发货_税号") = s2("税号")
       e.datarow("发货_抵扣") = false
elseif e.DataCol.Name = "发货_抵扣" and e.datarow("发货_抵扣") = true and e.datarow("收货_抵扣") = true then
       e.datarow("发货_税号") = "+" & s2("税号")
       e.datarow("收货_税号") = s2("税号")
       e.datarow("收货_抵扣") = false
elseif e.DataCol.Name = "收货_抵扣" and e.datarow("收货_抵扣") = false then
       e.datarow("收货_税号") = s2("税号")
       elseif e.DataCol.Name = "发货_抵扣" and e.datarow("发货_抵扣") = false then
       e.datarow("发货_税号") = s2("税号")
end if

改了一下，成了，嘿嘿

主题：[求助]自动录入代码求助