从"驾驶员", "带车人", "随行1", "随行2", "随行3", "随行4", "随行5"查找该行非空列的个数,填到出行人数中
代码如下:请大神帮忙改错
For Each c As DataCol In DataTables("用车登记").dataCols Select Case c.name Case "驾驶员", "带车人", "随行1", "随行2", "随行3", "随行4", "随行5" Dim count As Integer = DataTables("用车登记").Compute("Count(c)","c is not null") e.DataRow("出行人数") = count End SelectNext