Dim ld As Double
Dim cmd As New SQLCommand
cmd.CommandText = "Select Max(第15列) From {sh} "
ld = cmd.ExecuteScalar()
Output.show(ld)
Dim dr As DataRow
dr = DataTables("sh").Find("[第15列] = '" & ld & "'")
If dr IsNot Nothing
Dim mm As String
mm = dr("第17列")
Output.Show(mm)
End If
此主题相关图片如下:111.png