Помогите сложить значение двух текстбоксов

[kondrat]

VB 6.0, есть три текстбокса привязанных через Adodc к полям MSSQL2000 с типом данных real, надо чтобы в третьем отображалась сумма двоих первых при изменение любого из двоих первых полей
Какой DataFormat надо выбрать для текстовых и полей и какой код написать на изминение текстовых полей?
Зараннее благодарен!

[Niko]

Код: Выделить всё

Private Sub Text1_Change()
    Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Text2_Change()
    Text3 = Val(Text1) + Val(Text2)
End Sub

[kondrat]

Тогда, если я ввожу, допустим 1,3 в один, в другой 1, 2, то в третьем значение округляется, если ввожу через точку, все нормально, но не всавляется в базу

[Niko]

Код: Выделить всё

Private Sub Text1_Change()
    Text3 = Val(Text1) + Val(Text2)
    'тут вставляем в базу
End Sub

Private Sub Text2_Change()
    Text3 = Val(Text1) + Val(Text2)
    'тут вставляем в базу
End Sub

---
у тебя разделителем дробной части является точка, а не запятая. Поэтому Val и отбрасывает все что находится после запятой включая запятую.

[kondrat]

А можно поменять разделитель дробной части на запятую?
У меня эти три поля (c еще многими другими) должны одновремено вставляться по adodc.update

[Niko]

Пуск\Настройка\Панель управления\Система\Языки и региональные стандарты\"Настройка"\"Разделитель целой и дробной части"

[kondrat]

У меня и так стоит разделитель запятая, а сумма получается без округления только, когда ввожу через точку, причем результат в третьем текстбоксе отображается через запятую

[Cytron]

Код: Выделить всё

Private Sub Text1_Change()
    Text3 = Val(Replace$(Text1, ",", ".")) + Val(Replace$(Text2, ",", "."))
End Sub

Private Sub Text2_Change()
    Text3 = Val(Replace$(Text1, ",", ".")) + Val(Replace$(Text2, ",", "."))
End Sub


[kondrat]

VB 6.0, как для updown сделать дробный инкримент?

[Wolfie]

обычным образом никак, вроде...

[Cytron]

легче сделать свой updown наверное