主题：狐表对权限的管理比较分散，能不能像EXCEL服务器那样集中定义对一个表的权限

呵呵，你的代码不是没有问题，而是很有问题，你的意思应该是如果用户分组是管理组，加载所有数据，否则只加载登录用户负责的行，那么代码应该是：
 
If e.DataTableName = "客户登记表" Then
    If e.User.Group <> "管理组" Then '如果不是管理组
        e.Filter = "[业务员] = '" & e.User.Name & "'"   '则设置加载条件
    End If
End If
 
刚开始犯这种错误是正常的，慢慢就熟练了。
 
在狐表，大到一个表，小到一个单元格，都可以设置权限，比你说的软件强很多，好好从这里开始看：
http://help.foxtable.com/topics/2253.htm

正是因为有事件，你才可以随心所欲，如果想用表格集中授权，也不是不可以，帮助就有例子。
 
其实不仅是权限管理，从录入、查询、到统计、分析，到界面设计和逻辑表述，再到报表输出，无不比你说的软件强一个等级。

你可以看看这个例子：

http://help.foxtable.com/topics/1459.htm

1、这个表中确定有业务员列？

2、如果确定有，将你的表传上来，我帮你检查一下原因.

在项目事件AfteropenProject设置代码：

Tables("表名").Cols("列名").ComboList = DataTables("客户登记表").GetComboListString("客户名称", "业务员 = '" & User.Name & "'")

具体参考:

http://help.foxtable.com/topics/1435.htm

列表项目不需要填了，有上面的代码就行了。

搞不定就传文件上来。

我看了你的文件，没有问题啊。

你说的问题是什么，请举例说明。

另不同的问题，最好分别发帖提问。

列表项目来自客户登记表，所以你必须保证客户登记表有记录。

如果你以开发者身份登录，因为客户登记表没有加载数据，所以列表项目为空。

如果你以郑文强登录，客户登记表有数据，所以就有列表项目。

另外因为客户登记表本来就只加载当前登录者的记录，所以代码可以简化，只需：

Tables("客户沟通记录").Cols("客户名称").ComboList = DataTables("客户登记表").GetComboListString("客户名称")