Dim i As Integer For Each k As String In zd.Keys '显示所有键及其对应的值 Dim dr As DataRow = DataTables("往来帐汇总").AddNew() i=zd(k) MessageBox.Show(k & "|" & s0(i) & s1(i) & s2(i) & s3(i)) dr("商家编码")=k dr("应付款")=s0(i) dr("应收款")=s1(i) dr("付款")=s2(i) dr("收款")=s3(i) Next