以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  检查某个文本框为空，不能录入的代码。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97277)
--  作者：feixianzhi
--  发布时间：2017/3/9 8:52:00
--  检查某个文本框为空，不能录入的代码。


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170309084333.png
图片点击可在新窗口打开查看

 


我想实现，点确定时，当TextBox合同编号和TextBox合同单位，这两个文本框为空时提示，合同编号和合同单位为空，不能录入。而后返回编辑窗口。请各位老师帮忙。
--  作者：有点蓝
--  发布时间：2017/3/9 9:21:00
--  
if e.Form.Controls("TextBox1").Text = "" then
  msgbox("xxx不能为空")
  return
end if
--  作者：feixianzhi
--  发布时间：2017/3/9 10:37:00
--  
非常感谢有点蓝老师。还有一个问题，我想合同编号、合同单位、返利单位都不能为空提示，能不能自动检查，哪个为空则提示哪个。
--  作者：有点色
--  发布时间：2017/3/9 10:38:00
--  

拷贝多段

 

if e.Form.Controls("TextBox1").Text = "" then

  msgbox("xxx不能为空")
  return
end if

 

if e.Form.Controls("TextBox2").Text = "" then

  msgbox("yyy不能为空")
  return
end if
--  作者：feixianzhi
--  发布时间：2017/3/9 10:44:00
--  
谢谢有点色老师的帮忙。
--  作者：feixianzhi
--  发布时间：2017/3/9 16:11:00
--  
麻烦问一下，窗口DateTimePicker控件能设置默认成当天日期吗。
--  作者：foxor
--  发布时间：2017/3/9 16:20:00
--  
e.form.controls("datetimepick1").value=date.today
--  作者：有点色
--  发布时间：2017/3/9 16:42:00
--  

AfterLoad事件

 

e.form.controls("datetimepick1").value=date.today
--  作者：feixianzhi
--  发布时间：2017/3/9 17:00:00
--  
谢谢有点色老师。
--  作者：feixianzhi
--  发布时间：2017/3/10 10:39:00
--  

麻烦有点色老师，我有个窗口，四个文本框，分别是单价、数量、调整金额、合计金额。

我想实现：单价、数量有一个为空时，合计金额为零，当单价、数量都不为空时，合计金额=单价×数量+调整金额。

请有点色老师帮忙。