主题：多行的选定和输入

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

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

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

就是说选定多行后， 点击按钮， 多行的数据都变成按钮的标题