以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  “月”、“天”列为字符型时，这个代码就不能正常运行，怎么样才能实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89944)
--  作者：约翰舒
--  发布时间：2016/9/1 18:14:00
--  “月”、“天”列为字符型时，这个代码就不能正常运行，怎么样才能实现

Select Case e.DataCol.Name

  Case "起始日","月","天"

 If e.DataRow.IsNull("起始日") Then

    e.DataRow("到期日") = Nothing

    Else

e.DataRow("到期日") = e.DataRow("起始日").AddMonths(e.DataRow("月")).AddDays(e.DataRow("天"))

 

 End If

End Select


这是日期计算代码，我想问的是：

                     当“月”、“天”列为字符型时，这个代码就不能正常运行，怎么样才能实现，当“月”、“天”列输入字符时，代码能正常运行
--  作者：有点蓝
--  发布时间：2016/9/1 18:17:00
--  
如果输入的是数字，这样

e.DataRow("到期日") = e.DataRow("起始日").AddMonths(val(e.DataRow("月"))).AddDays(val(e.DataRow("天")))
--  作者：约翰舒
--  发布时间：2016/9/1 18:31:00
--  
那当单独提取出“起始日”的日单独做为一列“号”，而“号”这一列为字符型，怎么办

If e.DataCol.name = "起始日"

   e.DataRow("起始日") = e.DataRow("号").Day

End If


这样写提示错误“号”的类型不对
--  作者：Hyphen
--  发布时间：2016/9/1 20:13:00
--  
如果“号”值只是“日”的值，而"起始日"又是一个日期型，这样根本没有办法赋值。

说明一下想要做什么