Foxtable(狐表)用户栏目专家坐堂 → 控件提示


  共有4100人关注过本帖树形打印复制链接

主题:控件提示

美女呀,离线,留言给我吧!
联友
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
控件提示  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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 )

 回到顶部
美女呀,离线,留言给我吧!
联友
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2565 威望:0 精华:0 注册:2013/5/23 9:49:00
  发帖心情 Post By:2013/10/23 8:53:00 [只看该作者]

谢谢

 


 回到顶部