以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  多行的选定和输入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56529)
--  作者：jinzhengbe
--  发布时间：2014/9/8 1:37:00
--  多行的选定和输入

Dim t As Table = Tables("商品")
t.Current(t.ColSel)=e.Sender.text
With CurrentTable
    .Position = .Position + 1
End With

 

这个代码是选定的一行上有效

可不可以做成选定的多行一样有效呢

 

就是说选定多行后， 点击按钮， 多行的数据都变成按钮的标题
--  作者：y2287958
--  发布时间：2014/9/8 9:56:00
--  
For i As Integer = Tables("表A").TopPosition To Tables("表A").BottomPosition
    Tables("表A").Rows(i)(Tables("表A").ColSel)=e.Sender.text
Next
Tables("表A").Position = Tables("表A").BottomPosition + 1
--  作者：jinzhengbe
--  发布时间：2014/9/14 19:55:00
--  

在追加一点啊

加入我想所有被选中的  aa列的数据都变成 按钮的代码应该怎么办？

不好意思啊。我是文盲，多多包含
--  作者：有点甜
--  发布时间：2014/9/14 19:59:00
--  
Dim t As Table = Tables("表A")
For i As Integer = t.TopPosition To t.BottomPosition
    For j As Integer = t.LeftCol To t.RightCol
        Tables("表A").Rows(i)(j)=e.Sender.text
    Next
Next