需要选中下一行的时候按快捷键自动复制上一行对应列的数据,写了两种方法:方法1:
Dim dr As Row = CurrentTable.Current
With CurrentTable
If dr.Index >= 1 Then
For Each dr1 As Row In CurrentTable.Rows
If dr1.Index =dr.Index-1 Then
dr(.ColSel)=dr1(.Colsel)
End If
Next
End If
End With
方法2:
Dim dr As Row = CurrentTable.Current
Dim dr1 As Row
With CurrentTable
if .Position>=1 then
.Position = .position -1
dr1 =CurrentTable.Current
dr(.colsel)=dr1(.colsel)
.Position = .position +1
end if
End With
但是都只能针对单独的单元格,如果需要在第二行选择多个单元格的时候也能自动复制第一行的对应列数据需要怎么写代码?
加好友 
发短信
Post By：2012/9/22 17:16:00 [只看该作者]
