Office中国论坛/Access中国论坛

标题: 高手请进，帮帮忙！！急急急！！！ [打印本页]

作者: collis 时间: 2004-7-13 23:49
标题: 高手请进，帮帮忙！！急急急！！！
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 时间: 2004-7-14 00:18
这个不是已经发过贴了吗？请不要重复发贴。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)