如何将列表值更新或增加为一表中的字段名.

wsylqy

这难度好大啊.有人会知道吗? 文件下载

Roadbeg

你的意思可能是这样的:
使列表 item 为字段名
如果是这样的话,只需设组合框或列表框的 RowSourceType 为 字段列表 就行了.

wsylqy

哦.不好意思,是我解释错了.嗯,应该是将一个表中的记录更新为另一表的字段名.

Roadbeg

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

使用 fields 集合很容易完成.

wsylqy

给一点代码好么?

Roadbeg

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