主题：请看下，汉字出错的问题？

哦，明白。原来是Dim s As String = Values(Index).Trim 把行最后一个空格字符给删除了，造成长度不一致。
非常感谢lxl版主提供最大帮助。这样一来，完全可以解决了，采集器数据与数据库的之间的数据交换了。

呵呵，正常的：
1.去掉会增加无谓的计算：
你原来的代码也有判断：

if s13 = "C" then
'     tables("出库数据上传").AllowEdit = True
     Dim r As Row = Tables("出库数据上传").rows.AddNew()

     r("出库单号") = s2
     r("捆包号") = s3
     r("库位") = s4
     r("条码号") = s5
     r("重量") = s6
'     r("重量") = s7
     r("钢号") = s8
     r("规格") = s9
     r("扫描时间") = s10
     r("车号") = s11
     r("件数") = s12
     r("标记") = s13
  end if
你的代码：不是以C结尾的记录，S2-S13都是白计算了

2。想去掉而不报错，必须把前面一句改一下：
Dim s As String = Values(Index).Trim
红色部分去掉。
——————————————————
哎呀。放马后炮了

这个是以C结尾的，没有错。因其它不是这样的，如入库数据，转库数据不是以“C”结尾的，我是在做测试。lxl版主是没有错的。

谢谢！