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

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

感谢狐版，这样貌似不对，前面的条件还是要的，必须是项目相同且在同一日期下才会是接上一行的开始时间

 

汗，你能不能理清思路啊，根据你的开始时间、结束时间画啊。时间你怎么调整是你自己的事