执行外部程序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 执行外部程序

共有1952人关注过本帖树形打印复制链接主题：执行外部程序

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107034 积分：544401 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/24 10:41:00 [显示全部帖子]

第3到第4行是干嘛用的，为什么要加一个换行符？

另外需要解决问题请直接贴出代码，而不是截图，这样别人没有办法改。我也没有兴趣一个个字符去敲这些代码

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107034 积分：544401 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/24 11:36:00 [显示全部帖子]

单文件不需要添加换行符也可以通过换行符进行split的，完全是画蛇添足。

Dim st As String = Tables("FmeaChild").current("Certification")

Dim Proc As New Process

Dim vals() As String = st.replace(vbcr,"").Split(vblf)

For Each va As String In vals

If va <> "" Then

Output.Show(CF_Address & "FMEA\" & Tables("MainTable").current("Main_ID") & "\Certification\" & va)

Proc.File = CF_Address & "FMEA\" & Tables("MainTable").current("Main_ID") & "\Certification\" & va

' Proc.Verb = "OpenAsReadOnly"

Proc.Verb = "Open"

Proc.Start()

End If

主题：执行外部程序