主题：基本数据整理之竖表转横标！

 如果代码一样，可以写成循环

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
Dim ndr As DataRow = dt2.AddNew
ndr("线路编号名称") = dt1.DataRows(0)("大类")
Dim str As String = ""
Dim ary() As String = {"行程特色", "报名须知", "住宿标准", "旅游交通", "用餐标准"}
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