以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 录入按钮公式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56519)
--  作者：wumingrong1
--  发布时间：2014/9/7 20:19:00
--  [求助] 录入按钮公式
我想实现按下 录入 按钮时。能够实现数据表中的那样效果
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.foxdb
--  作者：a87918021
--  发布时间：2014/9/8 15:44:00
--  
开发版的，太高端了。帮不了你。等版主他们吧
--  作者：狐狸爸爸
--  发布时间：2014/9/9 9:36:00
--  

这样：

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
--  作者：有点甜
--  发布时间：2014/9/9 9:43:00
--  
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
--  作者：wumingrong1
--  发布时间：2014/9/10 16:51:00
--  
Dim d2 As String = e.Form.Controls("登记时间" & i).Text 

如果控件 “登记时间”是 DateTimePicker 类型；以上公式该怎么改？
--  作者：有点甜
--  发布时间：2014/9/10 16:55:00
--  

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

 

或者

 

Dim d2 As Date = e.Form.Controls("登记时间" & i).Text
--  作者：wumingrong1
--  发布时间：2014/9/10 17:11:00
--  
有如下录入按钮；红色部分是为了防止重复录入内容；如果加入有蓝色的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
   End If
     End If

    End If

Next
--  作者：有点甜
--  发布时间：2014/9/10 17:49:00
--  
 And 登记时间 = #" & d2 & "#"