以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口中有一个TextBox和表,双击表列给TextBox赋值  (http://foxtable.net/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
--  
谢谢 受教了