r.DataTable.DataCols.Add( k3 & j , Gettype(Double),"iif(" & k2 & j & "=0,null, " & k1 & j & “/” & k2 & j & ")")