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

我想实现按下录入按钮时。能够实现数据表中的那样效果

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.foxdb

开发版的，太高端了。帮不了你。等版主他们吧

这样：

For i As Integer = 1 To 2
    If e.Form.Controls("机柜编号"& i).Value isnot nothing then
        Dim r As DataRow = DataTables("板盘台帐表").Addnew
        r("机柜编号") = e.Form.Controls("机柜编号"& i).Value
        r("板盘类型") = e.Form.Controls("板盘类型"& i).Value
        '...
    Next
Next

For i As Integer = 1 To 3
    If e.Form.Controls("机柜编号" & i).Text > "" Then
        For j As Integer = e.Form.Controls("板盘端子起" & i).Text To e.Form.Controls("板盘端子止" & i).Text
            Dim ndr As DataRow = DataTables("板盘台帐表").AddNew
            ndr("机房名称") = e.Form.Controls("机房名称").Text
            ndr("机柜编号") = e.Form.Controls("机柜编号" & i).Text
            ndr("板盘名称") = e.Form.Controls("板盘名称" & i).Text
            ndr("板盘类型") = e.Form.Controls("板盘类型" & i).Text
            ndr("板盘端子") = j
        Next
    End If
Next

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

如果控件 “登记时间”是 DateTimePicker 类型；以上公式该怎么改？

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

或者

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

有如下录入按钮；红色部分是为了防止重复录入内容；如果加入有蓝色的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

And 登记时间 = #" & d2 & "#"

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