以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]窗口中有一个TextBox和表,双击表列给TextBox赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173063) |
-- 作者:王小风 -- 发布时间:2021/11/13 8:39:00 -- [求助]窗口中有一个TextBox和表,双击表列给TextBox赋值 这个代码无效,大佬们帮忙看看这个怎么写 Dim txt1 As String=e.Form.controls("TextBox1").text Dim tb As Row=e.Row If e.Col.Name="订单信息_订单号" Then txt1=tb("订单信息_订单号") End If
|
-- 作者:fanjq8686 -- 发布时间:2021/11/13 8:50:00 -- Dim tb As Row = Tables("订单管理窗口_Table1").Current |
-- 作者:王小风 -- 发布时间:2021/11/13 8:57:00 -- 此代码无效,我是在表的事件中写的代码。双击订单号 无报错 textbox也无赋值 |
-- 作者:有点蓝 -- 发布时间:2021/11/13 9:03:00 -- If e.Col.Name="订单信息_订单号" Then e.Form.controls("TextBox1").text = e.Row("订单信息_订单号") End If |
-- 作者:王小风 -- 发布时间:2021/11/13 9:25:00 -- 受教了 。原理应该和我写的 一样, 但是不知道为什么我写的不行,难道这里不能定义变量?很奇怪的问题!!! |
-- 作者:有点蓝 -- 发布时间:2021/11/13 9:37:00 -- 只是赋值给变量,又没有给控件赋值,有啥用。变量和控件是2个不同的东西 txt1=tb("订单信息_订单号") e.Form.controls("TextBox1").text = txt1
|
-- 作者:王小风 -- 发布时间:2021/11/13 10:08:00 -- 谢谢 受教了 |