| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]不执行下面代码的命令使用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129621) |
| -- 作者：81538475 -- 发布时间：2019/1/2 18:23:00 -- [求助]不执行下面代码的命令使用 希望点取消之后，不执行后面的代码应该怎么写呢，用return实现不了 Dim mg As New Merger Dim p As String Dim dlg As New OpenFileDialog If dlg.ShowDialog =DialogResult.OK Then DataTables("考勤表").DeleteFor("") p = dlg.FileName Dim Book As New XLS.Book(p) mg.SourcePath = p mg.Format = "excel" \'指定格式 mg.SourceTableName = book.sheets(0).name & "$" \'指定要合并的表 mg.DataTableName = "考勤表" \'指定接收数据的表 mg.Merge() \'开始 vars("考勤表")= True Else return End If msgbox("2")
|
| -- 作者：有点甜 -- 发布时间：2019/1/2 18:25:00 -- 代码没问题的，请认真测试。 |
| -- 作者：81538475 -- 发布时间：2019/1/2 18:33:00 -- --------------------------- 错误 --------------------------- 编译错误:Function、Get 或 Operator 中的“Return”语句必须返回值。 错误代码：Else Return --------------------------- 确定 --------------------------- |
| -- 作者：有点甜 -- 发布时间：2019/1/2 20:24:00 -- 如果在命令窗口测试，改成这样
Dim mg As New Merger Dim dlg As New OpenFileDialog |