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(str.SubString(0,2), str.SubString(2,2), str.SubString(4)) End If End If