以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]看看这个怎么解决?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=22857)
--  作者：blackzhu
--  发布时间：2012/8/25 16:49:00
--  [求助]看看这个怎么解决?
这个代码是可以一次性打开好几个文档的代码,谁帮我改一下代码,可以先打开一个,关掉后再打开第二个文档


Dim lst As WinForm.ListBox
lst = e.Form.Controls("ListBox1")
Dim drs As List(Of DataRow)
For i As Integer = 0 To lst.Items.Count - 1
    drs = DataTables("表A").Select("[第二列] = \'" & lst.Items(i) & "\'")
    For n As Integer = 0 To drs.Count - 1
        If drs(n).IsNull("第一列") =False Then
            If FileSys.FileExists(drs(n)("第一列")) Then
                If FileIsOpened(drs(n)("第一列"))= False Then
                    Try
                        Dim Proc As New System.Diagnostics.Process
                        Proc.StartInfo.FileName = drs(n)("第一列")
                        Proc.Start()
                    Catch ex As Exception
                        MessageBox.Show("没有相应的程序可以打开此文档!","执行提示!")
                    End Try
                End If
            End If
        End If
    Next
Next
--  作者：jspta
--  发布时间：2012/8/25 17:05:00
--  

不知道这个思路可不可以

设定一个public 变量 IntA 代替 n

设定public变量 bln 用于判断是否继续打开文件，否则就程序运行停止

设定一个按钮，用于将转换bln的值并启动循环程序。

 

这样直到intA = dr.count 程序不再运行，并提示运行结束
--  作者：狐狸爸爸
--  发布时间：2012/8/25 17:22:00
--  

参考：

http://www.foxtable.com/help/topics/0353.htm

 

留意其中的WaitForClose方法
--  作者：jianjingmaoyi
--  发布时间：2012/8/25 18:36:00
--  
老大 这个牛.一下午 怎么没有留意这个