For Each s As String In str.split(",") '对传入的值进行拆分 For Each dr As DataRow In drs Dim dr1 As DataRow = DataTables("台账").AddNew dr1("guid")=guid.newguid.tostring() dr1("单位")=s For Each dc As DataCol In DataTables("台账").DataCols dr1(dc.Name) = dr(dc.Name) Next Next Next