找回密码
 立即注册

QQ登录

只需一步,快速开始

jimmyking

中级会员

6

主题

20

帖子

888

积分

中级会员

积分
888

活字格认证

jimmyking
中级会员   /  发表于:2013-12-10 10:44  /   查看:5387  /  回复:5
Public WithEvents vaSpread3 As AxFPSpreadADO.AxfpSpread

5.0的写法
vaSpread3.ActiveSheet.ActiveRowIndex = vaSpread3.MaxRows
vaSpread3.ActiveSheet.AddSelection(vaSpread3.ActiveSheet.ActiveRowIndex, -1, 1, -1)


7.0的写法 怎么写呀  求助

可以如下写么?
                   vaSpread3.AllowMultiBlocks = True
                    Dim i As Integer = 0
                    For i = 1 To vaSpread3.MaxRows
                        vaSpread3.Row = i
                        vaSpread3.SelModeSelected = True
                    Next i

5 个回复

倒序浏览
roger.wang
社区贡献组   /  发表于:2013-12-10 14:23:00
沙发
回复 1楼jimmyking的帖子

实现全选,用这行代码试试
  1. axfpSpread1.SetSelection(-1, -1, -1, -1)
复制代码
回复 使用道具 举报
jimmyking
中级会员   /  发表于:2013-12-10 15:39:00
板凳
回复 2楼roger.wang的帖子

谢谢,我不是想全选,我想选择在最后1行。这样怎么写呀
回复 使用道具 举报
roger.wang
社区贡献组   /  发表于:2013-12-10 18:41:00
地板
回复 3楼jimmyking的帖子

Dim maxRow As Integer = axfpSpread1.MaxRows
axfpSpread1.SetActiveCell(0, maxRow)

axfpSpread1.SetSelection(0, maxRow, 0, maxRow)

这段代码,您试试看。
回复 使用道具 举报
jimmyking
中级会员   /  发表于:2013-12-11 09:04:00
5#
回复 4楼roger.wang的帖子

谢谢
回复 使用道具 举报
roger.wang
社区贡献组   /  发表于:2013-12-11 09:08:00
6#
回复 5楼jimmyking的帖子

不客气, 彼此多多交流。   
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 立即注册
返回顶部