Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提示：调用的目标发生了异常，啥原因？


  共有9253人关注过本帖树形打印复制链接

主题：提示：调用的目标发生了异常，啥原因？
帅哥哟，离线，有人找我吗？
jxkqf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		提示：调用的目标发生了异常，啥原因？  发帖心情 Post By：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

 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/2/26 15:17:00 [只看该作者]

做个例子发上来说话。
 回到顶部
帅哥哟，离线，有人找我吗？
jxkqf
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/2/26 15:38:00 [只看该作者]

把你的年龄列改为字符型就行了。

 回到顶部
帅哥哟，离线，有人找我吗？
jxkqf
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/2/26 15:45:00 [只看该作者]

疏忽。

谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
jxkqf
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00 		  发帖心情 Post By：2013/2/26 15:46:00 [只看该作者]

 dateymd(da,e.DataRow("出生日期"),y,m,d)

这个函数返回什么类型的值？？
 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：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没有产生值
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询