- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] button (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117674)
-- 发布时间：2018/4/17 14:20:00
-- [求助] button
想做一个button。 点击之后表中从第三列开始往后的所有单元格都填充0. 目前只会用datacolchangede 。但是在控件上如何实现呢
-- 发布时间：2018/4/17 14:47:00
--
Dim cr As Row = Tables("表A").current
For i As Integer = 3 To cr.Table.cols.count-1
cr(cr.Table.cols(i)) = 0
Next
-- 发布时间：2018/4/17 16:14:00
--
这个好像只能选择的一个单元格会变成0.其他的没有变化呀。
-- 发布时间：2018/4/17 16:21:00
--
以下是引用81538475在2018/4/17 16:14:00的发言：
这个好像只能选择的一个单元格会变成0.其他的没有变化呀。
这个好像只能选择的一个单元格会变成0.其他的没有变化呀。
上传具体项目，说明你要得到的效果。
-- 发布时间：2018/4/17 16:30:00
--
就是点击之后，除了前三列之外的所有单元格都清零。现在是，选择哪一行 就会清零哪里行，如果是这样的话，能够选择多行之后执行命令清零也是挺好的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.foxdb |
-- 发布时间：2018/4/17 16:35:00
--
For Each cr As Row In Tables("表A").Rows
For i As Integer = 3 To cr.Table.cols.count-1
cr(cr.Table.cols(i)) = 0
Next
Next
-----------------
Dim t As Table = Tables("表A")
For j As Integer = t.TopPosition To t.BottomPosition
Dim cr As Row = t.Rows(j)
For i As Integer = 3 To cr.Table.cols.count-1
cr(cr.Table.cols(i)) = 0
Next
Next