请大侠进来解惑（有关表新增字段问题）。

fyupeng

怎样写这样一段代码：如果在附件的表人员中，增加新的营销员，则收入情况表中，增加新字段

fyupeng

自己写了一段，可以了，但觉得很菜，请大侠修改
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

这样设计表，如果有1000名人员怎么办