如果只有一个分组行时:
Forms("窗口1").Controls("Label1").text = Currenttable.rows(Currenttable.count,True)("列名")
否则,Currenttable.count-1再加上分组行的个数。