主题：[求助]分列代码怎么写？split

if e.datacol.name="B" then
     Dim Cns As String() = {"C","D","E","F","G","H","I","J","K","L"}
     Dim dr As DataRow = e.datarow
     dim i as integer

     For i = 0 to 9
          dr(Cns(i)) = Nothing
     Next    
  
     if dr("B") IsNot Nothing then
            For i = 0 to dr("B").split("-").Length-1
                  dr(Cns(i)) = dr("B").split("-")(i)
            Next    
     End if
End if