主题：如何实现，下述目的，谢谢

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、在“单位名称”中选择“无”时（或者选择空格时），录入的单位地址、单位负责人及单位名称中的“无”自动清空，并保存

有些软件的录入框中（比如：职务）的下拉菜单中有一个空格，选择时，刚才根据录入框（比如：职务）在后面录入框生成的数据（比如：基础工资）自动清空！！！如何实现的，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:rsgzglxt.rar

版主帮帮

没有看您的文件,这样试试:

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

如果end if 后面还有其他代码需要在不满足条件时终止代码运行，加上您原来的

ELSE

Return       '终止代码的执行

如果整个事件就这些代码（该end if 往后再没有别的代码，就不需要else即可）

还是不行

版主帮帮

'...按钮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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:rsgzglxt.rar