95.21 ![]()
// Collect Top_Reward
If App.DB.Connect Then
Var sql As String = “SELECT Amount FROM Table WHERE Amount = (SELECT MAX(Amount) FROM Table LIMIT 1)”
Var rs As RowSet = App.DB.SelectSQL(sql)
If rs Is Nil Then
Return False
Else
// Set Values
Var Max_Amount As Double = rs.Column("Amount").DoubleValue
mTop_Amount = Max_Amount
MessageBox(Max_Amount.ToString)
End If
End If