周 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有4711人关注过本帖树形打印复制链接主题：周

yaojun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：567 积分：4595 威望：0 精华：0 注册：2014/7/3 15:28:00

周

Post By：2022/7/5 16:46:00 [只看该作者]

请问如何把单纯的周（28周）改为“年+周”（如：22年28周），要不然查询不是很方便，代码如下：

If e.DataCol.name="计划完成日期" AndAlso e.DataRow.IsNull("计划完成日期")=False Then

Dim d1 As Date = e.DataRow("计划完成日期")

Dim d2 As new Date(d1.Year,1,1)

e.DataRow("周数")=DateDiff("ww",d2,d1)+1 & "周 "

End If

谢谢

[此贴子已经被作者于2022/7/5 16:46:35编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/5 16:49:00 [只看该作者]

e.DataRow("周数")=d1.Year & “年“ & DateDiff("ww",d2,d1)+1 & "周 "

yaojun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：567 积分：4595 威望：0 精华：0 注册：2014/7/3 15:28:00

Post By：2022/7/5 17:07:00 [只看该作者]

谢谢

主题：周