'老师,红色的日期怎样转换成只显示年度如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("日期")