Select Case e.Col.Name
Case "第五列", "第六列", "第九列", "第十列"
if e.row.isnull(e.Col.Name) then
e.Cancel = True
endif
Case "第七列", "第八列"
case else
Dim dr As Row = e.Row
If dr.IsNull("第五列") OrElse dr.IsNull("第六列") OrElse dr.IsNull("第九列")OrElse dr.IsNull("第十列") Then
else
e.Cancel = True
endif
End Select