| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 能否在执行按键控件的弹出确认对话窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60211) |
| -- 作者：xjc620 -- 发布时间：2014/11/20 10:41:00 -- 能否在执行按键控件的弹出确认对话窗口 能否在执行按键控件的弹出确认对话窗口,如果确认点是,如果取消点否 |
| -- 作者：有点甜 -- 发布时间：2014/11/20 10:42:00 -- http://www.foxtable.com/help/topics/0326.htm
|
| -- 作者：xjc620 -- 发布时间：2014/11/20 10:57:00 -- 老师为什么点否了还是执行以下事件 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()
|
| -- 作者：有点甜 -- 发布时间：2014/11/20 10:59:00 -- 请完整看完人家是怎么写的好吧？ |
| -- 作者：xjc620 -- 发布时间：2014/11/20 11:12:00 -- 这样对吗,下面点否还是不知道怎么写了 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
|
| -- 作者：有点甜 -- 发布时间：2014/11/20 11:14:00 -- 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 11:20:00 -- 老师我是想要点"是"执行以下代码,点"否"取消操作 |
| -- 作者：有点甜 -- 发布时间：2014/11/20 11:21:00 -- 你再不会写就算了。 |
| -- 作者：xjc620 -- 发布时间：2014/11/20 12:21:00 -- 取消操作代码怎么写啊老师 |
| -- 作者：有点甜 -- 发布时间：2014/11/20 14:32:00 -- 以下是引用xjc620在2014-11-20 12:21:00的发言：
取消操作代码怎么写啊老师
取消操作不用写啊，不执行就是啊 |