主题：如何在子表内绘制甘特图

把Tables("进度计划")改成了Tables("甘特图_Table1")

内部函数、AfterLoad、DrawCell、CurrentChanged事件的代码都改了。

如果你有开发版，参考这里也行

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85221&skin=0

再画一段文字就好，参考

http://www.foxtable.com/webhelp/scr/1482.htm

1、2

If DrawGannt Then
    Dim r As Row  = Tables("甘特图_Table1").Rows(e.Row.Index)
    Dim dt1 As Date = r("计划开始")
    Dim dt2 As Date = r("计划完成")
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    e.StartDraw()
    If dt>=dt1 AndAlso dt<=dt2 Then
       
        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
    End If
    Dim dt3 As Date = r("实际开始")
    Dim dt4 As Date = r("实际完成")
    If dt>=dt3 AndAlso dt<=dt4 Then
        e.Graphics.FillRectangle(Brushes.Black,e.x ,e.y + 8, e.Width, e.Height - 18)
    End If
    If dt = dt4 Then
        Dim fnt As New Font("宋体",9)
        Dim msg As String ="    "&  format(r("完成比例"), "0.00%")
        e.Graphics.DrawString(msg,fnt,Brushes.Black,e.x,e.y+2)
    End If
    e.EndDraw()
   
End If

 汗...测试了一下，没办法，其它方法太复杂，只能这样处理。

If DrawGannt Then
    Dim r As Row  = Tables("甘特图_Table1").Rows(e.Row.Index)
    Dim dt1 As Date = r("计划开始")
    Dim dt2 As Date = r("计划完成")
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    e.StartDraw()
    If dt>=dt1 AndAlso dt<=dt2 Then
       
        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
    End If
    Dim dt3 As Date = r("实际开始")
    Dim dt4 As Date = r("实际完成")
    If dt>=dt3 AndAlso dt<=dt4 Then
        e.Graphics.FillRectangle(Brushes.yellow,e.x ,e.y + 8, e.Width, e.Height - 18)
    End If
   
    Dim d2 As Date = iif(r("计划完成")>r("实际完成"), r("计划完成"), r("实际完成"))
    Dim msg As String = format(r("完成比例"), "0.00%")
    If dt >= d2.AddDays(-msg.length+1) AndAlso dt <= d2 Then
        e.text = msg.Substring(msg.length-1-(d2-dt).TotalDays,1)
    End If
    e.EndDraw()
End If

你把列宽调小一点才行。生成的列，设置列宽，参考代码