各位老师早上好，上次有个问题，就是混合字符串 成人3070，儿童3170，房差1570，每个-10元，转到另外一个表，
老师给了非常好的回答。
Dim dtb As DataTable = DataTables("表e")
Dim dtc As DataTable = DataTables("表k")
Dim ns As new List(of String)
ns.AddRange(new String() {"成人
此主题相关图片如下：换算.jpg
","儿童","单房差"}) For Each dr As DataRow In dtb.DataRows
Dim str As String = dr("价格")
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
Next
加好友 
发短信
Post By：2017/6/28 9:43:00 [只看该作者]
