- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 甘特图绘制 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140308)
-- 发布时间：2019/9/3 10:37:00
-- 甘特图绘制
老师 可以吧甘特图的有序号的行的高度也编辑上去吗？感谢 感谢
Dim tbl As Table = Tables("计划表窗口_Table4")
Tables("计划表窗口_Table9").StopRedraw()
Dim s1 As Date = tbl.Compute("Min(计划_开始日期)")
Dim s2 As Date = tbl.Compute("min(进行_开始日期)")
Dim e1 As Date = tbl.Compute("max(计划_完成日期)")
Dim e2 As Date = tbl.Compute("Max(进行_完成日期)")
Dim StartDate As Date = iif(s1<s2, s1, s2)
Dim EndDate As Date = iif(e1>e2, e1, e2)
Dim dt As Date = StartDate
Dim Builder As New DataTableBuilder("统计")
Do
Dim nm As String = dt.Year & "year" & dt.Month & "month_" & dt.Day & "_" & left(dt.DayOfWeek.ToString(), 3) \'星期天为英语缩写
Builder.Adddef(nm,Gettype(String),1)
dt = dt.Adddays(1)
If dt > Enddate Then
Exit Do
End If
Loop
Tables("计划表窗口_Table9").DataSource = Builder.BuildDataSource
For Each cl As Col In Tables("计划表窗口_Table9").Cols
cl.width = 23
\'cl.Height = 60
Next
Functions.Execute("AddGanttRows")
Tables("计划表窗口_Table9").ResumeRedraw() \'
-- 发布时间：2019/9/3 10:39:00
--
没看懂，截图说明一下
-- 发布时间：2019/9/3 11:02:00
--
谢谢老师，我想做成大点，然后是正方形，相对于控制每个的高和宽
此主题相关图片如下：搜狗截图19年09月03日1101_1.jpg
[此贴子已经被作者于2019/9/3 11:03:16编辑过]
-- 发布时间：2019/9/3 11:34:00
--
设置标题行高度？http://www.foxtable.com/webhelp/topics/1548.htm
-- 发布时间：2019/9/3 11:46:00
--
老师 可以用这点代码设置有序号的行高吗？，
Tables("计划表窗口_Table4").Grid.Rows(3).Height = 42 \'有序号的行都为40.
-- 发布时间：2019/9/3 11:52:00
--
这种问题试试就知道了
-- 发布时间：2019/9/3 11:59:00
--
谢谢，试了，感谢