AfterOpenProject或LoadUserSetting事件
If user.Name = "A" Then
Tables("表A").Cols("项目").ComboList = "基本工资"
ElseIf user.Name = "B" Then
Tables("表A").Cols("项目").ComboList = "技能工资"
ElseIf user.Name = "C" Then
Tables("表A").Cols("项目").ComboList = "基本工资|技能工资|社保补贴|加班补贴"
End If