| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]代码求助（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94409) |
| -- 作者：yyzlxc -- 发布时间：2016/12/22 23:01:00 -- [求助]代码求助（已解决） 在MessageBox.Show（）中显示如下效果，括号中的代码如何写，请老师指教，谢谢！ [此贴子已经被作者于2016/12/23 11:57:07编辑过]
|
| -- 作者：有点色 -- 发布时间：2016/12/22 23:07:00 -- 这个意思？
"\\\\127.0.0.1\\QDXT$\\手持终端\\手持终端" & jwq & ".mdb" |
| -- 作者：yyzlxc -- 发布时间：2016/12/22 23:18:00 -- 共享文件路径，jwq为变量 |
| -- 作者：yyzlxc -- 发布时间：2016/12/22 23:21:00 -- 想将整条代码做成变量 |
| -- 作者：yyzlxc -- 发布时间：2016/12/22 23:36:00 -- 将代码写成全局变量：_SCLJ = """\\\\127.0.0.1\\QDXT$\\手持终端\\手持终端" & """"" & jwq & """"" & ".mdb""" 运行如下代码 Dim mg2 As New Merger mg2.SourcePath = _SCLJ \'指定目标文件 \'mg2.SourcePath = "\\\\127.0.0.1\\QDXT$\\手持终端\\手持终端" & ""& jwq &"" & ".mdb" mg2.SourceTableName = "工具清点明细" \'Acc mg2.DataTableName = "工具清点明细2" mg2.Filter = "清点日期 = #" & rq1 & "#" \'导入条件 mg2.Merge() 提示文件名无效。而黄色标记的语句运行正确。
|
| -- 作者：有点蓝 -- 发布时间：2016/12/23 8:30:00 -- _SCLJ = "\\\\127.0.0.1\\QDXT$\\手持终端\\手持终端" & jwq & ".mdb" |
| -- 作者：yyzlxc -- 发布时间：2016/12/23 9:33:00 -- 谢谢蓝老师的指教，但是将上述代码保存在项目Initialize事件，提示未声明名称"jwq"。 如果加：Dim jwq As String，可以保存，但是代码运行时，"jwq"变量失效。如何解决这个问题，还请老师指教，谢谢！！
|
| -- 作者：有点蓝 -- 发布时间：2016/12/23 10:07:00 -- jwq在什么地方定义和赋值的？ |
| -- 作者：yyzlxc -- 发布时间：2016/12/23 10:13:00 -- 在菜单按钮 |
| -- 作者：有点蓝 -- 发布时间：2016/12/23 11:05:00 -- 那没有意义，项目Initialize事件的时候，菜单还不知道在哪。 一定纠结于用变量吗，下面这样用有什么问题 mg2.SourcePath = "\\\\127.0.0.1\\QDXT$\\手持终端\\手持终端" & ""& jwq &"" & ".mdb"
|