主题：再请教一个问题

Select Case e.DataCol.name
    Case "第五列","第七列","第十列","第十二列"
        Dim s() As String = {"第五列","第七列","第十列","第十二列"}

        e.DataRow("第一列")  = nothing
        For i As Integer =  s.Length - 1 To 0 Step - 1
            If e.DataRow.IsNull(s(i)) = False Then
                e.DataRow("第一列") = s(i)
                Exit For
            End If
        Next
End Select