主题：代码求助

If e.DataCol.Name = "支出账户" Then

    If e.NewValue IsNot Nothing Then

        If e.DataRow("支出项目").Contains("杂费") Then

            Dim Result As DialogResult

            Result = MessageBox.Show("确定支出吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

            If Result = DialogResult.No Then

                e.DataRow("支出账户") = Nothing

            End If

        End If

        If e.DataRow.IsNull("支出账户") = False Then

            e.DataRow("录入日期") = Date.Today()

            e.DataRow.Locked = True

        End If

    End If

End If