DeepakAndre Ответов: 1

Многократный расчет VB.NET

привет, Друзья,я посвежел. vb.net ,когда я начинаю vb.net с базой данных access моя первая ошибка запуска приложения на самом деле я пытаюсь несколько вычислений Qty* rate= subtotal и total и вставить эти данные в базу данных access, но некоторые вещи неверны

Что я уже пробовал:

Private Sub BtnCal_Click(ByVal sender As System.Объект, бывал е как система.Равно EventArgs) Обрабатывает Ботанический.Щелчок
Dim QtyInteger, Qty2Integer Как Целое Число
Dim RateDecimal, TotalDecimal, Rate2Decimal, Total2Decimal As Decimal

QtyInteger = Целое Число.Синтаксический Анализ(Txt1.Текст)
Qty2Integer = Целое Число.Синтаксический Анализ(Txt4.Текст)

RateDecimal = Десятичное.Синтаксический Анализ(Txt2.Текст)
Rate2Decimal = Десятичное.Синтаксический Анализ(Txt5.Текст)


TotalDecimal = QtyInteger * RateDecimal
Total2Decimal = Qty2Integer * Rate2Decimal


Txt3.Текст = TotalDecimal.ToString("N")
Txt6.Текст = Total2Decimal.ToString("N")
Конец Подводной Лодки

phil.o

Что именно не так? Пожалуйста, опишите проблему.

Patrice T

Опишите "некоторые вещи неправильны"

1 Ответов

Рейтинг:
1

OriginalGriff

Начните с изменения имен всего: сделайте себе одолжение и перестаньте использовать имена Visual Studio по умолчанию для всего - вы можете вспомнить, что" TextBox8 " - это номер мобильного телефона сегодня, но когда вам придется изменить его через три недели, вы тогда это сделаете? Используйте описательные имена - например, "tbMobileNo" - и ваш код станет легче читать, более самодокументируемым, более легким в обслуживании-и на удивление быстрее кодировать, потому что Intellisense может добраться до" tbMobile "за три нажатия клавиш, где" TextBox8 " занимает размышление и 8 нажатий клавиш...

Затем начните помнить, что пользователи делают ошибки: они печатают неправильно.
Когда вы используете Integer.Parse он выдаст исключение, если предоставленная вами строка не является целым числом , поэтому вместо этого используйте TryParse и сообщайте о проблемах пользователю:

Dim QtyInteger As Integer
If Not Integer.tryParse(Txt1.Text, QtyInteger) Then
	' Report problem to user
        ...
        Return
End If

Если это не решит вашу проблему, то вам нужно объяснить гораздо более подробно, что именно вы делаете, что вызывает проблему, какую ошибку вы получаете, и что она делает, чего вы не ожидали, или не делает того, что вы сделали!

Maciej Los

5ед!