主题：自动生成编号问题

试了老师给的代码，只读没打，我是在窗口上加入一个按钮，然后在按钮的click事件中写入老师给的代码，应用窗口时单击按钮，只见读取了表中所有行，但没能打印任务输出。我是想指定一列如“班级”，进行筛选后再打印，能给个代码吗？

你加上打印的代码啊

 

Dim t As Table = Tables("表A")

t.Filter = "第一列 = '123456'"
For i As Integer = 0 To t.rows.count-1
    t.Position = i

    Dim doc As PrintDoc = e.Form.GernatePrintDoc()
    doc.Preview()

Next

 

老师，我是才接触foxtable，能看懂一些简单的代码，但还写不了，所以上次你帮我写的窗口连续打印代码我试过了，但还有点问题，就是所有打印行都要弹出预览窗口。今天我又加了一个窗口，不知道什么原因，窗口不显示链接数据，能不能帮我看一下是啥原因？

你可以直接打印嘛。

 

Dim t As Table = Tables("表A")

t.Filter = "第一列 = '123456'"
For i As Integer = 0 To t.rows.count-1
    t.Position = i

    Dim doc As PrintDoc = e.Form.GernatePrintDoc()
    doc.Print()

Next