dim sn as string=trim(User.ExtendedValues("ssn"))
dim sy as string=trim(User.ExtendedValues("ssy"))
Dim q As new QueryBuilder
q.TableName = "cdjttj"
q.C
q.SelectString = " Select scz As 车间,ygbh as 员工编号,xm as 员工姓名,Sum(isnull(je,0)+isnull(jcje,0)) As 机台工资 From jjmx Where scz like \'%裁断\' and ssy = \'" & sy & "\'and ssn = \'" & sn &"\' Group By scz,ygbh,xm "
q.Build
Tables("cdjttj").SaveExcel( ProjectPath & "Reports\\" & sn & sy & "裁断机台工资统计.xls" ,"裁断机台工资统计表",False)

以上引用用户扩展属性，产生如下错误：

此主题相关图片如下：spximage2.jpg

sn和sy按如下改正之后，就没有错误：

Dim r As row = tables("dxb").current
dim sn as string=trim(r("ssn"))
dim sy as string=trim(r("ssy"))

模拟以上情况做个简单的例子，发现没有以上错误，所以不上传例子，但觉得奇怪。

UserInfo有一个ExtendedValues集合，用于获得扩展用户属性的值，例如：

Dim IP As String
IP = User.ExtendedValues("IP")
Output.Show(IP)

以上抄录自帮助文件，奇怪，老六自己忘掉了？

这是我自己在用户属性加上的