开始日期输入框输入:2014-05-14,开始时间输入框输入:08:20,怎样增加到表A开始日期列.求代码?谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

 哪里有开始时间输入框？

 如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

有点甜老师,不好意思上传错了.开始日期输入框输入:yyyy-MM-dd,时 输入框要求07-16范围内.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目a.zip

 代码

Dim d As Date
Dim hour As Integer
Dim minute As Integer

Dim kjmc() As String
Dim kjmcjh As String
kjmcjh = "开始日期,时,分" \'控件名称集合
kjmc = kjmcjh.split(",")
For i As Integer = 0 To kjmc.Length - 1
    If e.Form.Controls(kjmc(i)).text = "" Then
        MessageBox.Show("请输入:【" & kjmc(i) & "】 !","提示", MessageBoxButtons.OK,MessageBoxIcon.Question)
        Return
    End If
Next

hour = e.Form.Controls("时").text
If hour > 16 OrElse hour < 7 Then
    msgbox("时:7-16")
Return
End If

minute = e.Form.Controls("分").text
If minute > 59 OrElse minute < 0 Then
    msgbox("分:0-59")
Return
End If

Dim r As Row = e.Form.Controls("Table1").Table.addnew
d = e.Form.Controls("开始日期").text
r("开始日期") = new Date(d.Year, d.Month, d.Day, hour, minute, 0)

谢谢