以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel模板问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158018)

--  作者:nbsugu_z
--  发布时间:2020/11/5 10:12:00
--  excel模板问题

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

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

--  作者:有点蓝
--  发布时间:2020/11/5 10:23:00
--  
<[年] & "-" & [月] & "-" & [日] & " " & [星期]>

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

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

--  作者:有点蓝
--  发布时间:2020/11/5 10:36:00
--  
查询表这么生成的?
--  作者:nbsugu_z
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间:2020/11/5 10:51:00
--  
增加临时列参考:http://www.foxtable.com/webhelp/topics/1428.htm
--  作者:nbsugu_z
--  发布时间:2020/11/5 11:06:00
--  
临时列可以增加的,但是如何实现自动填写星期列呢?写在哪个事件中呢,如何写,求修改代码
--  作者:有点蓝
--  发布时间:2020/11/5 11:07:00
--  
增加后遍历表格所有行,逐行计算填入
--  作者:nbsugu_z
--  发布时间:2020/11/5 11:29:00
--  
求代码
--  作者:有点蓝
--  发布时间: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