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

1.在主表的列内上传一堆文件资料，在子表列内勾选在主表列内的所上传的文件列表（可先一个文件或多个文件）。3-4行判断子表如果勾选的是一个文件，就在后面加换行符；勾选的是多个文件的话，文件名与文件名之件本来就已经加入了换行符，然后按换行符拆分单元格内所上传的文件名。得出一个个文件名后，逐步打开。

2.贴出代码

'Dim Proc As New Process

'Proc.File = "\\192.168.3.10\public\UploadData\FMEA\0000201908-0003\Certification\检查表.xls"

'Proc.Verb = "OpenAsReadOnly"

''Proc.Verb = "Open"

'Proc.Start()

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

If st.Contains(vblf) = False Then

st = st & vblf

End If

Dim Proc As New Process

Dim vals() As String = st.Split(vblf)

For Each va As String In vals

If va <> "" Then

va = va.Trim(vblf)

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

主题：执行外部程序