Dim dt1 As DataTable = DataTables("资料目录") Dim dt2 As DataTable = DataTables("文件管理表") For Each dr As DataRow In dt2.DataRows output.show(dr("资料名称")) Dim fdr As DataRow = dt1.Find("资料 = '" & dr("资料") & "'") If fdr Is Nothing Then fdr = dt1.addnew fdr("资料") = dr("资料") End If fdr("资料名称") = dr("资料名称").replace(chr(10), "").replace(chr(13), ",") Next