- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- DataTableBuilder (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153304)
-- 发布时间：2020/8/6 15:59:00
-- DataTableBuilder
能用DataTableBuilder能做日期的和图片一样的吗？感觉很复杂
-- 发布时间：2020/8/6 16:00:00
--
此主题相关图片如下：tim图片20200806155635.png
-- 发布时间：2020/8/6 16:05:00
--
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("2019_3月", GetType(String), 32)
dtb.AddDef("2019_4月", GetType(String), 32)
……
dtb.Build()
MainTable= Tables("统计")
-- 发布时间：2020/8/6 16:15:00
--
本来是这样的数据要怎么转化
此主题相关图片如下：tim图片20200806161404.png
-- 发布时间：2020/8/6 16:25:00
--
内部表还是外部表？access还是SqlServer？
-- 发布时间：2020/8/6 16:52:00
--
是SqlServer
-- 发布时间：2020/8/6 17:15:00
--
Dim dtb As New DataTableBuilder("统计")
For Each s As String In DataTables("表A").SQLGetValues("Year(日期) + \'_\' + Month(日期)")
dtb.AddDef(s & "月", Gettype(String), 32)
Next
dtb.Build()
MainTable= Tables("统计")
-- 发布时间：2020/8/6 20:22:00
--
For Each s As String In DataTables("表A").SQLGetValues("Year(日期) + \'_\' + Month(日期)") 老师这个红字拼接是不是有问题呢 分开就可以显示（比如：Year(日期) ） ，和在一起就出不来。
-- 发布时间：2020/8/6 20:34:00
--
Dim dtb As New DataTableBuilder("统计")
For Each s As String In DataTables("表A").SQLGetValues("convert(nvarchar(7),日期,120)")
dtb.AddDef(s.replace("-","_") & "月", Gettype(String), 32)
Next
dtb.Build()
MainTable= Tables("统计")
-- 发布时间：2020/8/6 20:42:00
--
非常感谢，可以了