Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求 重置光标当前所在单元格的代码


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

主题：求 重置光标当前所在单元格的代码
帅哥哟，离线，有人找我吗？
mr725
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/2/2 11:34:00 [只看该作者]

以下是引用卟离卟弃在2010-2-2 8:32:00的发言：

Dim r As Row = Tables("表B").Current
r("第三列") = r("第一列") * r("第二列")


C版主，这样的按钮，工作量太大了

怎么样才能像 菜单栏中的重置列按钮那样
随便选中那个表，随便一个单元格都可以实现重置单元格功能（重置整列计算量太大了，只需要重置选中单元格）

MainTable.value = 1  表示给选中的单元格写入 1  。
 回到顶部
帅哥哟，离线，有人找我吗？
pc005637
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1037 积分：12899 威望：0 精华：0 注册：2011/5/29 15:19:00 		回复：（卟离卟弃）求 重置光标当前所在单元格的代码...  发帖心情 Post By：2012/2/8 17:35:00 [只看该作者]

代码：

If CurrentTable IsNot Nothing AndAlso CurrentTable.ColSel >= 0 Then
    Dim dc As DataCol = CurrentTable.Cols(CurrentTable.ColSel).DataCol
    Dim dr As DataRow = CurrentTable.Current.DataRow
    dc.RaiseDataColchanged(dr)
End If

 

这是参考系统菜单模板和狐爸的回复写的。经过实践证明可用。
 回到顶部
帅哥哟，离线，有人找我吗？
ajim
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：200 积分：1881 威望：0 精华：0 注册：2011/11/24 15:19:00 		  发帖心情 Post By：2012/2/10 9:55:00 [只看该作者]

 有办法 叫做CurrentTable

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


加好友 发短信
等级：童狐 帖子：200 积分：1881 威望：0 精华：0 注册：2011/11/24 15:19:00 		  发帖心情 Post By：2012/2/10 9:56:00 [只看该作者]

Dim r As Row = CurrentTable.Current
r("第三列") = r("第一列") * r("第二列")

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