Foxtable(狐表)用户栏目专家坐堂 → 【请教狐狸:】一直未解决的piao据打印的问题


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

主题:【请教狐狸:】一直未解决的piao据打印的问题

美女呀,离线,留言给我吧!
taxliman
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:302 威望:0 精华:0 注册:2012/3/27 15:08:00
【请教狐狸:】一直未解决的piao据打印的问题  发帖心情 Post By:2012/4/9 17:23:00 [只看该作者]

 

狐狸爸爸:请教过两次一直未解决,目前有两个问题帮忙看一下:

 

    一、【表格如下:】

                                                                                                 应纳税税额

  税种 销售收入 税率
个人所得税 500000 0.005   2 5 0 0 0 0
房产税 500000 0.045 2 2 5 0 0 0 0
营业税 500000 0.050 2 5 0 0 0 0 0
小计     5 0 0 0 0 0 0

金额合计

 

(大写)  

 

 

     二、【问题如下:】

 

     表中红色字体数据取自数据表,绿色字体是做套打格式需要定义的部分;

    两个问题未解决:

    1、做判定,如果营业税一项自表中取出的数据数值本身为零时,即:不应纳税,则不打印第四行:营业税、销售收入、应纳税税额等项内容均不打印,并显示为空项,否则按其他税格式输出;

    2、绿色字体大写部分,数据不足位必须以大写的“零”补在空位,输出时在大写位置不能出现空位。

 

 

   帮帮忙吧,实在解决不了了!!

 

 

 

 

          

 

 


 回到顶部
美女呀,离线,留言给我吧!
taxliman
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:302 威望:0 精华:0 注册:2012/3/27 15:08:00
  发帖心情 Post By:2012/4/9 17:25:00 [只看该作者]

呵呵,不知怎么传过去表的最后一行拐弯了,应该 是一行的

 回到顶部
美女呀,离线,留言给我吧!
taxliman
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:302 威望:0 精华:0 注册:2012/3/27 15:08:00
  发帖心情 Post By:2012/4/9 17:26:00 [只看该作者]

大写主要是第一个“零”怎么处理的问题,多谢!!

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/4/9 17:47:00 [只看该作者]

你这个是窗口打印吧? 按道理所有的打印都可以设置条件,因为DataFormat事件用的是代码,什么样的条件都可以设置。

搞不定的话,做个简单具体的例子发上来说话,否则其他人很难回复。


 回到顶部
美女呀,离线,留言给我吧!
taxliman
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:302 威望:0 精华:0 注册:2012/3/27 15:08:00
  发帖心情 Post By:2012/4/9 18:05:00 [只看该作者]

没错,是窗口打印,DataFormat事件试了很多次,搞不定,帮帮忙吧


图片点击可在新窗口打开查看此主题相关图片如下:问题截图.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2012-4-10 11:56:17编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2012/4/9 19:45:00 [只看该作者]

需要别人帮吗,那请提供开门锁。

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/4/10 9:10:00 [只看该作者]

举个例子,你原来的代码是:

 

e.Value = CUNumber(GetDigit(e.Value,5))

 

你希望为空的时候用零代替,那么只需将代码改为:

 

Dim v As String = CUNumber(GetDigit(e.Value,5))
If v = "" Then
    e.Value = "零"
Else
    e.value = v
End If

 

同样如果某个条件不符合就不打印,你可以:

 

if  条件符合 Then

    '你原来的代码

Else

    e.Value = ""

End If


 回到顶部
美女呀,离线,留言给我吧!
taxliman
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:302 威望:0 精华:0 注册:2012/3/27 15:08:00
  发帖心情 Post By:2012/4/10 9:24:00 [只看该作者]

解决了!谢老大!顶一下!图片点击可在新窗口打开查看


 回到顶部
美女呀,离线,留言给我吧!
taxliman
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:31 积分:302 威望:0 精华:0 注册:2012/3/27 15:08:00
  发帖心情 Post By:2012/4/10 11:57:00 [只看该作者]

呵呵,什么是开门锁

 回到顶部