Office中国论坛/Access中国论坛

标题: 如何将列表值更新或增加为一表中的字段名. [打印本页]

作者: wsylqy 时间: 2003-3-6 20:24
标题: 如何将列表值更新或增加为一表中的字段名.
这难度好大啊.有人会知道吗? 文件下载

作者: Roadbeg 时间: 2003-3-6 20:58
你的意思可能是这样的:
使列表 item 为字段名
如果是这样的话,只需设组合框或列表框的 RowSourceType 为字段列表就行了.

作者: wsylqy 时间: 2003-3-6 22:29
哦.不好意思,是我解释错了.嗯,应该是将一个表中的记录更新为另一表的字段名.

作者: Roadbeg 时间: 2003-3-7 00:39

以下是引用wsylqy在2003-3-6 12:24:00的发言：
这难度好大啊.有人会知道吗? 文件下载

使用 fields 集合很容易完成.

作者: wsylqy 时间: 2003-3-7 02:26
给一点代码好么?

作者: Roadbeg 时间: 2003-3-7 03:47

Private Sub CopyField()
On Error GoTo Doerr

Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim rs As DAO.Recordset
Dim fld As DAO.Field

Set db = DBEngine.Workspaces(0).Databases(0)
Set tb = db.TableDefs("源表")
Set rs = db.OpenRecordset("select 目的字段 from 目的表")

For Each fld In tb.Fields
      rs.AddNew
      rs!目的字段 = fld.Name
      rs.Update
Next fld
Exit Sub

Doerr:
MsgBox "未知错误"
End Sub

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