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事件中没反应

Select Case e.DataCol.Name
     Case "金额"

  If forms("窗口1").Opened Then
        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 If
End Select

还是没反应

Select Case e.DataCol.Name
     Case "金额"

  If forms("窗口1").Opened Then
        Dim dd As WinForm.TextBox = Forms("销售收款输入窗口").Controls("TextBox1")
        Dim zje As WinForm.TextBox = Forms("销售收款输入窗口").Controls("总金额")
        zje.Value = e.DataTable.Compute("sum(金额)","[销售收款单号] = \'" & dd.Value & "\'")

 End If
End Select

这种问题，应该做个简单的例子，然后传上来，配合例子提问。

我把文件传给你，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:苏氏数据库开发版.foxdb

1、其实不要动辄整个项目上传，其实做个简单的例子，能够说明你的问题就行。

2、上传了，也应该做个简单的说明，在什么地方，设置了什么事件，目的是什么，问题是什么，一个项目几十个表和窗口，你让大家怎么测试啊？

zje.Value = e.DataCol.DataTable.Compute("sum(金额)","[销售收款单号] = \'" & dd.Value & "\'")

  注意红色部分是多余的.应该是e.Datatable

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

想在窗口的总金额统计显示子窗体的金额合计，DataColChanged事件中没反应,帮忙看看，谢谢

表A和表B有关系吗？

如果有关系，是不是通过表A的单号和后面的产品编号关联起来？ 还是表B应该增加一个单号列？

如果没有关系，表A的意义是什么？