各位老师，

我在表中增加了一个“sys_传递说明”的系统列，在PositionChanged全局表事件中用如下代码将每行的传递说明显示在窗口的“传递说明”文本框中，

If e.Table.Cols.contains("sys_传递说明") Then
    Forms("导航").Controls("传递说明").Value = e.Table.Current("sys_传递说明")
End If

当以开发者登陆时窗口的“传递说明”文本框中可以看见内容，但如果以其他非开发者的用户登陆时窗口的“传递说明”文本框中就什么都看不见。是什么原因或者有什么改进的办法（在系统列不改为普通列的情况下）？

谢谢！

谢谢狐爸，还是不可以，我只要把“sys_传递说明”改为“传递说明”的话就没有这个问题。还有没有其他办法？

就这么两句

If tbs.Contains(e.Table.name) And Forms("导航").Opened Then
    \'给传递说明文本框赋值
    If e.Table.Cols.contains("sys_传递说明") Then
        Forms("导航").Controls("传递说明").Value = e.Table.Current.DataRow.BaseRow("sys_传递说明")
    End If
End If

而且问题是以开发者登陆进入后可以啊，而其他用户登陆就没有，是不是红色的代码也要改一下，因为非开发者登陆sys_的列不会显示。关键是如果将表中的列名由“sys_传递说明”改为“传递说明”后就没问题说明也不是这个原因。

问题出在这里：

 If e.Table.Cols.contains("sys_传递说明") Then

sys开头的列不可见，所以e.Table.Cols是不会包括这里的，但是你可以使用这列的值。

要判断的话，改为：

If e.Table.DataTable.BaseTable.Columns.contains("sys_传递说明") Then