以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  财务报表,按钮增加,自动填写固定格式的项目  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136339)

--  作者:fubblyc
--  发布时间:2019/6/11 16:05:00
--  财务报表,按钮增加,自动填写固定格式的项目
老师,财务报表,点增加按钮的时候,
可以增加10行,然后把固定格式的项目给写上,如下图,
要怎么整呢?
A00 C00不用,就是项目这一列


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190611160412.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/6/11 16:05:41编辑过]

--  作者:有点甜
--  发布时间:2019/6/11 16:47:00
--  

做一个模板表格,把模板写到那里去。

 

点击新增的时候,获取模板一行一行添加进去。


--  作者:fubblyc
--  发布时间:2019/6/11 17:10:00
--  
恩恩,老师,

获取模板一行一行添加进去。

我自己弄了下,没弄成功,要怎么写呢。。。

--  作者:fubblyc
--  发布时间:2019/6/11 17:14:00
--  
搞定了:
For Each dr0 As DataRow In DataTables("资金日报模板").DataRows
    Dim dr As DataRow = DataTables("资金日报").AddNew()
    dr("项目") = dr0("项目")
Next