主题：异步函数

Select Case e.DataCol.name
    Case "楼房编号"
        If DataTables.Contains("楼房账面明细") = True Then
            e.DataRow("账面_住宅") = DataTables("楼房账面明细").SQlCompute("sum(住宅_金额)",filter1)

end if

end select

有很多类似上述黄色部分的计算代码，计算一次需要20分钟以上，能否使用异步函数计算，应该怎么修改？