简单的计算并提示金额:
Dim sum As Double = DataTables("表名").Compute("Sum(金额)")
Messagebox.Show("金额合计:" & sum)
建议先按顺序学习帮助文件。