主题：自动生成编号问题

要设置自动增量

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

上传实例

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

呃，你自编码用什么代码生成？贴出代码，或者上传实例。

idx = CInt(max.Substring(12,4)) + 1 '获得最大自编号的后四位顺序号,并加1

改成

idx = CInt(max.Substring(bh.length)) + 1 '获得最大自编号的后四位顺序号,并加1

循环即可，参考代码

Dim t As Table = Tables("表A")
For i As Integer = 0 To t.rows.count-1
    t.Position = i
    '写窗口打印的代码
Next

你加上打印的代码啊

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

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

Next

你可以直接打印嘛。

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