主题：[求助]格式化日期

1、什么时候要格式化？

2、drawcell事件

If e.col.name = "开始日期" AndAlso e.text > "" Then

    e.text = format(cdate(e.text), "yyyy年MM月dd日")

End If

datacolchanged事件

If e.datacol.name = "日期" Then

    If e.newvalue = nothing then

        e.datarow("年月") = nothing

    Else

        e.datarow("年月") = Format(e.newvalue, "yyyyMM")

    End If

End If

Select e.DataCol.Name
    Case "日期"
        Dim lb As String ="Y"
        If e.DataRow("单号").StartsWith(lb) = False '如果单据编号前缀不符
            Dim idx As Integer = e.DataRow("_Identify")
            e.DataRow("单号") = lb & Format(idx,"000000")
        End If
        If e.newvalue = Nothing Then
            e.DataRow("年月") = Nothing
        Else
            e.DataRow("年月") = Format(e.newvalue, "yyyyMM")
        End If     
End Select