conn.Open()
            sql = "select * from WIPManagementInOut where OutTime is null"
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(sql, conn)
            da.Fill(ds, "WIPManagementInOut")
            DataGridView1.DataSource = ds.Tables(0)
            DataGridView1.Refresh()
            For i As Integer = 0 To Me.DataGridView1.RowCount - 1
                If DateDiff(DateInterval.Minute, Me.DataGridView1.Item(6, i).Value, Now()) > 3 Then ‘为什么在这里出错？求指点
                    Me.DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.YellowGreen
                End If
            Next
’主要是Me.DataGridView1.Item(6, i).Value 这里出错，不知道为什么

[此贴子已经被作者于2016-6-20 17:14编辑过]

Me.DataGridView1.Item(6, i).Value这句本身应该是没问题的。 话说me.没有必要。
怀疑是这个单元格内的数据或者数据类型存在问题，建议见中断点看一下

谢谢版主，是数据类型的问题，我已解决了，再次感谢！！