主题：统计数据

老师，还有个问题，就是传递值的问题，
此主题相关图片如下：ss.png

当我在甘特图上点击16号的第一行的数据的时候，我想将这一行的工程名称，任务名称，还有日期都取到的话，应该如何取？

click事件

 

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

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

 

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

老师，我想问一下，在甘特图中能不能加上进度百分比，

此主题相关图片如下：1.png

比如在甘特图的每行上能不能显示出进度的百分比。

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

 

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

 

老师，按你的修改后，编译时出现错误，
此主题相关图片如下：23.png

TotolDays  改成 TotalDays

老师，按照你的代码写后，根本就没有出现进度的百分比，应该如何在不同的单元格画字符呀？
此主题相关图片如下：25.png

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