программа (если ее можно так назвать на VB

Ругать уж сильно не нужно, а вот подсказать вполне...

Размещается она по умолчанию, а другого не предусмотрено в C:\Glebov\vb\

Это сообщение отредактировал(а) slang - 25.10.2004, 20:59

Ну и кому оно в таком виде надо? Что за программа? что делает? чем отличается от аналогов?

да собственно от аналогово ни чем не отличается, если учесть что аналогов разработки этих вещей как то и нет, тоесть я ни разу не встречал таких программ на VB. На FoxPro - валом, а на VB - сколько скачал ни одной

slang
Хех, забавно конечно, но:

Код

Dim price_kod(1 To 1000) As Integer     Dim price_name(1 To 1000) As String     Dim price_proiz(1 To 1000) As String     Dim price_hit(1 To 1000) As String       etc.

По моему надо делать динмаическими.

Процедура

Код

Private Sub cells_change(key)

странная какая то - зачем ты каждый раз пробегаешь по всей таблице и пересчитывешь сумму? Не проще к имеющейся сумме "выбрано на сумму" прибовлять сумму из таблицы? Да и вообще даже если я ничего не ввел ты все равно пересчитывашь каждый раз как я давлю вверх или вниз.
Можно например булевый флажок повесить когда надо считать, а когда просто курсор передвинуть. Или еще проще сделать кнопку отдельную "расчитать"

А в остальном молодец.

А у меня прога вылетает с ошибкой (см.ниже) на помеченной строчке когда я хочу загрузить бланк заказа:

Private Sub Form_Load()
Set SimpleFTP = New SimpleFTP.ftpClass
Call load_argument
' удаляем не нужные пока кнопки
zakaz_save_but.Visible = True
view_all.Visible = False

ListGrid.TextEdit = True
...
...
...
Call price_load_but_Click
End Sub


Присоединённый файл ( Кол-во скачиваний: 2 )
 error.jpg

у меня тоже вылетает на этом же месте...

необходимо зарегистрировать simpleftp.dll с помощью regsvr32.exe, что бы не вылетала.

Цитата

Не проще к имеющейся сумме "выбрано на сумму" прибовлять сумму из таблицы?

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

для работы этих файлов необходимы файлы:
SimpleFTP.dll
msvbvm60.dll
Vsflex7L.ocx
VSFLEX3.OCX
зарегистрировать с помощью
regsvr32.exe


Это сообщение отредактировал(а) slang - 28.10.2004, 05:04

cardinal
-Mikle-
В референс подключите SIMPLFTP.dll руками и все будет ок!
Добавлено @ 08:18

Цитата(slang @ 28.10.2004, 05:00)

не проще, та как можно изменять значение и после, а соответственно он будет прибавлять значение этой ячейки дважды .

Ну ё мое........ну трудно проверочку забить типа число изменилось на большее / меньшее, то мы вычтиме его предыдущее значение и пибавим новое!

~FoX~
По идее, конечно не трудно и это конечно-же правильно, но я работаю с этим гридом, впрочем как и программирую после очень долгого перерыва (несколько лет) всего пару дней, поэтому функцию-то придумать за секундочку не могу. А обработка - пробежать по всем и посчитать сумму - занимает какое-то мгновение. При этом я пользовался сначала MSFlexGrid - там эта-же функция занимала около секунды при количестве позиций в прайсе около 1000. При использовании VSFlexGrid 7.0 Pro все происходит быстро даже на стариньких машинах.


Каким образом можно сделать проверку подключены-ли необходимые библиотеки и если нет, то подключить их?

Что не тык - ошибка. Меня это не радовало. Надо было бы хоть какое-нибудь описание написать.

* Значение "выбрано на" не изменяется, по ходу выбора наименований.

* Нажимая на "сохранить заказ" вылетает с ошибкой потому, что

Код

Private Sub upload_price() pause.Visible = True    Dim rez As Boolean ' Подключаемся к провайдеру    Call Connect(rez) ' Закачиваем последний заказ на сервер поставщика    If rez <> "Неправильно" Then        SimpleFTP.UploadFile txtsoft_dir & txtzakaz_dir & txtzakaz_klient_file, txtzakaz_server_file, True    End If pause.Visible = False End Sub

rez это boolean, а ты ее со string сравниваешь. И вообще обычно делают:

Код

rez = Connect()

* Загрузка бланка заказа длится помоему очень долго.

cardinal, посмотри, пожалуйста этот вариант http://avtograd55.ru/vb.zip

slang
Последняя версия получше
Только вот я при коннектится не могу почему то

И еще, для хранения настроек рекомендую использовать либо реестр либо ini файлы. ИМХО это правильней.

~FoX~, а как делать настройки в реестре или ini файле. Т.е. с ini файлом работать также как и собычным, только расширение поменять?
А коннектится чтобы нужно сервер FTP указать, до которого разрешается анонимный доступ (у меня на сервере стоит Гость с пустым паролем для подключения к сети и anonymous с пустым паролем для доступа к FTP.)

slang
Для работы с ini и реестром есть специальные апи функции
Вот для *.ини

Код

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFileName As String) As Long Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

slang, в FAQ'е тема есть:
http://forum.vingrad.ru/index.php?showtopic=16498