以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口表选定一行,表中相关内容显示到窗口中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97364)

--  作者:feixianzhi
--  发布时间:2017/3/10 16:03:00
--  窗口表选定一行,表中相关内容显示到窗口中

如图:

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170310155807.png
图片点击可在新窗口打开查看

我想实现,选定返利合同表第8行,那第8行相关列的内容显示到上面相对应的文本框中,编码怎么写,请各位老师帮忙。


--  作者:有点色
--  发布时间:2017/3/10 17:34:00
--  

CurrentChanged事件

 

Dim cr As Row = e.Table.Current

If Forms("窗口1").Opened AndAlso cr IsNot Nothing Then

    Forms("窗口1").Controls("TextBox1").Text = cr("第一列")

    Forms("窗口1").Controls("TextBox2").Text = cr("第二列")

End If


--  作者:feixianzhi
--  发布时间:2017/3/13 8:02:00
--  
谢谢有点色老师的帮忙。