以文本方式查看主题

-  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=157484)

--  作者:wakai
--  发布时间:2020/10/17 23:54:00
--  文本框值判断赋值问题
要实现如果文本框A值为 "/"时,表B的C列等于A值,
在文本框ValueChanged写代码如下,哪里错了

If e.Form.Controls("A").value = "/" Then
    Tables("B").Current("C列")= e.Form.Controls("A").value
Else
    Return
End If


--  作者:wyz20130512
--  发布时间:2020/10/18 20:51:00
--  
没问题呀?报什么错?
--  作者:wakai
--  发布时间:2020/10/19 11:04:00
--  
没有报错,但是没起作用,e.Form.Controls("A").value输入值为"/"时,Tables("B").Current("C列")并没同时赋值为"/"
--  作者:有点酸
--  发布时间:2020/10/19 11:45:00
--  
If e.Form.Controls("A").value = "/" Then
    Tables("B").Current("C列")= e.Form.Controls("A").value
    Messagebox.show(Tables("B").Current("C列"))
Else
    Return
End If

看看执行了没有,不行就做个例子发上来测试

--  作者:wakai
--  发布时间:2020/10/21 22:23:00
--  
以下是引用有点酸在2020/10/19 11:45:00的发言:
If e.Form.Controls("A").value = "/" Then
    Tables("B").Current("C列")= e.Form.Controls("A").value
    Messagebox.show(Tables("B").Current("C列"))
Else
    Return
End If

看看执行了没有,不行就做个例子发上来测试

找到原因了,代码没激活,非常感谢