Проблема с компелированным EXE

[SKYS]

Компелирую EXE файл получаю проблему не считается один столец в таблице Flexgridplus (скачал контрол с сайта vbrusian).

код отвечающий за подсчет

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

For i = 1 To temp.Rows - 1
temp.Cells(i, 5).Text = Val(temp.Cells(i, 2).Text) + Val(temp.Cells(i, 3).Text)
Next i

Помогите я с таким столкнулся впервые.
p/s/ Может ктонить знает функцию удаления всех пробелов в строке ??

[Igor_123]

как-то странно, пишеш столбец не считает, а цикл по количеству строк сделан, да ещё и без одной

почитай на тему как использовать Trim, LTrim, RTrim и Mid(это для всех пробелов и не только)

[SKYS]

как-то странно, пишеш столбец не считает, а цикл по количеству строк сделан, да ещё и без одной

почитай на тему как использовать Trim, LTrim, RTrim и Mid(это для всех пробелов и не только)

я в общем сказал и маленько не так
мне необходимо в каждой строке посчитать сумму 2 и 3 яцейки и записать в 5 вот суть
Когда работаю через VB все норм и все считается

[Хакер]

Вот скажи мне, SKYS, ты и многие другие - каким принципом вы руководствуетест, когда пишите "компелировать"? Принципом "как слышится, так не пишется"?

[Денис]

Хакер
Тогда уж "кампилиравать"

[Igor_123]

Тогда если temp.Cells(i, 5).Text свойство не ReadOnly и это действительно то свойство для изменения отображаемых данных спрашивай у авторов контрола, может ему Refresh нужен, а может с бубном потанцевать

[SKYS]

Хакер

Ну уж ладно вам бывает .


мне программу скоро в ход пускать а она работать не хочет.
и все таки я не понимаю чем отличается работа exe файла от работы кода в vb почему в vb считает а тут нет . Чтоб мне провалиться наэтом месте на... зачем я связался с этим контролом раз такие проблемы но уж очень он подходил он под мою программу. этакий мини excel удобно .

Тогда если temp.Cells(i, 5).Text свойство не ReadOnly и это действительно то свойство для изменения отображаемых данных

так скажем что другие способы занесения в ячейки работают а этот нет чтоли ?
метод типа temp.Cells(i, 5).Text =val(а)+val(b) работает а

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

temp.Cells(i, 5).Text = Val(temp.Cells(i, 2).Text) + Val(temp.Cells(i, 3).Text)


нет.