Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教，窗口表（normal）的选定行是current行吗？


  共有1647人关注过本帖树形打印复制链接

主题：求教，窗口表（normal）的选定行是current行吗？
帅哥哟，离线，有人找我吗？
lxq3736
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1535 威望：0 精华：1 注册：2017/10/13 22:41:00 		求教，窗口表（normal）的选定行是current行吗？  发帖心情 Post By：2017/12/4 21:59:00 [只看该作者]

在窗口表中（加了样式），用鼠标点击后记录按样式变化了。但是在currentchanged的事件中 为啥赋值无效（将当前记录赋值到控件上）？求例子！

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106316 积分：540715 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/12/4 22:04:00 [只看该作者]

贴出你的currentchanged的事件代码！

If e.Table.Current IsNot Nothing andalso Forms("窗口1").Opened Then '如果Current为Nothing
      Forms("窗口1").Controls("Textbox1").Text = e.Table.Current("第一列")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lxq3736
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1535 威望：0 精华：1 注册：2017/10/13 22:41:00 		  发帖心情 Post By：2017/12/4 22:18:00 [只看该作者]

currentchanged事件代码（ybg表的事件） 

Dim TB1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim TB2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim TB3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim TB4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim CB1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim CB2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")


TB2.TEXT = Tables("YGB").CURRENT("YGXM")
TB3.TEXT = Tables("YGB").CURRENT("PHONE1")
TB4.TEXT = Tables("YGB").CURRENT("SFZHM")
cb1.text = Tables("YGB").CURRENT("YGXB")
cb2.text = Tables("YGB").CURRENT("zw")
 回到顶部
帅哥哟，离线，有人找我吗？
lxq3736
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1535 威望：0 精华：1 注册：2017/10/13 22:41:00 		  发帖心情 Post By：2017/12/4 22:22:00 [只看该作者]

测试成功！谢谢老师！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询