主题：某列的最后一行循环输入到另外一表

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 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

感谢 有点甜 老师百忙之中 指导，原来是这样的！