专家坐堂-[求助]甘特图的DrawCell代码问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If DrawGannt Then

Dim r As Row = Tables(_Sys_lsb2+"_Table1").Rows(e.Row.Index,True)

Dim t2 As Table = Tables(_Sys_lsb2+"_Table2")

Dim xt As String = r("阶段码")

Dim dt1 As Date = r("计划开始")

Dim dt2 As Date = r("计划完成")

Dim str1 As String \'开始列名

Dim ks As Integer \'开始偏移量

ks=dt1.Day

If dt1.Day <=10 Then

str1 = "上旬"

ks=dt1.Day

ElseIf dt1.Day <=20 Then

str1 = "中旬"

ks=(dt1.Day - 10)

ElseIf dt1.Day >20 Then

str1 = "下旬"

ks=(dt1.Day - 20)

End If

str1=dt1.Year & "年" & dt1.Month & "月_" & str1

Dim ids As Integer= t2.cols(str1).Index

Dim str2 As String \'完成列名

Dim ke As Integer \'完成偏移量

ke=dt2.Day

If dt2.Day <=10 Then

str2 = "上旬"

ke=dt2.Day

ElseIf dt2.Day <=20 Then

str2 = "中旬"

ke=(dt2.Day - 10)

ElseIf dt2.Day >20 Then

str2 = "下旬"

ke=(dt2.Day - 20)

End If

str2=dt2.Year & "年" & dt2.Month & "月_" & str2

Dim ide As Integer= t2.cols(str2).Index

\'********************确定画笔颜色和线条宽度

Dim colr As Brush \'画笔颜色

Dim kw As Integer = 16 \'线条宽度

If r.IsGroup \'如果是分组行

If r.Level = 0 Then

colr = Brushes.Red

ElseIf r.level = 1 Then

colr = Brushes.DarkOliveGreen

ElseIf r.level = 2 Then

colr = Brushes.Sienna

End If

Else

If xt.length=4 Then

colr = Brushes.DarkOrchid

Else

colr = Brushes.YellowGreen

kw = 18

End If

\'*****************画甘特图

For Each dc As DataCol In DataTables(_Sys_lsb2+"_Table2").DataCols

Dim idx As Integer=t2.cols(dc.Name).Index

If idx>=ids AndAlso idx<=ide Then

e.StartDraw()

e.Graphics.FillRectangle(colr,e.x ,e.y + 8, e.Width, e.Height - kw)

e.EndDraw()

End If

涂红部分好像不起作业，画出来全是从头到尾的一条线，与起止时间没关联。