我在想是不是应该这样呢?
r.DataTable.DataCols.Add( k4 & j , Gettype(Double), k3 & j & "/" & k3 & "(" & j-1 & ")")