主题：打印问题

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

 

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

 

你是说循环的时候，和你看到的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