最大
Dim t As Table = CurrentTable
Dim vals As List(Of String) = t.DataTable.GetValues("第一列","第一列 Is Not Null")
Dim max As Integer = 1
Dim str As String
For Each val As String In vals
max = IIF(val.Split("】")(1).Split("号")(0) > max,val.Split("】")(1).Split("号")(0),max)
If val.EndsWith(max & "号") Then
str = val
End If
Next
MessageBox.Show(str)
最小
Dim t As Table = CurrentTable
Dim vals As List(Of String) = t.DataTable.GetValues("第一列","第一列 Is Not Null")
Dim max As Integer = 1
Dim str As String
For Each val As String In vals
max = IIF(val.Split("】")(1).Split("号")(0) < max,val.Split("】")(1).Split("号")(0),max)
If val.EndsWith(max & "号") Then
str = val
End If
Next
MessageBox.Show(str)
加好友 
发短信
Post By：2015/8/8 7:39:00 [显示全部帖子]
