Foxtable(狐表)用户栏目专家坐堂 → 谁能帮我设计个纯文字的报表。类似于易表中的套打?


  共有29509人关注过本帖树形打印复制链接

主题:谁能帮我设计个纯文字的报表。类似于易表中的套打?

帅哥哟,离线,有人找我吗?
ahljy351
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:187 积分:1489 威望:0 精华:0 注册:2008/9/2 7:52:00
  发帖心情 Post By:2008/9/18 18:20:00 [只看该作者]

我也是这么想,WORD也带VBA功能,既然EXCLE能做到的WORD应该也能做到。

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2008/9/20 13:40:00 [只看该作者]

我用EXECL已经做了16张报表了,很漂亮啊!用EXECL做报表太简单了。关键汇总却汇总不起来。这个问题解决不了睡不着,望狐爸解决!

 

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2008/9/20 13:41:00 [只看该作者]

以下是引用ahljy351在2008-9-17 14:20:00的发言:
 

{[单位]}

价    格   鉴    定    结    论    书

 

铜价认鉴[{Left([结论编号],4)}]{Right([结论编号],3)}号

 

{[结论名称]}


{[委托单位]}

受你单位委托,我中心遵循合法、公正、客观、科学的原则,按照规定的标准、程序和方法,依法对委托的标的价格进行了鉴定。现将价格鉴定情况综述如下:

一、价格鉴定标的

{Substitute(Substitute([结论名称],"关于",""),"的价格鉴定","")}

二、价格鉴定目的

为委托方提供标的价格依据(涉案金额)

三、价格鉴定基准日

{[基准日]}

四、价格定义

价格鉴定结论所指价格是:鉴定标的在鉴定基准日采用公开市场价值标准确定的市场价格。

五、鉴定依据

(一)法律法规

1.《中华人民共和国价格法》

2.《安徽省涉案物品估价管理条例》及其实施细则

3. 其他法律法规

(二)委托方提供的有关资料

 1、价格鉴定委托书

 2、有关资料复印件

(三)鉴定方收集的有关资料

 1、现场勘验记录

 2、市场调查资料

六、价格鉴定方法

{[鉴定方法]}

七、价格鉴定过程

我中心接受委托后,成立了价格鉴定小组,制定了价格鉴定方案,通过认真审核委托方提供的资料,确定采用{[鉴定方法]}进行价格鉴定,并进行了相关市场调查后,计算得出价格鉴定结论。

八、价格鉴定结论

价格鉴定标的鉴定价格计:人民币{CUMoney([合计鉴定价格])}(¥{[合计鉴定价格]})。

九、价格鉴定限定条件

1.本次鉴定委托数量及购买(使用)日期均由委托方提供。

2.本次鉴定报告权供委托方办理有关案件时使用。

十、声明

1.价格鉴证结论受结论书中已说明的限定条件限制。

2.声明委托方应为其提供资料的真实性负责。

3.价格鉴证结论对本次委托有效,不作他用。未经本鉴证机构同意,不得向委托方和有关当事人之外的任何单位和个人提供。结论书的部分或全部内容,不得发表于任何公开媒体上。

4.价格鉴证人员与价格鉴证标的没有利害关系,也与有关当事人没有个人利害关系或偏见。

5.如对结论有异议,可于结论书送达之日起15日内向我鉴证机构提出补充鉴定、重新鉴定,或向安徽省价格认证中心申请复核裁定。

十一、价格鉴定作业日期

{[作业日期]}至{[完成日期]}

十二、价格鉴定机构

铜陵市价格认证中心

法人代表:

十三、价格鉴定人员





十四、附件

1、鉴定物品明细表;

2、价格鉴证机构资质证(复印件);

3、价格鉴证人员资格证书(复印件)。


                                              铜陵市价格认证中心

                                            {CLDate([完成日期])}


  给个狐表,我看看你的报表能不能做出来?


 回到顶部
帅哥哟,离线,有人找我吗?
ahljy351
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:187 积分:1489 威望:0 精华:0 注册:2008/9/2 7:52:00
  发帖心情 Post By:2008/9/20 15:34:00 [只看该作者]

报表怎么可能会出来.楼上的在开玩笑吧


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2008/9/20 20:09:00 [只看该作者]

以下是引用ahljy351在2008-9-20 15:34:00的发言:

报表怎么可能会出来.楼上的在开玩笑吧

  EXECL报表也是建立在狐表基础上的,狐表两个方式建立报表:EXECL报表和专业报表,如果你不把FOXTABLE(也就是狐表)上传,人家怎么帮你做。


 回到顶部
帅哥哟,离线,有人找我吗?
ahljy351
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:187 积分:1489 威望:0 精华:0 注册:2008/9/2 7:52:00
  发帖心情 Post By:2008/9/21 6:30:00 [只看该作者]

唉,对不起了!我理解错了谢谢各位.
我暂时放异了FOX.等功能完善后再说,先用其它的工具了.
[此贴子已经被作者于2008-9-21 6:31:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blny
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:25 积分:259 威望:0 精华:0 注册:2008/9/4 8:25:00
  发帖心情 Post By:2008/9/21 10:36:00 [只看该作者]

帮助中有套打功能的,,慢慢学
单据套打

有了专业报表,单据套打将是一件非常轻松的任务,您只需量量好每一个对象的尺寸,设置好对象的坐标,然后将其加入到报表中即可。
例如有一个印刷好的员工资料卡:

下面是套打员工资料卡的代码,由很多几乎相同的代码段组成:

Dim doc As New PrintDoc '定义一个报表
Dim
rx As prt.RenderText '定义一个文本对象
Dim
rm As prt.RenderImage '定义一个图形队形
Dim CurRow As Row = Tables("员工").Current

rx = new prt.RenderText
rx.Text = CurRow(
"姓名")
rx.x =
51
rx.y =
36
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"出生日期")
rx.x =
109
rx.y =
36
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"部门")
rx.x =
51
rx.y =
43
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"雇佣日期")
rx.x =
109
rx.y =
43
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"性别")
rx.x =
51
rx.y =
50
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"职务")
rx.x =
109
rx.y =
50
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"城市")
rx.x =
51
rx.y =
57
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"邮政编码")
rx.x =
109
rx.y =
57
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"地址")
rx.x =
51
rx.y =
63
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"家庭电话")
rx.x =
51
rx.y =
69.5
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"办公电话")
rx.x =
109
rx.y =
69.5
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow(
"备注")
rx.x =
26.5
rx.y =
76
rx.Width=
163
doc.body.Children.Add(rx)

rm= New prt.RenderImage
rm.Height =
38
rm.Width =
34
rm.Image = GetImage(CurRow(
"照片"))
rm.x=
149.5
rm.y =
36
doc.body.Children.Add(rm)

Doc.Preview()
'预览报表


 回到顶部
总数 17 上一页 1 2