主题：老爹看下什么错误？

此主题相关图片如下：01.jpg

 

事件代码如下：

 

Dim js As Integer
Dim Sum As Integer
With CurrentTable
    js = .Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow,

.RightCol)
    Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow,

.RightCol)
End With
Forms("主窗口").controls("js").text = js
Forms("主窗口").controls("lj").text = sum

做例子，传文件

这个数据库用的外部数据库，是ｓｑｌ的，怎么做例子？

开始位置加上：

 

if currenttable is nothing then

   return

end if