高手请进，帮帮忙！！ 急急急！！！

collis

Option Compare Database

Dim dbs As Database

Dim rst As Recordset

Sub opentbl()

sqlstr = "select invitecompany.companyname,invitecompany.address,invitecompany.contacter,invitecompany.telephone,invitepost.*" & _

         " from invitecompany,invitepost" & _

         " where invitecompany.id=invitepost.id and invitepost.state='b' order by invitepost.id asc"

Set dbs = OpenDatabase("e:\companyinfo.mdb")

Set rst = dbs.OpenRecordset(sqlstr, dbOpenDynaset)

Open "e:\2004年7月单位招聘信息.doc" For Output As #1

Print #1,

Print #1,

If rst.RecordCount() <> 0 Then

rst.MoveFirst

i = 1

Do While Not rst.EOF()

    ifdo = 0

    tempid = rst("id")

    Print #1, i & "、" & rst("companyname")

        Do While ifdo = 0

                If rst.EOF Then

                   rst.MoveLast

                   rst.MoveNext

                   Exit Do

                End If

                If tempid = rst("id") Then

                    Print #1, rst("post") & "、"

                Else

                    rst.MovePrevious

                    rst.MoveNext

                    ifdo = 1

                    Exit Do

                End If

            rst.MoveNext

        Loop

        Print #1,

    i = i + 1

Loop

End If

Close #1

End Sub

结果：

1、科计算机有限公司

联想专卖店店员、

软件实施服务人员、

软件营销人员、

会计、

数码店店员、

电脑技术员、









2、汉进出口有限公司

外销人员、







3、康保健食品有限公司

区域主管、

财务人员、

销售代表、



能把结果输出改为如下？：

1、科计算机有限公司

联想专卖店店员、软件实施服务人员、软件营销人员、会计、数码店店员、电脑技术员







2、汉进出口有限公司

外销人员





3、康保健食品有限公司

区域主管、财务人员、销售代表



就是把岗位结果结果输出在一行

高手帮帮忙啊,急急急！！！！！！！

zhengjialon

这个不是已经发过贴了吗？请不要重复发贴。