主题：未定义函数的问题

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("行政案件"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("办案部门") '根据办案部门分组
bd1.Totals.AddDef("案件数","查办案件总数") '对数量进行统计
bd1.Totals.AddDef("行政罚款","行政罚款") '对金额进行统计
dt1 = bd1.BuildDataSource()

Tables("统计_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("统计_Table1").DataCols  '用表达式列计算库存数据
    .Add("滥伐案",Gettype(Integer), " DataTables('行政案件').Compute('Sum(案件数)','[办案部门] = '' & dr('办案部门') & ''')")

End With

这段代码提示下面的问题，我是要怎么改正？

此主题相关图片如下：截图20130822220207.png