以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  条件代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21166)

--  作者:lsf5138
--  发布时间:2012/7/4 0:57:00
--  条件代码

窗口中有个(添加行)按钮 要有条件的添加行 如下:

   1》 主表的是否打印列(罗辑列)如果选定 添加行按钮不可用

   2》 窗口的TextBox2=NO                  添加行按钮不可用

                                     可提示:本单已打印或本行未保存!

 

 

请教代码,谢了!


--  作者:sloyy
--  发布时间:2012/7/4 2:48:00
--  
 

表A_PositionChanged

 

If CurrentTable.Current("是否打印")=True Or Forms("窗口1").Controls("TextBox2").text ="no" Then

Forms("窗口1").Controls("Button1").Enabled=False

Else

Forms("窗口1").Controls("Button1").Enabled=True

End If

 

窗口1_TextBox2_TextChanged

 

If CurrentTable.Current("是否打印")=True Or Forms("窗口1").Controls("TextBox2").text ="no" Then

Forms("窗口1").Controls("Button1").Enabled=False

Else

Forms("窗口1").Controls("Button1").Enabled=True

End If


--  作者:lsf5138
--  发布时间:2012/7/6 0:43:00
--  

水洗表主窗口 确认按钮 条件报错

水洗表是主表 水洗明细表是关联子表

在水洗明细表写上这个代码

 

If CurrentTable.Current("确认")=True Then
       Forms("水洗窗口").Controls("Button2ts").Enabled=False
     Else
       Forms("水洗窗口").Controls("Button2ts").Enabled=True
End If

 

 

怎么老是报错了,请教了!!!!!!!!!!!!!!

[此贴子已经被作者于2012-7-6 0:56:26编辑过]

--  作者:狐狸爸爸
--  发布时间:2012/7/6 8:28:00
--  

1、一般不应该用Currentable,应该用Tables(""表名)

2、你可以做个例子发上来,这样我们就可以知道你具体错在哪里。