- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 提示：调用的目标发生了异常，啥原因？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29053)
-- 发布时间：2013/2/26 15:11:00
-- 提示：调用的目标发生了异常，啥原因？
Dim y,m,d As Integer
Dim da As Date = Date.Today
If e.DataCol.Name = "身份证" Then
If e.DataRow.Isnull("身份证") Then
e.DataRow("性别") = Nothing
e.DataRow("出生日期") = Nothing
e.DataRow("年龄") = Nothing
Else
e.DataRow("性别") = readsex(e.DataRow("身份证"))
e.DataRow("出生日期") = ReadBirthDay(e.DataRow("身份证"))
e.DataRow("校验") = ValidPIN(e.DataRow("身份证"))
dateymd(da,e.DataRow("出生日期"),y,m,d)
e.DataRow("年龄") = cstr(y) & "年" & cstr(m) & "月"
End If
End If
-- 发布时间：2013/2/26 15:17:00
--
做个例子发上来说话。
-- 发布时间：2013/2/26 15:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新增.table |
dateymd(da,e.DataRow("出生日期"),y,m,d)
e.DataRow("年龄") = cstr(y) & "年" & cstr(m) & "月"
这俩句有问题.但不知啥原因？
[此贴子已经被作者于2013-2-26 15:27:16编辑过]
-- 发布时间：2013/2/26 15:38:00
--
把你的年龄列改为字符型就行了。
-- 发布时间：2013/2/26 15:45:00
--
疏忽。
谢谢。
-- 发布时间：2013/2/26 15:46:00
--
dateymd(da,e.DataRow("出生日期"),y,m,d)
这个函数返回什么类型的值？？
-- 发布时间：2013/2/26 16:25:00
--
以下是引用jxkqf在2013-2-26 15:46:00的发言：
dateymd(da,e.DataRow("出生日期"),y,m,d)
这个函数返回什么类型的值？？
Dim y,m,d As Integer
Dim d1 ,d2 As Date
d1= #10/2/2001#
d2=#5/30/2009#
Output.Show(dateymd(d1,d2,y,m,d))
报错:运算式没有产生值!
说明dateymd没有产生值