请教老师，下面的messagebox,点否后，messagebox窗口会死循环If e.DataCol.Name="项目名称" Then
Dim Result As DialogResult
Result = MessageBox.Show("如果你确定,将修改包含以前的该项目名称,是否要确定修改?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
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.DataRow("项目名称")=e.OldValue
End If
End If
加好友 
发短信
Post By：2020/9/11 9:04:00 [显示全部帖子]
