主题：能否在执行按键控件的弹出确认对话窗口

老师为什么点否了还是执行以下事件

MessageBox.Show("是否将收入,支出数据添加到账务查询,并清空收入,支出的数据?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

Dim f As New Filler

f.Distinct = False

f.SourceTable = DataTables("收入") '指定数据来源

f.SourceCols = "日期,车号,收支方式,收入金额_二保,收入金额_年审,收入金额_北斗,收入金额_靠挂费,收入金额_邮费,收入金额_罚款,收入金额_补证,其它收入_其它,其它收入_摘要,新车,合计,备注" '指定数据来源列

f.DataTable = DataTables("账务查询") '指定数据接收表

f.DataCols = "日期,车号,收支方式,收入金额_二保,收入金额_年审,收入金额_北斗,收入金额_靠挂费,收入金额_邮费,收入金额_罚款,收入金额_补证,其它收入_其它,其它收入_摘要,新车,合计,备注" '指定数据接收列

f.Fill()

f.Distinct = False

f.SourceTable = DataTables("支出") '指定数据来源

f.SourceCols = "日期,车号,收支方式,业务支出_检测费,业务支出_补证,业务支出_补卡,业务支出_邮费,其它支出_其它,其它支出_摘要,新车,合计,备注" '指定数据来源列

f.DataTable = DataTables("账务支出") '指定数据接收表

f.DataCols = "日期,车号,收支方式,业务支出_检测费,业务支出_补证,业务支出_补卡,业务支出_邮费,其它支出_其它,其它支出_摘要,新车,合计,备注" '指定数据接收列

f.Fill()

这样对吗,下面点否还是不知道怎么写了

Dim Result As DialogResult

MessageBox.Show("是否将收入,支出数据添加到账务查询,并清空收入,支出的数据?", "提示", MessageBoxButtons.YesNo)

If Result = DialogResult.Yes Then

Dim f As New Filler

f.Distinct = False

f.SourceTable = DataTables("收入") '指定数据来源

f.SourceCols = "日期,车号,收支方式,收入金额_二保,收入金额_年审,收入金额_北斗,收入金额_靠挂费,收入金额_邮费,收入金额_罚款,收入金额_补证,其它收入_其它,其它收入_摘要,新车,合计,备注" '指定数据来源列

f.DataTable = DataTables("账务查询") '指定数据接收表

f.DataCols = "日期,车号,收支方式,收入金额_二保,收入金额_年审,收入金额_北斗,收入金额_靠挂费,收入金额_邮费,收入金额_罚款,收入金额_补证,其它收入_其它,其它收入_摘要,新车,合计,备注" '指定数据接收列

f.Fill()

f.Distinct = False

f.SourceTable = DataTables("支出") '指定数据来源

f.SourceCols = "日期,车号,收支方式,业务支出_检测费,业务支出_补证,业务支出_补卡,业务支出_邮费,其它支出_其它,其它支出_摘要,新车,合计,备注" '指定数据来源列

f.DataTable = DataTables("账务支出") '指定数据接收表

f.DataCols = "日期,车号,收支方式,业务支出_检测费,业务支出_补证,业务支出_补卡,业务支出_邮费,其它支出_其它,其它支出_摘要,新车,合计,备注" '指定数据接收列

f.Fill()

Else

   

End If