Dim dts_in1 As List(Of DataRow) = DataTables("应付款付款明细表").Select("供应商编号 is not null", "供应商编号,供应商名称,月份")'排序取出 付款 全部数据
改成
Dim drs_in1 As List(Of DataRow) = DataTables("应付款付款明细表").Select("供应商编号 is not null", "供应商编号,供应商名称,月份")'排序取出 付款 全部数据