用代码赋值的,跟DataTables没有关系了.
在rt.Cells(0,c).Text = ColNames(c) '列名作为标题 这里判断一下是“ 吨位2 ”的改名“ 吨位 ”,其它类似。
或者定义多一个数组用来做打印标题,比如:
Dim PrintColNames As String() = New String(){"日期", "托运单位", "货物名称", "起点", "终点", "回单", "吨位", "价格", "吊杂费", "扣款", "金额", "车号", "备注"}
下面赋值这样:
rt.Cells(0,c).Text = PrintColNames(c)