以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]引用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113365)

--  作者：江南小镇 --  发布时间：2018/1/14 21:28:00 --  [求助]引用 \'老师,红色的日期怎样转换成只显示年度如2016,2017,2018  。 Select Case e.DataCol.name     Case "客户ID","客户名称"         If e.DataRow.IsNull("客户名称") = False AndAlso e.DataRow.IsNull("客户名称") = False Then                          Dim dr As DataRow = DataTables("年度进销商品统计").Find("客户名称 = \'" & e.DataRow("客户名称")  & "\'")             If dr Is Nothing Then                 dr = DataTables("年度进销商品统计").AddNew                 dr("客户名称") = e.DataRow("客户名称")                 dr("日期") = e.DataRow("日期")                              End If                       dr("客户名称") = e.DataRow("客户名称")                        dr("日期") = e.DataRow("日期")

--  作者：有点甜 --  发布时间：2018/1/14 21:54:00 --   dr("年份") = Cdate(e.DataRow("日期")).Year

--  作者：江南小镇 --  发布时间：2018/1/14 22:05:00 --   谢谢老师