Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表c")
Dim bds As String = "第二列 is not null and "
bds += "Substring(大类,1,1)='第' And Substring(大类,len(大类),1)='天'"
Dim drs As List(of DataRow) = DataTables("表A").Select(bds)
Dim ddr As DataRow = DataTables("表A").datarows(0)
Dim fdr As DataRow = DataTables("表C").Find("线路编号名称 = '" & ddr("大类") & "'")
If fdr Is Nothing Then
fdr = DataTables("表C").AddNew
fdr("线路编号名称") = ddr("大类")
End If
For Each dr As DataRow In drs
fdr(dr("大类") & "附") = dr("第一列") + dr("第二列") + dr("第三列")
Next
Dim str As String = ""
Dim ary() As String = {"行程特色", "报名须知", "住宿标准", "旅游交通", "用餐标准", "景点门piao", "儿童标准", "费用不含", "导游服务", "进店明细", "温馨提示" }
For Each s As String In ary
str = ""
For Each dr As DataRow In dt1.Select("大类 = '" & s & "'")
str &= dr("第一列") & vbcrlf
Next
fdr(s) = str
Next
For i As Integer = 1 To 8
str = ""
For Each dr As DataRow In dt1.Select("大类 = '第" & i & "天'")
str &= dr("第一列") & " " & dr("第二列") & " " & dr("第三列") & vbcrlf
Next
fdr("第" & i & "天") = str
Next
加好友 
发短信
Post By：2017/7/9 9:48:00 [显示全部帖子]
