以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]关于信息显示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158291)

--  作者:工匠
--  发布时间:2020/11/14 15:17:00
--  [讨论]关于信息显示
老师好:
请教一下,原来在状态栏显示的,如何实现放在窗口1,Label1控件显示
原来代码
With CurrentTable     
        Dim Str1 As String = "当前用户:" & User.Name  "
        Str1 = Str1 & "  " & " 总行数: "
        Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)
        StatusBar.Message1 = Str1
    End With

谢谢!

--  作者:有点蓝
--  发布时间:2020/11/14 15:23:00
--  
StatusBar.Message1 = Str1
改为
forms(“窗口1”).controls(“Label1”).text = Str1
--  作者:工匠
--  发布时间:2020/11/14 15:33:00
--  
谢谢老师
这么快就回复了,再延申一下,如果鼠标所在单元格的列属于数据型的,能在这个Label1计算出当前列+显示出合计值/最大值/最小值/平均值吗?,如果鼠标所在单元格列属于字符型,就显示0
谢谢!

--  作者:有点蓝
--  发布时间:2020/11/14 16:20:00
--  
参考:http://www.foxtable.com/webhelp/topics/0545.htm
--  作者:工匠
--  发布时间:2020/11/14 16:53:00
--  
谢谢老师,还要请教下,这里的选择区域如何变成整列(不用去选择整列)
Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)


--  作者:有点蓝
--  发布时间:2020/11/14 16:58:00
--  
Sum = .Aggregate(AggregateEnum.Sum, 0, .LeftCol, Rows.count - 1, .RightCol)
--  作者:工匠
--  发布时间:2020/11/14 17:44:00
--  
谢谢老师,

可以用了

谢谢!
[此贴子已经被作者于2020/11/14 19:00:06编辑过]