我的代码有问题吗
Sub Main()
On Error GoTo errorhandle
systemini
Dim mFrm As New MainForm
' mFrm.Show
mFrm.SendXiaoLiangSms
Unload mFrm
Set mFrm = Nothing
End
Exit Sub '推出过程
errorhandle:
''MsgBox Err.source & " " & Err.Number & " " & Err.Description, vbInformation, "提示"
' MsgBox "请配置好 ini 文件 , 连接数据库 ! ", vbInformation, "提示"
Exit Sub
End Sub
[解决办法]
End
Exit Sub '推出过程
[解决办法]
这个代码为什么要加END呢，加了这个后面的代码就执行不到了
[解决办法]
去掉End，要不就直接结束了。
[解决办法]
Unload mFrm
Set mFrm = Nothing
End
Exit Sub '推出过程
不过他好像就是要发送了短信后退出程序。
[解决办法]
谢谢了 ！！
