[求助]绘图依据开始和结束时间 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Col.name.StartsWith("时_") Then
    e.StartDraw()
    Dim ts As Date = e.Row("开始时间")
    Dim te As Date = e.Row("结束时间")
    Dim t As Integer = e.Col.Name.Replace("时_", "")
    Dim tt As Date = new Date(1, 1, 1, 8, 0, 0)
    Dim sp1 As TimeSpan = ts - tt
    Dim sp2 As TimeSpan = te - tt
    If sp1.TotalMinutes < t AndAlso sp1.TotalMinutes >= t-60 Then
        Dim x As Integer = ts.Minute * e.width / 60
        Dim width As Integer = (sp2.TotalMinutes - sp1.TotalMinutes) * e.width / 60
        e.Graphics.FillRectangle(Brushes.Green,e.x + x + 1,e.y + 1, Width, e.Height - 2)
    ElseIf t-60 > sp1.TotalMinutes AndAlso t-60 < sp2.TotalMinutes Then
        Dim x As Integer = 0
        Dim width As Integer = (sp2.TotalMinutes - t + 60) * e.width / 60
        e.Graphics.FillRectangle(Brushes.Green,e.x + x + 1,e.y + 1, Width, e.Height - 2)
    End If
    e.EndDraw()
End If

主题：[求助]绘图依据开始和结束时间