主题：ｍｉｎ函数如何使用

Dim cs() As String = {"第一列", "第二列", "第三列"}

For Each dr As DataRow In DataTables("表A").Datarows
    Dim min = dr(cs(0))
    For Each c As String In cs
        If dr(c) < min Then min = dr(c)
    Next
    dr("第十列") = min
Next