新添加销售单 图片红杠位置不自动跟新，红杠位置3个显示框是引用产品客户表里内容。
Dim dr As DataRow = DataTables("产品客户表").Find("客户姓名 = '" & e.Sender.value & "'")If dr IsNot Nothing Then '如果找到的话
e.Form.Controls("TextBox2").Value = dr("销售总额") & "元"
e.Form.Controls("TextBox4").Value = dr("已收款") & "元"
e.Form.Controls("TextBox3").Value = dr("欠款额") & "元"
End If
产品客户表里的内容是通过这段代码引用的Select Case e.DataCol.Name Case "客户姓名"
Dim Filter As String = "客户姓名 = '" & e.DataRow("客户姓名") & "'"
e.DataRow("销售总额") = DataTables("产品销售表").Compute("Sum(实收金额)", Filter)
e.DataRow("已收款") = DataTables("资金流水").Compute("Sum(收入金额)", Filter)
End Select
然后再MainTableChanged用了下面的代码
If MainTable.Name = "产品客户表" Then
DataTables("产品客户表").DataCols("客户姓名").RaiseDataColChanged()
End If
我在窗口新增销售单以后它不自动更新，必须回到产品客户表切换一下才可以，希望老师帮忙给解决，不需要回到产品客户表切换，就能自动更新。或是我添加新单以后，让产品客户表自动在后台更新。谢谢
此主题相关图片如下：qq图片20150113173516.jpg
[此贴子已经被作者于2015-1-13 17:51:07编辑过]
加好友 
发短信
Post By：2015/1/13 17:48:00 [显示全部帖子]
