已经解决， '设置列宽
  With DataGrid1
  .Columns(0).Width = 600
  .Columns(1).Width = 800
  .Columns(2).Width = 1800
  .Columns(3).Width = 1200
  .Columns(4).Width = 500
  .Columns(5).Width = 500
  .Columns(6).Width = 500
  .Columns(7).Width = 600
  .Columns(8).Width = 1500
但如何在另一个文本框中求出.Columns(7)列数据的和