主题：不知道哪里出错，一添加行就出错

不要字prepareEdit事件写filter代码，要写也写到DataRowAdded 或者Datacolchanged

If e.Row("人名") <> User.Name Then
    e.Cancel = True
End If

'If user.Group = "经理" Then
    'Tables("表A").Filter=""
'Else
  'Tables("表A").Filter="部门='" & User.name & "'"
'End If