'自动更新模具清单的模具应用记录数
If e.DataCol.Name = "模具型号" Then
Dim pr As DataRow
pr = DataTables("模具清单").Find("模具型号 = '" & e.DataRow("模具型号") & "'")
If pr IsNot Nothing Then
DataTables("模具清单").DataCols("模具型号").RaiseDataColChanged("模具型号 = '" & e.DataRow("模具型号") & "'")
End If
End If
以上代码是“物料字典”这个数据表的DataColChanged事件的代码,希望在“物料字典”的“模具型号”这个数据列数据发生变化后,能够激发“模具清单”之“模具型号”这个数据列的“重置列”功能,但是起不到这个作用。为什么呢?