以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码还是有问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104095)

--  作者:天蝉一下
--  发布时间:2017/7/23 11:43:00
--  代码还是有问题
双击表的某行,窗口1应该显示出数据来,怎么没显示。非得鼠标点一下控件才能显示刚才双击的数据!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文本框控件处理.foxdb


--  作者:有点甜
--  发布时间:2017/7/23 12:28:00
--  
Dim lst As WinForm.Table = e.Form.Controls("Table1")
Forms("窗口1").Controls("TextBox1").value=lst.Table.Current("第一列")
Forms("窗口1").Controls("lable-TextBox1").text=lst.Table.Current("第一列")
Forms("窗口1").Controls("ComboBox1").value=lst.Table.Current("第二列")
Forms("窗口1").Controls("lable-ComboBox1").text=lst.Table.Current("第二列")
Forms("窗口1").Controls("CheckedComboBox1").value=lst.Table.Current("第三列")
Forms("窗口1").Controls("lable-CheckedComboBox1").text=lst.Table.Current("第三列")
Forms("窗口2").close