Dim pr As DataRow
pr = DataTables("开piao回款统计表").Find("项目编号 = '" & e.oldvalue & "'")
If pr IsNot Nothing Then
DataTables("开piao回款统计表").DataCols("项目编号").RaiseDataColChanged(pr)
End If
pr = DataTables("开piao回款统计表").Find("项目编号 = '" & e.newvalue & "'")
If pr IsNot Nothing Then
DataTables("开piao回款统计表").DataCols("项目编号").RaiseDataColChanged(pr)
End If