Function UserFullName(UserID)
Dim td
Dim cust
Dim cust_users
Dim c_user
set td=TDConnection
Set cust = td.Customization
Set cust_users = cust.Users
Set c_user = cust_users.User(UserID)
UserFullName = c_user.FullName
End Function作者: 68480850 时间: 2013-1-15 12:18 回复 9#feixue110
能说的具体点吗?比如这个函数添加在那个文件中?