主题：[求助] 对时间控件进行条件判断时出错

If  d1 > "" And e.Form.Controls("负载电流" & i ).Text > ""  And e.Form.Controls("放电电压" & i ).Text > ""   Then

改成

If  d1 <> nothing And e.Form.Controls("负载电流" & i ).Text > ""  And e.Form.Controls("放电电压" & i ).Text > ""   Then

If CurrentTable.DataTable.HasChanges =True  Then  '如果 区域表 被修改 然后
    e.Cancel = True
    MessageBox.Show("本表已被修改,请先保存数据!", "提示", MessageBoxButtons.OK)
    e.Cancel = True
    MessageBox.Show(1)
Else
   
    For i As Integer = 1 To 6
        Dim d1 As Date = e.Form.Controls("登记时间" & i).Value
       
        If e.Form.Controls("机房名称" ).Text > ""  And e.Form.Controls("日期" ).Text > "" Then
            If e.Form.Controls("类型" & i ).Text > ""  Then
                If  d1 <> Nothing And e.Form.Controls("负载电流" & i ).Text > ""  And e.Form.Controls("放电电压" & i ).Text > ""   Then
                   
                    Dim ndr As DataRow = DataTables("机房电池放电登记表").Find("机房名称 = '" & e.Form.Controls("机房名称").Text & "' And 日期 = #" & e.Form.Controls("日期").Text & "#  And convert(登记时间,'System.String') = '1900-1-1 " & format(e.Form.Controls("登记时间" & i).Value,"HH:mm") & ":00' And  类型 = '" & e.Form.Controls("类型" & i).Text & "' and 负载电流 = '" & e.Form.Controls("负载电流" & i).Text & "'and 放电电压 = '" & e.Form.Controls("放电电压" & i).Text & "'")

                   
                    If ndr Is Nothing Then
                        ndr  = DataTables("机房电池放电登记表").AddNew
                       
                        ndr("机房名称") = e.Form.Controls("机房名称").Text
                        ndr("日期") = e.Form.Controls("日期").Text
                        ndr("登记时间") = d1
                        ndr("负载电流") = e.Form.Controls("负载电流" & i).Text
                        ndr("放电电压") = e.Form.Controls("放电电压" & i).Text
                        ndr("类型") = e.Form.Controls("类型" & i).Text
                        DataTables("机房电池放电登记表").Save()
                    End If
                Else
                    MessageBox.Show("请填入完整数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
                End If
               
            End If
           
        End If
    Next
End If

在datacolchanged要判断列名的

If e.DataCol.Name <> "操作记录_修改日期" Then

    e.DataRow("操作记录_修改日期") = dt

End If