[求助] 录入按钮公式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有如下录入按钮；红色部分是为了防止重复录入内容；如果加入有蓝色的And 登记时间 = '" & d2 & "' 条件，就没法控制不重复录入；如果把该条件去除就可防止重复录入。“登记时间”是 DateTimePicker 类型我该怎么改这个命令？

For i As Integer = 1 To 6

Dim d1 As String = e.Form.Controls("日期").Text

Dim d2 As Date = e.Form.Controls("登记时间" & i).Value

Dim ndr As DataRow = DataTables("机房电池放电登记表").Find("机房名称 = '" & e.Form.Controls("机房名称").Text & "' And 日期 = '" & d1 & "' and 负载电流 = '" & e.Form.Controls("负载电流" & i).Text & "'and 放电电压 = '" & e.Form.Controls("放电电压" & i).Text & "' And 登记时间 = '" & d2 & "' ")

If ndr Is Nothing Then

If e.Form.Controls("机房名称" ).Text > "" And e.Form.Controls("日期" ).Text > "" Then

If e.Form.Controls("登记时间" & i).text > "" Then

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

ndr = DataTables("机房电池放电登记表").AddNew

ndr("机房名称") = e.Form.Controls("机房名称").Text

ndr("日期") = d1

ndr("登记时间") = d2

ndr("负载电流") = e.Form.Controls("负载电流" & i).Text

ndr("放电电压") = e.Form.Controls("放电电压" & i).Text

DataTables("机房电池放电登记表").Save()

Else

MessageBox.Show("请填入完整数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)

End If

主题：[求助] 录入按钮公式