主题：这代码有错吗

Select Case e.DataCol.Name
     Case "金额"
        Dim dd As WinForm.TextBox = Forms("销售收款输入窗口").Controls("TextBox1")
        Dim zje As WinForm.TextBox = Forms("销售收款输入窗口").Controls("总金额")
        zje.Value = e.DataCol.DataTable.Compute("sum(金额)","[销售收款单号] = '" & dd.Value & "'")
End Select

以上是想统计子窗体的金额合计值，在

DataColChanged事件中没反应