主题：日期

    现在我需要实现这样的功能，我在时间空间中输入一个日期，写在某一列，然后我将这一列的日期中的月自动写到另外一列，这个应该怎么实现：

列如：时间空间中我选中2015-05-23，那么“检验日期”中的时间是2015-05-23是绑定的，这个容易实现，然后我把05写入“日期”列中，如何实现

.month

1、用表达式  http://www.foxtable.com/help/topics/1285.htm

 

2、用代码，Datacolchanged事件

 

If e.DataCol.Name = "检验日期" Then
   
    If e.NewValue = Nothing Then
        e.DataRow("日期") = Nothing
    Else
        e.DataRow("日期") = CDate(e.Newvalue).Month
    End If
   
End If

 

解决

这里我顺便请教一下：如果日期列显示年加月，如检验日期是2015-07-20，则日期列显示2015-07或201507，那代码怎么写呢？谢谢！

 Drawcell 事件

 

If e.Col.Name = "第二列" Then
    If e.Text > "" Then
        e.text = Format(Cdate(e.Text), "yyyy-MM")
    End If
End If

谢谢老师，但是我想要的是：如果检修日期列显示的是年月日，而日期列（实为字符列），是根据检修日期列的日期显示年月，（即如：检修日期是2015-07-20，日期列（字符列）显示2015-07或201507），还望老师再写个代码，谢谢！

If e.DataCol.Name = "检验日期" Then
   
    If e.NewValue = Nothing Then
        e.DataRow("日期") = Nothing
    Else
        e.DataRow("日期") = Format(e.NewValue, "yyyy-MM")
    End If
   
End If

谢谢老师！