Select Case e.DataCol.Name
Case "法律名称", "实施日期", "废止日期"
If e.DataRow.isnull("法律名称") Then
e.DataRow("时效") = Nothing
Else
If e.DataRow.isnull("废止日期") Then
If e.DataRow("实施日期") > Date.today Then
e.DataRow("时效") = "即将生效"
Else
e.DataRow("时效") = "生效"
End If
Else
……剩下自己参考做
End If
End If
End Select