主题：统计数据

去编写click事件，弹出一个窗口，然后根据 e.Col.Name 筛选对应日期的数据即可。

click事件取列名啊。

不理解你什么意思，甘特图是绘制开始和结束的。

       If r.IsNull("计划销售数量") = False Then
            Dim day As Integer = r("实际销售数量") / r("计划销售数量") * (dt2-dt1).TotalDays
            Dim dt3 As Date = dt1.AddDays(day)
            If dt <= dt3 Then
                e.Graphics.FillRectangle(Brushes.Yellow,e.x ,e.y + 8, e.Width, e.Height - 16)
            End If
        End If

click事件

 

Dim r As Row  = Tables("销售进度_Table1").Rows(e.Row.Index)

msgbox(r("开始日期"))

Dim d As date = r("开始日期").Replace("年", "-").Replace("月", "-").Replace("_", "-")

要分别在不同单元格画字符，参考

 

If r.IsNull("计划销售数量") = False Then
    Dim day As Integer = r("实际销售数量") / r("计划销售数量") * (dt2-dt1).TotalDays
    Dim dt3 As Date = dt1.AddDays(day)
    If dt <= dt3 Then
        e.Graphics.FillRectangle(Brushes.Yellow,e.x ,e.y + 8, e.Width, e.Height - 16)
       
    ElseIf (dt3-dt).TotolDays = 1 Then
       
        Dim fnt As New Font("宋体",8)
        Dim msg As String = format(r("实际销售数量") / r("计划销售数量") * 100, "0.00")
        e.Graphics.DrawString(msg,fnt,Brushes.Red,e.x,e.y+2)
       
    ElseIf (dt3-dt).TotolDays = 2 Then
       
        Dim fnt As New Font("宋体",8)
        Dim msg As String = "%"
        e.Graphics.DrawString(msg,fnt,Brushes.Red,e.x,e.y+2)
       
    End If
End If

 

TotolDays  改成 TotalDays

颜色不要用红色啊，你改一下颜色啊