标题：[求助]使用MessageBox.Show时，提示的对话框弹出四次才关闭，每次只能给一个单元格赋值

如题，在表事件datacolchanged内录入以下代码，提示的对话框弹出四次才关闭，每次只能给一个单元格赋值 ，请问该如何处理，才能使对话框只弹出一次，所有单元格一次性赋值？

Dim Result As DialogResult
    Result = MessageBox.Show("请确认包装内是否有塑胶隔环?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        e.DataRow("幢1_其它") = "0.1"
        e.DataRow("幢2_其它") = "0.1"
        e.DataRow("幢3_其它") = "0.1"
        e.DataRow("幢4_其它") = "0.1"
    Else
        e.DataRow("幢1_其它") = "0"
        e.DataRow("幢2_其它") = "0"
        e.DataRow("幢3_其它") = "0"
        e.DataRow("幢4_其它") = "0"
    End If