Foxtable(狐表)用户栏目专家坐堂 → excel模板问题


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

主题:excel模板问题

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


加好友 发短信
等级:一尾狐 帖子:410 积分:3682 威望:0 精华:0 注册:2017/4/8 8:59:00
excel模板问题  发帖心情 Post By:2020/11/5 10:12:00 [只看该作者]


 年      月       日        星期几
[年]    [月]    [日]      ****

请求高手,以上EXCEL模板设计 ,想****号这个单元格用年月日合并,并能计算星期几,这个公式如何做做?
<TEXT([年]&"-"&[月]&"-"&[日],"aaaa")> 我写的这个用不了

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


加好友 发短信
等级:超级版主 帖子:110651 积分:563169 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 10:23:00 [只看该作者]

<[年] & "-" & [月] & "-" & [日] & " " & [星期]>

星期无法直接计算,到foxtable表格增加一个星期列,使用代码计算出星期几

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


加好友 发短信
等级:一尾狐 帖子:410 积分:3682 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2020/11/5 10:28:00 [只看该作者]

因这我是从查询表中直接使用打印模板,没有地方设代码,试了多次,写不了代码。
[此贴子已经被作者于2020/11/5 10:28:36编辑过]

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


加好友 发短信
等级:超级版主 帖子:110651 积分:563169 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 10:36:00 [只看该作者]

查询表这么生成的?

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


加好友 发短信
等级:一尾狐 帖子:410 积分:3682 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2020/11/5 10:48:00 [只看该作者]

用菜单生成的。

Dim jb As New SQLJoinTableBuilder("cxb1","freelog")
jb.C
jb.Addexp("车牌","carno")
jb.Addexp("卡类","cardtype")
jb.Addexp("入场时间","intime")
jb.Addexp("付费时间","outtime")
jb.Addexp("券号","ticketno")
jb.Addexp("打折类型","freetype")
jb.Addexp("优惠额度","freenumber")
jb.addexp("zs","Ceiling(freenumber/30)")
jb.Filter = "customerId= '00059'"
jb.Build()
MainTable = Tables("cxb1")
      如果能再增加一列 星期就可以了,搞了几天弄不了。星期以上面“付费时间”为计算,老师一定要帮我解决下,我本想用模板解决,也解决不了
[此贴子已经被作者于2020/11/5 10:48:21编辑过]

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


加好友 发短信
等级:超级版主 帖子:110651 积分:563169 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 10:51:00 [只看该作者]


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


加好友 发短信
等级:一尾狐 帖子:410 积分:3682 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2020/11/5 11:06:00 [只看该作者]

临时列可以增加的,但是如何实现自动填写星期列呢?写在哪个事件中呢,如何写,求修改代码

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


加好友 发短信
等级:超级版主 帖子:110651 积分:563169 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 11:07:00 [只看该作者]

增加后遍历表格所有行,逐行计算填入

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


加好友 发短信
等级:一尾狐 帖子:410 积分:3682 威望:0 精华:0 注册:2017/4/8 8:59:00
  发帖心情 Post By:2020/11/5 11:29:00 [只看该作者]

求代码

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


加好友 发短信
等级:超级版主 帖子:110651 积分:563169 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/5 11:38:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/0419.htm

For Each dr As DataRow In DataTables("订单").DataRows
  dr(
"星期") = dr("日期").DayOfWeek
Next

 回到顶部
总数 12 1 2 下一页