以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119872)
--  作者：qaz17909
--  发布时间：2018/6/2 23:03:00
--  打印问题
可否实现复选框选中的多个文件逐一根据模板生成word报表并打印，之后并自动关闭打开的word
--  作者：有点甜
--  发布时间：2018/6/3 11:55:00
--  

写成循环，不就可以了？看看帮助文档

 

http://www.foxtable.com/webhelp/scr/2890.htm

 
--  作者：qaz17909
--  发布时间：2018/11/21 14:18:00
--  顺序打印问题
可以打印，但有个问题。我表格是按照编号排序的，现在发现打印顺序有的时候没有按照我编号的顺序打印，有的时候会乱，请问这是什么原因。
Dim t As Table = e.Form.Controls("Table1").Table
Dim ftp1 As New FTPClient
ftp1.Host=""
ftp1.Account = ""
ftp1.Password = ""
For Each r As Row In t.GetCheckedRows
    Dim path As String = ProjectPath & "Reports\\报告\\" & r("报告编号") & "\\"
    If FileSys.DirectoryExists(path) = False Then
        FileSys.CreateDirectory(path)
    End If
    Dim file As String = path & filesys.GetName(r("报告"))
    If ftp1.Download(r("报告"),file) = True Then
        Dim Proc As New Process \'打开工作簿
        Proc.File = file
        Proc.Verb= "Print"
        Proc.Start()
    End If
Next
--  作者：有点甜
--  发布时间：2018/11/21 14:43:00
--  

你是说循环的时候，和你看到的table1的数据不同？执行下面代码，看弹出是否正确

 

For Each r As Row In t.GetCheckedRows

    msgbox(r("报告编号"))

Next

 

 

如果弹出有问题，试试改成这样弹出

 

For i As Integer = 0 To t.Rows.count-1
    t.position = i
    Dim r = t.Rows(i)
    If r.checked Then
        msgbox(r("报告编号"))
    End If
Next