主题：[求助]我编制的单据编号里面有日期信息，如何在日期列自动生成日期

If e.DataCol.Name = "编号" Then
    If e.NewValue = Nothing OrElse e.newvalue.length < 6 Then
        e.DataRow("日期") = Nothing
    Else
        Dim str As String = right(e.newvalue,6)
        e.DataRow("日期") = new Date(20 & str.SubString(0,2), str.SubString(2,2), str.SubString(4))
    End If
End If