[RESOLVED] Create and Fill New Column

[billboy]

I need some helping filling a New Column with values

I am using the following to strip out unwanted string in a string and i want to fill newly created column with split value. I dont know how to get the "Cityrev" into a column value

 With dtlist
            Dim dtrow As DataRow

            For Each dtrow In dtlist.Rows()
                Dim City As String = dtrow.Item("City").ToString()
                Dim Cityrev() As String = City.Split(New [Char]() {"("c}, System.StringSplitOptions.None)
                Dim revCity As String = Cityrev(Cityrev.Length - 2)
            Next
            .Columns.Add("Cityrev")
            For Each dtrow In dtlist.Rows
                dtrow("Cityrev") = dtrow("City")
            Next dtrow
        End With