- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现，下述目的，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4473)
-- 发布时间：2009/9/30 14:31:00
-- 如何实现，下述目的，谢谢
Dim TT As String
TT = e.Form.Controls("TextBox4").Value
if TT = "无" then
Dim cma As WinForm.TextBox = e.Form.Controls("TextBox2")
cma.value=""
Dim cmb As WinForm. TextBox = e.Form.Controls("TextBox3")
cmb.value=""
Dim cmc As WinForm. TextBox = e.Form.Controls("TextBox4")
cmb.value=""
ELSE
Return \'终止代码的执行
end if
在“单位基本录入”表中的“单位基本信息录入”窗口想实现如下的目的：
1、在“单位名称”中选择“无”时（或者选择空格时），录入的单位地址、单位负责人及单位名称中的“无”自动清空，并保存
-- 发布时间：2009/9/30 14:34:00
--
有些软件的录入框中（比如：职务）的下拉菜单中有一个空格，选择时，刚才根据录入框（比如：职务）在后面录入框生成的数据（比如：基础工资）自动清空！！！如何实现的，谢谢
-- 发布时间：2009/9/30 15:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rsgzglxt.rar |
-- 发布时间：2009/9/30 15:58:00
--
版主帮帮
-- 发布时间：2009/9/30 16:32:00
--
没有看您的文件,这样试试:
Dim TT As String
TT = e.Form.Controls("TextBox4").Value
if TT = nothing or TT = " " or TT = " 无" then
Dim cma As WinForm.TextBox = e.Form.Controls("TextBox2")
cma.value= nothing
Dim cmb As WinForm. TextBox = e.Form.Controls("TextBox3")
cmb.value= nothing
Dim cmc As WinForm. TextBox = e.Form.Controls("TextBox4")
cmb.value= nothing
end if
-- 发布时间：2009/9/30 16:37:00
--
如果end if 后面还有其他代码需要在不满足条件时终止代码运行，加上您原来的
ELSE
Return \'终止代码的执行
如果整个事件就这些代码（该end if 往后再没有别的代码，就不需要else即可）
-- 发布时间：2009/9/30 16:55:00
--
还是不行
-- 发布时间：2009/9/30 17:14:00
--
|
版主帮帮 |
-- 发布时间：2009/9/30 17:29:00
--
\'...按钮Click事件代码
Dim r As Row = Tables("单位基本信息录入").Current
if CurrentTable.Current.Locked Then \'判断当前行是否锁定
Return \'锁定就终止代码的执行
Else \'为锁定就执行以下代码
Forms("单位名称目录4").Open()
e.Cancel = True
Dim TT As String
TT = e.Form.Controls("TextBox4").Value
if TT = "无" OrElse TT = "" then
r("单位地址") = Nothing
r("单位负责人") = Nothing
r("单位名称") = Nothing
end if
End If
-- 发布时间：2009/9/30 17:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:rsgzglxt.rar |