代码放到datacolchanging事件
……
If Result = DialogResult.Yes Then
DataTables("项目预算").ReplaceFor("项目名称",e.NewValue,"[项目名称]='" & e.OldValue & "'")
DataTables("项目年度预算").ReplaceFor("项目名称",e.NewValue,"[项目名称]='" & e.OldValue & "'")
DataTables("项目转列支").ReplaceFor("项目名称",e.NewValue,"[项目名称]='" & e.OldValue & "'")
DataTables("项目请拨").ReplaceFor("项目名称",e.NewValue,"[项目名称]='" & e.OldValue & "'")
Else
e.cancel = true
End If
……
加好友 
发短信
Post By：2020/9/11 9:10:00 [显示全部帖子]
