以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何从日期列字段截取年,月,日和如何查找列的扩展  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149323)

--  作者:lgz518
--  发布时间:2020/4/29 8:58:00
--  如何从日期列字段截取年,月,日和如何查找列的扩展
如何从日期列字段截取年,月,日和如何查找列的扩展
1.年,月,日字段列的值,如何从日期列字段截取?
2,列属性,找不到“扩展功能”,如何解决?谢谢

--  作者:有点蓝
--  发布时间:2020/4/29 9:18:00
--  
到datacolchanged事件写代码处理


--  作者:lgz518
--  发布时间:2020/4/29 12:19:00
--  
Dim d1 As Date = Date.Today
Dim year As Integer = d1.Year
Dim month As Integer = d1.Month
Dim day as Integer = d1.Day

没执行

--  作者:有点蓝
--  发布时间:2020/4/29 13:51:00
--  
这个事件怎么使用,先看看:http://www.foxtable.com/webhelp/topics/0625.htm


--  作者:lgz518
--  发布时间:2020/4/29 14:39:00
--  
If e.DataCol.Name = "日期" Then 
    If e.DataRow.IsNull("日期") Then 
        e.DataRow("年") = Nothing 
        e.DataRow("月") = Nothing 
        e.DataRow("日") = Nothing \'
    Else
       
                e.DataRow("年") = ReadBirthday(e.DataRow("日期"))
        e.DataRow("月") = ReadBirthday(e.DataRow("日期"))
        e.DataRow("日") = ReadBirthday(e.DataRow("日期"))
    End If
End If

也没执行

--  作者:有点蓝
--  发布时间:2020/4/29 15:03:00
--  
建议不要急着做项目先学好基础:http://www.foxtable.com/webhelp/topics/1592.htm

If e.DataCol.Name = "日期" Then 
    If e.DataRow.IsNull("日期") Then 
        e.DataRow("年") = Nothing 
        e.DataRow("月") = Nothing 
        e.DataRow("日") = Nothing \'
    Else
        e.DataRow("年") = e.DataRow("日期").year
        e.DataRow("月") = e.DataRow("日期").month
        e.DataRow("日") = e.DataRow("日期").day
    End If
End If


--  作者:lgz518
--  发布时间:2020/4/29 15:39:00
--  
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.12.17.18
错误所在事件:表,日记帐明细, DataColChanged
详细错误信息:
调用的目标发生了异常。
从类型“Integer”到类型“Date”的转换无效。

报错,

日期,年,月,日都是“日期时间”

--  作者:有点蓝
--  发布时间:2020/4/29 15:45:00
--  
改为整数。如果还是使用日期型没有必要再分开年,月,日,直接取日期列计算就可以了