开发者密码贴出来。
For Each dr As DataRow in DataTables("供应商信息").select("报备子公司 = 'AEC'")
Dim nr As DataRow = DataTables("供应商绩效表").AddNew
nr("第一列") = dr("第一列")
Next