Задача о нахождении максимального и минимального значений
Мой код для минимальных значений возвращает максимальное значение а код для максимального возвращает 0
Private Sub BtnCalcMin_Click(sender As Object, e As EventArgs) Handles btnCalcMin.Click 'Minimum Calculation Dim strsql As String = "SELECT [Price] FROM [Booking]" Dim strpath As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Users\User\Desktop\Dummy database for login register\Flight2\Flight\test.mdb" Dim odaTest As New OleDb.OleDbDataAdapter(strsql, strpath) Dim datvalue As New DataTable Dim intcount As Integer Dim decMinimum As Decimal = 0 odaTest.Fill(datvalue) odaTest.Dispose() For intcount = 0 To datvalue.Rows.Count - 1 If decMinimum >= Convert.ToDecimal(datvalue.Rows(intcount)("Price")) Then decMinimum = Convert.ToDecimal(datvalue.Rows(intcount)("Price")) Else decMinimum = decMinimum End If Next Label5.Text = "RM" & decMinimum End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Maximum Calculation Dim strsql As String = "SELECT [Price] FROM [Booking]" Dim strpath As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Users\User\Desktop\Dummy database for login register\Flight2\Flight\test.mdb" Dim odaTest As New OleDb.OleDbDataAdapter(strsql, strpath) Dim datvalue As New DataTable Dim intcount As Integer Dim decMax As Decimal = 0 odaTest.Fill(datvalue) odaTest.Dispose() For intcount = 0 To datvalue.Rows.Count - 1 If decMax < Convert.ToDecimal(datvalue.Rows(intcount)("Price")) Then decMax = Convert.ToDecimal(datvalue.Rows(intcount)("Price")) End If Next Label6.Text = "RM" & decMax End Sub
Что я уже пробовал:
Я попробовал изменить тип данных с валюты на цифры
phil.o
Это математическая проблема: вы не используете правильные сравнения для максимальных/минимальных значений. Это та проблема, которую можно понять/решить с помощью простого сеанса отладки. Почему бы вам не отладить свой код?