主题：[求助] button

想做一个button。 点击之后表中从第三列开始往后的所有单元格都填充0.  目前只会用datacolchangede 。但是在控件上如何实现呢

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

这个好像只能选择的一个单元格会变成0.其他的没有变化呀。

 

上传具体项目，说明你要得到的效果。

就是点击之后，除了前三列之外的所有单元格都清零。现在是，选择哪一行 就会清零哪里行，如果是这样的话，能够选择多行之后执行命令清零也是挺好的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.foxdb

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