以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表达式问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2371)

--  作者:实话实说
--  发布时间:2009/4/9 11:36:00
--  表达式问题
问一个低级问题:ReadSex([身份证号码])能用于列表达式吗?我用了怎么不行?
--  作者:狐狸爸爸
--  发布时间:2009/4/9 11:39:00
--  
不可以。
帮助中,表达式的章节,列出了能支持的函数。
--  作者:blackzhu
--  发布时间:2009/4/9 12:22:00
--  
以下是引用实话实说在2009-4-9 11:36:00的发言:
问一个低级问题:ReadSex([身份证号码])能用于列表达式吗?我用了怎么不行?

低级的做法!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel报表.table


--  作者:czy
--  发布时间:2009/4/9 12:34:00
--  
楼上还忘了一个识别码“X”,另外取值列表达式应该判断一下15们身份证。
--  作者:blackzhu
--  发布时间:2009/4/9 12:36:00
--  
 

ReadSex

从身份证号码中读取性别。

语法

ReadSex(Value)

Value:身份证号码

例如:

Dim Identify As String = "410110197109172433"
Dim
Sex As String = ReadSex(Identify)
Output.Show(Sex)

上述代码的输出结果是“男”。

 

 我说呢我好想看到过的.


--  作者:blackzhu
--  发布时间:2009/4/9 12:37:00
--  
以下是引用czy在2009-4-9 12:34:00的发言:
楼上还忘了一个识别码“X”,另外取值列表达式应该判断一下15们身份证。

 现在全部是18位了,还有X是识别码,倒数第二位是奇数就是男生,反之就是女生.


--  作者:czy
--  发布时间:2009/4/9 12:40:00
--  
以下是引用blackzhu在2009-4-9 12:37:00的发言:

 现在全部是18位了,还有X是识别码,倒数第二位是奇数就是男生,反之就是女生.


嗯,新输入的数据不会有问题,如果数据来源从老数据导入的,15位就会有问题。


--  作者:blackzhu
--  发布时间:2009/4/9 13:07:00
--  
以下是引用czy在2009-4-9 12:40:00的发言:


嗯,新输入的数据不会有问题,如果数据来源从老数据导入的,15位就会有问题。

 这个倒是的.


--  作者:实话实说
--  发布时间:2009/4/9 13:34:00
--  
现在[员工名册]表中有身份证号码和性别列,性别列的计算代码怎么写,在哪写?
--  作者:smileboy
--  发布时间:2009/4/9 13:48:00
--  
datacolchanged事件:
if e.datacol.name="身份证号码" then
   if e.datarow.isnull("身份证号码") then
      e.datarow("性别")=nothing
   else
      e.datarow("性别")=ReadSex(e.datarow("身份证号码"))
   end if
end if