Foxtable(狐表)用户栏目专家坐堂 → 专业报表问题,


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

主题:专业报表问题,

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


加好友 发短信
等级:管理员 帖子:47506 积分:251448 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/26 16:59:00 [显示全部帖子]

Rows = Tables("类别").Rows(i).DataRow.GetChildRows("产品")

改为:

Rows = DataTables("产品").Select("关联列 = " & Tables("类别").Rows(i)("关联列"), "排序列" )


如果关联列是字符型,请加上单引号:

Rows = DataTables("产品").Select("关联列 = '" & Tables("类别").Rows(i)("关联列") & "'", "排序列" )


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


加好友 发短信
等级:管理员 帖子:47506 积分:251448 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/26 17:10:00 [显示全部帖子]

一样的道理,代码长点而已:

Dim r As Row = Tables("类别").Rows(i)
Rows = DataTables("产品").Select("关联列1 = '" & r("关联列") & "' And 关联列2 = '" & r("关联列2") & "' And 关联列3 = '" & r("关联列3") & "'" , "排序列" )

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


加好友 发短信
等级:管理员 帖子:47506 积分:251448 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/26 17:41:00 [显示全部帖子]

以下是引用hejfen在2009-5-26 17:35:00的发言:
EXECL报表可以设置留空白行,专业报表行吗?怎么样做啊?


既然是代码,想怎么样都行。


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


加好友 发短信
等级:管理员 帖子:47506 积分:251448 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/27 12:24:00 [显示全部帖子]

例如你得表格需要30行,不够的时候自动补空行,只需加上一行代码即可

rt = New prt.RenderTable
rt.Rows.Count = 30

红色的是新加入的。

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


加好友 发短信
等级:管理员 帖子:47506 积分:251448 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/28 11:17:00 [显示全部帖子]

你设置了30行,应该至少会打印30行,难道没有打印吗?

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


加好友 发短信
等级:管理员 帖子:47506 积分:251448 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/28 11:26:00 [显示全部帖子]

要不这样:



For r As integer = 0 To Rows.Count - 1
   原来的代码
Next
'加上
For r As integer = Rows.Count To 30
      rt.Cells(r,0).Text = "  "
Next


 回到顶部