Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:code.rar |
第三个顶,呵呵
增加了20个并且比帮助中精减了代码
帮助:
If e.Table.Position = -1 Then '如果当前行不是数据行
StatusBar.Message1 = "共" & e.Table.Rows.Count & "行" '只显示总行数
Else '否则显示当前行位置和总行数
StatusBar.Message1 = "第" & e.Table.Position+1 & "行,共" & e.Table.Rows.Count & "行"
End If
精减:
StatusBar.Message1 = "第" & (e.Table.Position + 1) & "行,共" & e.Table.Rows.Count & "行"