标题: 请大侠进来解惑（有关表新增字段问题）。 [打印本页] 作者: fyupeng 时间: 2009-3-23 21:37 标题: 请大侠进来解惑（有关表新增字段问题）。 怎样写这样一段代码：如果在附件的表人员中，增加新的营销员，则收入情况表中，增加新字段作者: fyupeng 时间: 2009-3-23 22:55
自己写了一段，可以了，但觉得很菜，请大侠修改
Dim ry, rst As Recordset
Dim sql As String
100:
Set rst = CurrentDb.OpenRecordset("收入情况", dbOpenDynaset)
a = rst.Fields.Count
sql = "SELECT 人员.姓名 FROM 人员 WHERE 岗位='营销员';"
Set ry = CurrentDb.OpenRecordset(sql)
Do Until ry.EOF
b = 0
For Each fld In rst.Fields
If ry("姓名") = fld.Name Then
GoTo 10
End If
b = b + 1
Next
If b = a Then
c = ry("姓名")
rst.Close
CurrentDb.Execute "ALTER TABLE 收入情况 ADD COLUMN " & c & " float;"
GoTo 100
End If
10:
ry.MoveNext
Loop作者: Henry D. Sy 时间: 2009-3-24 06:30
这样设计表，如果有1000名人员怎么办