主题：甘特图使用

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:完美使用 (1).table

没有显示呢，感谢 感谢 我重新发帖吧，辛苦了，感谢 感谢 

If DrawGannt AndAlso e.Row.Index >= 0 AndAlso e.Row.Index < Tables("计划表窗口_Table4").Rows.count Then
    Dim r As Row  = Tables("计划表窗口_Table4").Rows(e.Row.Index)
    Dim dt As Date = e.Col.Name.Replace("年","-").Replace("月_","-")
    If r.IsNull("计划_开始日期") OrElse r.IsNull("计划_完成日期") Then
    Else
       
        Dim dt1 As Date = r("计划_开始日期")
        Dim dt2 As Date = r("计划_完成日期")
        If dt>=dt1 AndAlso dt<=dt2 Then
            e.Table.ShowToolTip(r("办理人") & " " & r("备注"),e.Row,e.Col)
        End If
    End If
    If r.IsNull("进行_开始日期")=False Then
        Dim dt3 As Date = r("进行_开始日期")
        Dim dt4 As Date = iif(r.Isnull("进行_完成日期"), Date.Today, r("进行_完成日期"))
        If dt>=dt3 AndAlso dt<=dt4 Then
            e.Table.ShowToolTip(r("办理人") & " " & r("备注"),e.Row,e.Col)
        End If
       
    End If
   
   
    Dim fdr As DataRow = DataTables("事件记录").find("事件日期=#" & dt & "# and 项目名称='" & r("项目名称") & "' and 项目流程='" & r("项目流程") & "'")
    If fdr IsNot Nothing Then
        e.Table.ShowToolTip(fdr("办理人") & " " & fdr("备注"),e.Row,e.Col)
    End If
End If

 

drawcell事件？

 

下载信息  [文件大小：784.0 KB  下载次数：5]

点击浏览该文件:完美使用 (1).table

drawcell 是的，还是方形的呢 感谢 感谢 

 

参考

 

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

 

 

e.Graphics.FillPie(Brushes.yellow,e.x ,e.y, e.Width, e.height,0,360)

 

此主题相关图片如下：qq截图20170909002743.jpg

为什么在计划_结束日期 输入2020年显示不出来呢，