If e.DataCol.Name = "改善分类"
Dim pr As DataRow
If e.NewValue Is Nothing Then
e.DataRow("提出激励考核_现金") = Nothing
Else
pr = DataTables("改善激励").Find("[改善分类] = " & e.NewValue)
此主题相关图片如下：22.png
If pr
此主题相关图片如下：111.png
IsNot Nothing Then
e.DataRow("提出激励考核_现金") = pr("提出激励考核_现金")
If e.OldValue <> e.NewValue Then '如果新旧产品编号不同.
DataTables("改善激励").DataCols("改善分类").RaiseDataColChanged(pr)
End If
End If
End If
If e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
pr = DataTables("改善激励").Find("[改善分类] = " & e.OldValue)
If pr IsNot Nothing Then
DataTables("改善激励").DataCols("改善分类").RaiseDataColChanged(pr)
End If
End If
End If
[此贴子已经被作者于2016/6/28 16:49:46编辑过]
加好友 
发短信
Post By：2016/6/28 16:46:00 [显示全部帖子]
