以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在窗口中的添加按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91332)
--  作者：kjkui
--  发布时间：2016/10/8 15:10:00
--  在窗口中的添加按钮
在添加窗口中，有两个字段（一个下拉框，一个时间控件）为必填项，点击“添加”按钮，会判断是否填写必填项，如果没有填写则会提示必填，怎样写？？
Dim str7 As String = e.Form.Controls("ComboBox5").Value
Dim str8 As String = e.Form.Controls("DateTimePicker1").Value
r("制单人")=str7
r("创建时间")=str8
Dim r As Row = Tables("订单管理").AddNew
With Tables("订单管理")
    If .Current IsNot Nothing Then
        .Current.Save()
    End If
End With

Forms("窗口2").Close()
--  作者：有点蓝
--  发布时间：2016/10/8 15:16:00
--  
Dim str7 As String = e.Form.Controls("ComboBox5").Value
If str7 = "" Then
    msgbox("制单人没填")
    Return
End If
Dim str8 As Date = e.Form.Controls("DateTimePicker1").Value
If str8 Is Nothing Then
    msgbox("创建时间没填")
    Return
End If
r("制单人")=str7
r("创建时间")=str8
......
--  作者：kjkui
--  发布时间：2016/10/8 15:24:00
--  
谢谢老师！！