Question

你好。这段代码工作正常。在我发布并安装到不同的机器后，没有问题。但是当我尝试将它安装到具有Windows 7专业操作系统的电脑上时，它会继续显示错误。

继承我的代码：

 If CGO_LegalDataGridView.Rows.Count < 1 Then Exit Sub
        Dim i As Integer

        For i = 0 To Me.CGO_LegalDataGridView.Rows.Count - 1
            If CGO_LegalDataGridView.Rows(i).Cells(2).Value = Nothing Then Exit Sub
            If DateValue(CGO_LegalDataGridView.Rows(i).Cells(2).Value) < DateAdd(DateInterval.Day, -1, Now) Then
                Me.CGO_LegalDataGridView.Rows(i).Cells(0).Style.ForeColor = Color.DarkGray
                Me.CGO_LegalDataGridView.Rows(i).Cells(1).Style.ForeColor = Color.DarkGray
                Me.CGO_LegalDataGridView.Rows(i).Cells(2).Style.ForeColor = Color.DarkGray
            End If
        Next i

此代码的功能是当duedate列小于今天的日期时使每行的颜色变为灰色...是计算机的操作系统可能是为什么总是错误{{1例如。

Answer 1

感谢您的回复，我很感激。我发现问题不在日期列的查询或数据类型上。因为该计算机的默认日期格式发生了变化，并且与普通格式（M / d / yyy）不同，所以我在“控制面板”上更改了“区域和语言”，然后“格式化”我设置了所有日期格式到默认的英语（美国）格式..

在Windows 7专业版中，转换字符串到日期类型无效错误

1 个答案: