"往来帐汇总"这个表是个内部数据；zd定义的是一个字典；MessageBox.Show语句显示是正常的；但是运行到dr("商家编码")=k语句就出错了，见下面错误。什么原因呢？请老师指点。

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