Select Case e.DataCol.Name
Case "驾驶员", "带车人", "随行1", "随行2", "随行3", "随行4", "随行5"
Dim nms() As String = {"驾驶员", "带车人", "随行1", "随行2", "随行3", "随行4", "随行5"}
Dim count As Integer
For Each nm As String In nms
If e.DataRow.IsNull(nm) = False Then
count = count + 1
End If
Next
e.DataRow("出行人数") = count
End Select