- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 控件提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41573)
-- 发布时间：2013/10/22 21:08:00
-- 控件提示
点击统计按钮时，如果起始日期、结束日期控件内容为空时提示，怎样加代码。
统计按钮：
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("结束日期")
e.Form.Controls("Table1").Table.Fill("Select 名称,规格,SUM(数量) AS 数量,单位 From {固定资产入库}WHERE 入库日期 >= #"& dtp1.Value &"# AND 入库日期 <= #"& dtp2.Value &"# GROUP BY 名称,规格,单位", True )
请指教
此主题相关图片如下：qq截图20131022205758.png
-- 发布时间：2013/10/22 21:20:00
--
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("结束日期")
If dtp1.Value Is Nothing Then
msgbox("起始日期不能为空")
Return
End If
If dtp2.Value Is Nothing Then
msgbox("结束日期不能为空")
Return
End If
e.Form.Controls("Table1").Table.Fill("Select 名称,规格,SUM(数量) AS 数量,单位 From {固定资产入库}WHERE 入库日期 >= #"& dtp1.Value &"# AND 入库日期 <= #"& dtp2.Value &"# GROUP BY 名称,规格,单位", True )
-- 发布时间：2013/10/23 8:53:00
--
谢谢