主题：截取数字减去10，之后加上汉字，拷贝到另外一表

Dim dtb As DataTable = DataTables("表b")

Dim dtc As DataTable = DataTables("表c")

Dim ns As new List(of String)

ns.AddRange(new String() {"成人","儿童","单房差"})

Dim str As String = dt.DataCols("价格")

Dim arr() As String = str.Split(",")

Dim n As String

Dim p As Double

str = ""

For Each Ar As String In arr

    For Each n1 As String In ns

        If ar.Contains(n1) Then

            n = n1

            Exit For

        End If

    Next

    p = val(ar.Replace(n,"")) - 10

    str &= n & p & ","

Next

Dim ndr As DataRow = dtc.AddNew

ndr("价格")=str