能否在执行按键控件的弹出确认对话窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

能否在执行按键控件的弹出确认对话窗口,如果确认点是,如果取消点否

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

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.DataTable = DataTables("账务查询") '指定数据接收表

f.Fill()

f.Distinct = False

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

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

f.Fill()

Else

End If

Dim Result As DialogResult = MessageBox.Show("是否将收入,支出数据添加到账务查询,并清空收入,支出的数据?", "提示", MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
msgbox(1)
Else If result = DialogResult.No Then
msgbox(2)
End If

老师我是想要点"是"执行以下代码,点"否"取消操作

你再不会写就算了。

取消操作代码怎么写啊老师

以下是引用xjc620在2014-11-20 12:21:00的发言：
取消操作代码怎么写啊老师

取消操作不用写啊，不执行就是啊

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