Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表c")
Dim ndr As DataRow = dt2.AddNew
ndr("线路编号名称") = dt1.DataRows(0)("大类")
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
ndr(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
ndr("第" & i & "天") = str
Next
--------------------------------
这段代码运行之后,我发现,只有表c 所有的行都删除,才会执行。
如果第一行有值了之后,第i天附 就不会赋值了。
看来半天,不知道错在什么地方,只好又来麻烦老师了!