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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汽车管理系统.rar

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

在收货_抵扣 和 fa piao登记_登记 中的datacolchanged事件中更新了代码。（注：楼的主编号列没仔细看写什么了，也删了，重新增加。）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汽车管理系统.table

fa piao登记搞定，抵扣加+还不能达到要求，收货和发货只能存在一方抵扣，楼上的却能双方共同存在，且确定一次加一次“+”。fa piao登记中不能自动输入税号，（税号来源于基本资料，又及，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.datarow("收货_抵扣") = true and e.datarow("发货_抵扣") = true then
       messagebox.show("请规范录入")
end if

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汽车管理系统.table

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