求教：如何按另一字段的条件将字段值写入新表

Acce

本来不抱希望了，在网站首页重新注册，最后要真实的邮箱地址，我添的是假的。然后从记事本

里找到2年前这个用户名密码。竟然能登陆。没条件上外网真是困难。

正题：

                            d                         f

                            s                         f

                            c                         f

                            g                         p

                            r                          j

                            h                         j

         ……

写入到如下表：

                           d   s   c                 f

                                g                     p

                             r  h                     j

  ……

前一字段是姓名，后一字段是卷宗编号，卷宗编号全年唯一，对应不等量的姓名，都是文本。也

可以增加利用原表的（自动编号）ID字段 我一点代码也不会，甚至不知道这个题目有多难，如

果有哪位老师闲暇之余能给出代码，还请讲解一下怎么用。

.

[此贴子已经被作者于2005-10-24 1:44:52编辑过]

Acce

如果换一种方式提问，在 Access 中实现以上功能，请人来编个小程序需要多少钱？较落后城

市半个月的公务员工资够不够哇？

.

[此贴子已经被作者于2005-10-24 2:18:49编辑过]

情比金坚

可能一时没人看见你的帖子罢了，希望人帮助快点时不妨顶一下。

Acce

星期天才能上来看一眼，看到版主的回复，激动不已（呵呵~~~），回去研究研究。因为看到 MySQL 4 、MySQL 5自带一个转换函数， 这一个星期研究了MySQL，发现需要集成 Apache ，PHP5 和 phpMyAdmin 的环境，都是英文的，打印下来内网的资料帖子对照安装，总算装上了。连 root 的密码都不会设置。还是 Access顺手一些。只能在星期天上来看看。真想办内退给那位老大看大门去。谢谢 情 版主。有看不懂的地方再来叨绕。.

Acce

我看了一下版主的程序，窗体只有一个按钮调用一个宏，我直接点击了这个按钮结果发生模块错误，可能是数据库表2已经存在的原因。模块是怎么被宏调用的，我就不知道了。其实微软在 Access 封装这个转换函数最好不过。呵呵~~~笨人，没办法。.

Acce

删除了表2，还是不行。Function ntadd(t As String) As String

    Dim str As String

    Dim rs As New ADODB.Recordset

    Dim n As Integer    rs.Open "select * from 表1 where 卷宗='" & t & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    n = rs.RecordCount    For i = 1 To n

        str = str & "，" & rs("姓名")

        rs.MoveNext

    Next

    ntadd = Mid(str, 2, Len(str))End Function显示这样的效果。.

Acce

不会是因为我的机器上有 MySQL 吧。.