主题：数据验证和数据标记问题

datacolchanged事件

If e.DataCol.name = "日期" OrElse e.DataCol.name = "年度" Then
    e.DataRow.SetError("日期", "")
    e.DataRow.SetError("年度", "")
    If e.DataRow("日期").length <> 8 Then
        e.DataRow.SetError("日期", "必须8位日期")
    ElseIf e.DataRow("年度").length < 4 Then
        e.DataRow.SetError("年度", "必须输入")
    Else
        Dim s1 = e.DataRow("日期").substring(0,4)
        Dim s2 = e.DataRow("年度").substring(0,4)
        If s1 <> s2 Then
            e.DataRow.SetError("年度", "必须和日期一致")
        End If
    End If
End If