Foxtable(狐表)用户栏目专家坐堂 → 根据“出生日期”,输入代码后提示“case运算符后缺少操作数”


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

主题:根据“出生日期”,输入代码后提示“case运算符后缺少操作数”

帅哥哟,离线,有人找我吗?
hlqyzh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:122 威望:0 精华:0 注册:2017/10/9 11:06:00
根据“出生日期”,输入代码后提示“case运算符后缺少操作数”  发帖心情 Post By:2017/10/11 15:34:00 [只看该作者]

表中有“出生日期”列,怎么才能计算出“年
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:人事台账.table

”列?把帮助文件中的代码输入后总是提示“case运算符后缺少操作数” ,请问是怎么回事?
[此贴子已经被作者于2017/10/11 15:36:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/11 15:46:00 [只看该作者]

写到datacolchanged事件

 

http://www.foxtable.com/webhelp/scr/1445.htm

  

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:人事台账 (1).table


 回到顶部
帅哥哟,离线,有人找我吗?
hlqyzh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:122 威望:0 精华:0 注册:2017/10/9 11:06:00
根据出生日期计算年龄,代码出错怎么修改?  发帖心情 Post By:2017/10/13 10:04:00 [只看该作者]

Select Case e.DataCol.name

    Case "出生日期"

        If e.DataRow.IsNull("出生日期") Then
            e.DataRow("年龄") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("
出生日期"))
            e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)
        End
If

End
Select



If e.DataCol.Name = "出生日期" Then
    If
e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
       
e.DataRow("年龄") = Nothing '则清空年龄
    Else
   
    '否则计算年龄
       
e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year

    End If
End If


这两段代码有什么不同?第一段中提示“Case运算符后缺少操作数”,第二段提示e运算符后缺少操作数”,该怎么修改?老师回答:写到datacolchanged事件

 

http://www.foxtable.com/webhelp/scr/1445.htm,可是不会弄该怎么办?我是菜鸟,烦请指教!


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/13 10:08:00 [只看该作者]

认认真真下载2楼的例子测试。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/13 10:09:00 [只看该作者]

代码写在datacolchanged事件

 

http://www.foxtable.com/webhelp/scr/1445.htm

 


 回到顶部