Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:引用用户扩展属性的问题

1楼
kylin 发表于:2009/8/27 11:48:00

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"))

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

2楼
狐狸爸爸 发表于:2009/8/27 11:53:00
不存在这两个用户属性吧
3楼
kylin 发表于:2009/8/27 14:45:00

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

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

以上抄录自帮助文件,奇怪,老六自己忘掉了?
图片点击可在新窗口打开查看
这是我自己在用户属性加上的

4楼
狐狸爸爸 发表于:2009/8/27 14:52:00
你应该是搞错名称了,注意大小写
5楼
kylin 发表于:2009/8/27 15:04:00
确属大小写的问题,不好意思,呵呵图片点击可在新窗口打开查看
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04199 s, 2 queries.