Dim max As String = Tables("表A").Compute("Max(第一列)")'最大号Output.Show(max)
Dim min As String = Tables("表A").Compute("Min(第一列)")'最小号Output.Show(min)