复制上一行数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制上一行数据

共有9685人关注过本帖树形打印复制链接主题：复制上一行数据

hawkerwin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：29 积分：391 威望：0 精华：0 注册：2012/3/25 9:14:00

复制上一行数据 发帖心情

Post By：2012/9/22 17:16:00 [只看该作者]

需要选中下一行的时候按快捷键自动复制上一行对应列的数据,写了两种方法:

方法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

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

但是都只能针对单独的单元格,如果需要在第二行选择多个单元格的时候也能自动复制第一行的对应列数据需要怎么写代码?

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/22 17:37:00 [只看该作者]

这样写，自己加一个判断

Dim pre_row As Row = CurrentTable.Rows(CurrentTable.Current.Index - 1)
Dim curr_row As Row = CurrentTable.Current
For i As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
curr_row(i) = pre_row(i)
Next

hawkerwin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：29 积分：391 威望：0 精华：0 注册：2012/3/25 9:14:00

Post By：2012/9/22 19:03:00 [只看该作者]

谢谢 lin_hailun

问题解决了,原来可以CurrentTable.Rows(CurrentTable.Current.Index - 1) 这样直接定义上一行,我弄个了半天搞太复杂了 ,还得认真学习啊

下一主题 >> << 上一主题

主题：复制上一行数据