主题：[求助] 时间进度甘特图求帮忙

此主题相关图片如下：无标题.jpg

 

希望做一个表头用作甘特图的 日工作进度管理。

 

列名是 当天日期       子列名为  当天的时间

 

求帮助 该如何改。 

 

Tables("窗口2_Table1").StopRedraw()
Dim StartDate As Date = date.today()

Dim EndDate As Date = = Date.Today.AddDays(1)

Dim dt As Date = StartDate

Dim Builder As New DataTableBuilder("统计")
Do
    Dim nm As String = dt.Year & "年" &  dt.Month & "月_" & dt.Day & dt.Hour
    Builder.AddDef(nm,Gettype(String),1)
    dt = dt.AddHours(1)
    If dt > Enddate Then
        Exit Do
    End If
Loop
Tables("窗口2_Table1").DataSource = Builder.BuildDataSource
For Each cl As Col In Tables("窗口2_Table1").Cols
    cl.width = 20
Next

Tables("窗口2_Table1").ResumeRedraw()

 

 

测试了 老师的这个代码  数据有出入, 我不懂如何调整成时间格式！  请帮忙

 这个意思？

 

Dim StartDate As Date = Date.today()

Dim EndDate As Date = Date.Today.AddDays(1)

Dim dt As Date = StartDate

Dim Builder As New DataTableBuilder("统计")
Do
    Dim nm As String = Format(dt, "yyyy年MM月_ddHH")
    Builder.AddDef(nm,Gettype(String),1)
    dt = dt.AddHours(1)
    If dt > Enddate Then
        Exit Do
    End If
Loop
builder.Build

 

Tables("窗口2_Table1").StopRedraw()
Dim StartDate As Date = Date.today()
Dim EndDate As Date = Date.Today.AddDays(1)

Dim dt As Date = StartDate

Dim Builder As New DataTableBuilder("统计")

Do
    Dim nm As String = Format(dt, "YYYY年MM月DD日_HH时")
    Builder.AddDef(nm,Gettype(String),1)
    dt = dt.AddHours(1)
    If dt > Enddate Then
        Exit Do
    End If
Loop
Tables("窗口2_Table1").DataSource = Builder.BuildDataSource
For Each cl As Col In Tables("窗口2_Table1").Cols
    cl.width = 20
Next

Tables("窗口2_Table1").ResumeRedraw()

 

 

老师 有2个问题：

1：我改了 这个格式后 提示以下

名为“YYYY年11月DD日_00时”的列已属于此 DataTable。

2：我想 第一例 从 00：00  开始   ， 结束列 为23：00   改如何改呢？

在线等，老师帮忙再看下

很奇怪  列名不能用数字开头

  Dim nm As String = Format(dt, "yyyy年MM月_ddHH")
 这样写就可以

 

Dim nm As String = Format(dt, "YYYY年MM月DD日_HH时")

这么写却不行 ，为什么呢？？？

Dim nm As String = Format(dt, "YYYY年MM月dd日_HH时")

Dim nm As String = Format(dt, "yyyy年MM月dd日_HH时")