标题：[求助]为什么无法给表字段赋值呢？

"往来帐汇总"这个表是个内部数据；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

dr("商家编码")= 'k' 

问题找到了.我犯了个错误,新建表时,列名没有改,只改了标题名;纠正之后正常之!