主题：自定义函数问题

For Each dCol As DataCol In dt.DataCols

        If dCol.Name = colName Then

            For Each dr As DataRow In dt.Select("[" & colName & "] = '" & oldV & "'")  

                dr(colName) = newV

            Next

        End If

    Next

像这个你不需要遍历所有列啊.你传入的时候就应该知道该列是否对应.

    

if dt.datacols.Contains(colName) then For Each dr As DataRow In dt.Select("[" & colName & "] = '" & oldV & "'")                   dr(colName) = newV Next end if