0

嗨，大家好。这段代码工作正常。没有问题，在我发布并安装到不同的机器后。但是当我尝试将它安装到具有 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

此代码的功能是当到期日期列小于今天的日期时，使每一行的字体颜色变为灰色......是否是计算机的操作系统可能是为什么总是出现错误的问题"conversion "10/10/13" to type date is not valid"。

4

1 回答 1

0

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

于 2013-11-04T03:57:43.877 回答