- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 动态列名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122620)
-- 发布时间：2018/7/30 9:04:00
-- 动态列名
如何根据下图左列的日期转换成右边列名样式
此主题相关图片如下：snap1.jpg
-- 发布时间：2018/7/30 9:11:00
--
1、你要把一列拆分成2列？
2、建议直接修改列标题 http://www.foxtable.com/webhelp/scr/1275.htm
-- 发布时间：2018/7/30 9:30:00
--
不是拆分，初始字段如下图。根据日期字段生成了年、月、日，月和日直接应用字段名：年_06，年_30，关键是年不知如何设置。
此主题相关图片如下：snap1.jpg
-- 发布时间：2018/7/30 9:32:00
--
参考
Dim d As Date = "2018-07-30"
Dim str1 As String = d.Year & "_" & d.Month
Dim str2 As String = d.Year & "_" & d.day
msgbox(str1)
-- 发布时间：2018/7/30 10:38:00
--
搞定,多谢.
-- 发布时间：2018/7/30 16:02:00
--
发现了问题：重新打开项目，列名还原了。下面这段代码应如何写在项目Initialize事件中呢?
If e.DataCol.Name = "日期" Then
With DataTables("明细")
Dim b As String = e.DataRow("年")
Dim str1 As String = b & "年" & "_" & "月"
Dim str2 As String = b & "年" & "_" & "日"
.DataCols("年_月").Caption = str1
.DataCols("年_日").Caption = str2
.BuildHeader()
End With
End If
-- 发布时间：2018/7/30 16:10:00
--
打开项目时重置一下日期列?如果数据有10万行,重置影响效率吗?
-- 发布时间：2018/7/30 16:51:00
--
afterOpenProject事件
With DataTables("明细")
Dim b As String = Tables("表A").current("年")
Dim str1 As String = b & "年" & "_" & "月"
Dim str2 As String = b & "年" & "_" & "日"
.DataCols("年_月").Caption = str1
.DataCols("年_日").Caption = str2
.BuildHeader()
End With