FOXTABLE按钮代码：
Dim mb As String = FileSys.ReadAllText(ProjectPath & "表头模板.txt",Encoding.Default)
Dim t As Table = Tables("开piao明细")
mb = mb.Replace("[单据数量]",t.Rows.count)
mb = mb.Replace("[购方名称]",e.Form.Controls("ComboBox1").text)
mb = mb.Replace("[购方税号]",e.Form.Controls("TextBox1").text)
mb = mb.Replace("[购方银行账号]",e.Form.Controls("TextBox2").text)
mb = mb.Replace("[购方地址电话]",e.Form.Controls("TextBox3").text)
mb = mb.Replace("[备注]",e.Form.Controls("TextBox6").text)
Dim dj As String = FileSys.ReadAllText(ProjectPath & "内容模板.txt",Encoding.Default)
Dim all As String = ""
For Each r As Row In t.Rows
Dim tdj As String = dj '
tdj = tdj.Replace("[序号]", r("序号"))
tdj = tdj.Replace("[商品名称]", r("商品名称"))
tdj = tdj.Replace("[规格型号]", r("规格型号"))
tdj = tdj.Replace("[计量单位]", r("计量单位"))
tdj = tdj.Replace("[商品编码]", r("税务商品编码"))
tdj = tdj.Replace("[企业商品编码]", r("企业货品编码"))
tdj = tdj.Replace("[优惠政策标识]", r("是否使用优惠政策标识"))
tdj = tdj.Replace("[零税率标识]", r("零税率标识"))
tdj = tdj.Replace("[优惠政策说明]", r("优惠政策说明"))
tdj = tdj.Replace("[单价]", r("不含税单价"))
tdj = tdj.Replace("[数量]", r("数量"))
tdj = tdj.Replace("[金额]", r("不含税金额"))
tdj = tdj.Replace("[税率]", r("税率"))
tdj = tdj.Replace("[税额]", r("税额"))
tdj = tdj.Replace("[扣除额]", r("扣除限额"))
all &= tdj & vbcrlf
Next
表头模板
<?xml version="1.0" encoding="GBK" ?>
<Kp>
<Fpxx>
<Djh>[单据数量]</Djh >
<Gfmc>[购方名称]</Gfmc>
<Gfsh>[购方税号]</Gfsh>
<Gfyhzh>[购方银行账号]</Gfyhzh>
<Gfdzdh>[购方地址电话]</Gfdzdh>
<Bz>[备注]</Bz>
<Fhr>朱欣辉</Fhr>
<Skr>唐明英</Skr>
<Spbmbbh>30.0</Spbmbbh>
<Hsbz>0</Hsbz>
<Fpsj>
[开piao内容]
</Fpsj>
</Fpxx>
</KP>
内容模板：
<Sph>
<Xh>[序号]</Xh>
<Spmc>[商品名称]</Spmc>
<Ggxh>[规格型号]</Ggxh>
<Jldw>[计量单位]</Jldw>
<Spbm>[商品编码]</Spbm>
<Qyspbm>[企业商品编码]</Qyspbm>
<Syyhzcbz>[优惠政策标识]</Syyhzcbz>
<Lslbz>[零税率标识]</Lslbz >
<Yhzcsm>[优惠政策说明]</Yhzcsm >
<Dj>[单价]</Dj>
<Sl>[数量]</Sl>
<Je>[金额]</Je>
<Slv>[税率]</Slv>
<Se>[税额]</Se>
<Kce>[扣除额]</Kce >
</Sph>
加好友 
发短信
Post By：2019/9/7 11:09:00 [只看该作者]
此主题相关图片如下：2.png