Dim nms() As String = {"A1","A2","A3","A4"}For each nm As Sring in nms For Each dr As DataRow In DataTables("xxx").DataRows If dr.IsNull(nm) = False Then dr(nm) = Math.Round(dr(nm),2) End If NextNextDataTables("xxx").Save()