VB.NET 2010 动态调整datagridview颜色代码

Question

我正在制作一个程序，帮助我为我目前实习的一家公司安排员工和工作。大多数事情进展顺利，但我陷入了这个特殊问题：

我有一个颜色代码，可以快速显示按时完成工作的可能性。 绿色很有可能，黄色有可能，红色 >不太可能。我希望根据在相关工作之前完成每项工作的估计时间来确定每项工​​作的颜色代码。我想为每项工作都这样做。

This is a picture of the list of active jobs。目前，该程序使用所有作业的总和，即在相关作业之前和之后到期的作业。我想做的唯一改变是只为相关工作之前的工作执行此操作。

这是我目前用来对“状态”列进行颜色编码的代码

编辑

现在发布更正的代码，非常感谢 vbnet3d

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    Dim ts As TimeSpan
    Dim now As Date = DateTime.Now.ToString("MM/dd/yyyy")
    Dim cdout As Date

    Me.JobDetailsBindingSource.Filter = String.Format("Crate_Date >= '" & now & "'")

    For i As Integer = 0 To Me.Active_Jobs_List.Rows.Count - 1
        Dim dayout As Date
        Dim dayout1 As Date
        Dim daysum As Integer = 0
        For x As Integer = 0 To i
            If (Date.TryParseExact(Me.Active_Jobs_List.Rows(x).Cells(6).Value, pattern, Nothing, DateTimeStyles.None, dayout)) >= (Date.TryParseExact(Me.Active_Jobs_List.Rows(i).Cells(6).Value, pattern, Nothing, DateTimeStyles.None, dayout1)) Then
                daysum = daysum + Active_Jobs_List.Rows(x).Cells(45).Value
            End If
        Next
        If Date.TryParseExact(Active_Jobs_List.Rows(i).Cells(6).Value, pattern, Nothing, DateTimeStyles.None, cdout) = True Then
            ts = cdout.Subtract(now)
            TextBox1.Text = Format(ts.TotalMinutes, 0) - daysum
        End If
        Me.Active_Jobs_List.Rows(i).Cells("Cdate_Minus_Now").Value = TextBox1.Text

        If (Me.Active_Jobs_List.Rows(i).Cells("Cdate_Minus_Now").Value) <= 2880 Then
            Me.Active_Jobs_List.Rows(i).Cells("Current_Status").Style.BackColor = Color.Red


        ElseIf (Me.Active_Jobs_List.Rows(i).Cells("Cdate_Minus_Now").Value) <= 5760 And Me.Active_Jobs_List.Rows(i).Cells("Cdate_Minus_Now").Value > 2880 Then
            Me.Active_Jobs_List.Rows(i).Cells("Current_Status").Style.BackColor = Color.Yellow


        ElseIf (Me.Active_Jobs_List.Rows(i).Cells("Cdate_Minus_Now").Value) > 5760 Then
            Me.Active_Jobs_List.Rows(i).Cells("Current_Status").Style.BackColor = Color.Green

        End If
    Next

End Sub

我是 vb.net 的初学者，所以如果您发现代码有任何其他问题，请随时提及。谢谢大家。

Answer 1

您可以在主循环中创建一个循环，该循环创建与当前作业在同一天创建的所有作业的总和，然后在您的逻辑中使用该总和。

类似的东西：

For i As Integer = 0 To Me.Active_Jobs_List.Rows.Count - 1

Dim daySum As Integer

    For x As Integer = 0 To i
        If Active_Jobs_List.Rows(x).Cells("Crate_date").Value = Active_Jobs_List.Rows(i).Cells("Crate_date").Value Then
            daySum = daySum + Active_Jobs_List.Rows(x).Cells(45).Value
        End If
    Next


[Your current code - use daySum here]

Next