[求助]如何实现这样的表格绘制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

RT··

就是绘制这样的EXCEL表格·

创建组····

此主题相关图片如下：粘贴图片(1).png

foxtable做不到这种的功能。

数据的展示，建议你用窗口来做 http://www.foxtable.com/webhelp/scr/0698.htm

那请问甜老师··如果要实现这种·显示数字的甘特图·需要怎么设置呢·
图片点击可在新窗口打开查看

此主题相关图片如下：粘贴图片11.png

你绘制甘特图的时候，顺便把数字绘制出来，即可。

If DrawGannt Then
    Dim r As Row = Tables("任务").Rows(e.Row.Index)
    Dim dt1 As Date = r("开始日期")
    Dim dt2 As Date = r("结束日期")
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    If dt>=dt1 AndAlso dt<=dt2 Then
        e.text = "111"
        e.StartDraw()
        If dt < Date.Today Then
            e.Graphics.FillRectangle(Brushes.Green,e.x ,e.y + 5, e.Width, e.Height - 10)
        Else
            e.Graphics.FillRectangle(Brushes.Red,e.x ,e.y + 3, e.Width, e.Height - 7)
        End If
        e.EndDraw()
    End If
End If