Foxtable(狐表)用户栏目专家坐堂 → 专业报表合计


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

主题:专业报表合计

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/9 11:00:00 [显示全部帖子]

贴出完整代码,或者上传例子测试

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/9 12:01:00 [显示全部帖子]

.....
Cn_BindingText52.Children.Add(BindingText52) '将字段加入到报表

Dim rt222 = New prt.RenderText
rt222.Text= Tables("材质书.材质书明细").Compute("sum(数量)") 
Cn_BindingText52.Children.Add(rt222)

......
Cn_BindingText75.Children.Add(BindingText75) '将字段加入到报表

Dim rt223 = New prt.RenderText
rt223.Text= Tables("材质书.材质书明细").Compute("sum(重量)") 
Cn_BindingText75.Children.Add(rt223)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理系统.rar

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/9 14:21:00 [显示全部帖子]


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/9 15:00:00 [显示全部帖子]


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/9 15:50:00 [显示全部帖子]

Dim BindingText100  As New prt.RenderText '定义一个文本对象 
B_T=format(Tables("材质书").Current("有效期至"),"yyyy年MM月dd日")  '文本内容
BindingText100.Text=B_T.Replace("//",vbcrlf) '分段文本 

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/9 17:24:00 [显示全部帖子]

用法一样,看9楼

format(某个日期值,"yyyy年MM月dd日")



 回到顶部