| ← Ноябрь 2001 → | ||||||
|
1
|
3
|
4
|
||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
10
|
11
|
|
|
12
|
13
|
14
|
15
|
17
|
18
|
|
|
19
|
20
|
21
|
22
|
24
|
25
|
|
|
26
|
27
|
28
|
29
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Автор
Статистика
4.065 подписчиков
0 за неделю
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 18.
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 18.
VB Студия
Голосование: Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты. Subscribe.Ru увеличило максимальный размер рассылки до 100 кб. В связи с этим вопрос: Какого размера Вы хотели бы получать рассылку? В какой день (дни) недели Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."? С какой периодичностью Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."? Результаты голосования Доска почёта: Sergey Y. Tkachev Кононенко Роман Sergey Sapozhnikov Sobic Ссылки: |
Несколько слов от автора:
В этом выпуске поставил описание системы Эксперт. Обязательно прочитайте.
Читайте! Содержание выпуска
О системе Эксперт - Привет, Серый. - Угу, привет. Ты проходи, садись, я щас, с функцией тут разберусь... - Да я на момент. Вопросец имеется. - Вопросец, вопросец... Так, тут переменная не объявлена... Вопросец... С вопросами в систему, к экспертам... А тут точку не поставил! Вот она где, соб-бака!! - Ты че, какая система? Ты о чем? - О! Все, работает... Чего ты говоришь? - Ты про каких это экспертов тут заикаешься? - А-а. А ты что, первый раз слышишь, что ли? Ты на СообЧа бывал? - Где?!! - Да вот, гляди. Щас соединимся... Во! http://soobcha.ru, зришь? - М-да... Занятно. Так я с вопросом к тебе... - А я вот и говорю: туда иди, в систему "Эксперт", там ответят. - Это чайники, что ли, ответят? - Не сомневайся, ответят. Там у них такое наворочено... Короче, ты по почте вопрос свой задаешь - и все:)))))) Больше не изволь беспокоиться, там они сами будут искать ответ на твой вопрос. А через некоторое время вывалят тебе на ящик не один, а несколько ответов. Пользуйся и радуйся:) - А чего это они там такие добрые да услужливые? У них чего, своих проблем нет? Сколько я должен платить за такое трогательное беспокойство? - Ну, это немного. Меньше, чем ты думаешь:) Тебе достаточно только подтвердить правильный ответ. Давишь на соответствующую ссылку, дескать, вот этот ответ мне понравился, помог, и я доволен. Просто пустое письмо засылаешь к ним, и вся оплата. А если хочешь у них экспертом стать, то пожалуйста, регистрируйся и отвечай на вопросы. - Кем? Экспертом? - А что? Что-то ты ведь знаешь, не вчера за комп сел. - А на фига мне это надо? Разбираться с чужими проблемами... У меня своих - хоть отбавляй... - Ага. Вот ты только что спрашивал: а сколько? И если уж ты со своими проблемами обращаешься к людям, то ведь надеешься, что тебе помогут. А сам-то что, влом, что ли, помочь кому-то? Да ладно! Тебя, вобщем-то, никто и не тянет, не заставляет. А вот те, кому интересно, кому не жаль поделиться, те там и работают. Я, между прочим, давно уже с ними. - В смысле, экспертом, что ли, заделался? И сколько тебе платят? - А ты не прикалывай. Там никто никому не платит. А вот конкурсы, между прочим, проводят, и не хилые. Представляешь, за лучший ответ дают бесплатно три месяца платного хостинга, да еще домен регистрируют. За просто так. А вот тебе, если ты задашь самый лучший вопрос, тоже приз может выгореть. - Это как: лучший? На который никто ответить, что ли, не сможет? Так я щас таких вопро... - Причем тут это? Просто ты, если вопрос пишешь к ним, так сподобься хоть запятые в нужных местах поставить, там, грамотно, короче, обрисуй свой трабл. - Ну ладно, въехал. Ты мне вот лучше помоги с моим траблом. Мой Фотошоп не хочет по русски работать... - Ха, так этот трабл там уже сколько раз появлялся. У них на сайте и ответ есть... Вот, любуйся: Заходим в редактор реестра (regedit.exe). Находим ключ HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Nls\Codepage В нем изменяем значение параметра 1252 с cp_1252.nls на cp_1251.nls. Перезагружаемся... - Понял... погоди, запишу... - Да чего записывать? Шагай домой, входи на сайт и копируй... - Да я ссылку запишу... Слушай, а как там в эту систему вопрос задать? Вообще, как она работает? - Так тут же, на сайте, все есть. А вообще, можешь по почте пустое письмо загнать на mailto:reply.infoexpert@soobcha.ru, и получишь всю необходимую инфу. А вообще, ты лучше в следующий раз с вопросами не ко мне, а туда. Может, я и отвечу там. - А не проше тебе здесь ответить? - Э-э-э... Там я баллы зарабатываю... - А это еще зачем? - Ладно, мотай. Дома почитаешь, все о них узнаешь. У меня тут халтурка... Давай, пока. - Пока. А как ты экспертом там зарегился? - Иди, иди! Инфу читай... наверх Новости сайта VB Студия
наверх Новости сайта VB Line 24 ноября 2001 г. Вы уже заметили небольшое изменение дизайна сайта? Так лучше? Предложения и замечания присылайте мне shatrykin@mail.ru. В разделе Примеры положил интересную работу Беляева Данилы, программа выводит список всех запущенных программ и может их "убивать". Там же, очень интересная DLL-ка с примером для работы с LPT портами. И еще, нашел в сети очень забавный пример: игра типа морского боя, принцип простой, плывет корабль, а Вы его ракетами... в общем играл я в нее и время кончилось, поэтому и обновлений маловато. 12 ноября 2001 г. Решил, что Вам будет интересно узнать, кто сюда ходит и какова аудитория сайта. Все данные оформил в читаемом виде и положил сюда. Смотрите, читайте и изучайте. Конечно, немного, но все же статистика. 11 ноября 2001 г. Ну вот, 7 ноября мне стукнуло 27 лет. Эх.. время. Ну да ладно, в Примеры положил интересную работу Андрея Перминова - добавление заголовка в обычное меню, думаю, что это будет интересно многим. Наконец-то появился новый совет, все наверное видели окна с недоступной кнопкой закрытия окна, а вот как это сделать, думаю, знают не все. Скажу сразу, что автор мне неизвестен, поэтому, если что, то пишите мне shatrykin@mail.ru. И, напоследок, хочу пожаловаться: что-то Вы мне маловато материала присылаете. Активнее надо быть! 05 ноября 2001 г. Во-первых, я получил сертификат "Visual Basic Programmer" уровня Master от eCertification.com. Поздравления принимаются по прежнему адресу shatrykin@mail.ru.Во-вторых, на сайте есть одна "обновка". Stas(Sheff) Vorobiov прислал интересный пример игры с использованием DirectX. наверх Сумма прописью Автор Конурин А. Ю. Public Function PropisChisla(A As String) As String Dim Rubli As String, Kop As String, i As Integer, D(3) As String If Len(A) < 3 Then GoTo Err_dlina i = InStr(A, ",") If i = 0 Then Rubli = A Kop = "00" Else Rubli = Left(A, i - 1) Kop = Right("0" + Mid(A, i + 1), 2) End If If Len(Rubli) > 9 Then Err_dlina: PropisChisla = "Слишком большое (маленькое) число" Exit Function End If If Rubli = "0" Then PropisChisla = "Ноль рублей": GoTo Kopeiki Select Case Len(Rubli) Case 1 To 3: D(1) = Rubli Case 4 To 6 D(1) = Right(Rubli, 3) D(2) = Left(Rubli, Len(Rubli) - 3) Case 7 To 9 D(1) = Right(Rubli, 3) D(2) = Mid(Rubli, Len(Rubli) - 5, 3) D(3) = Left(Rubli, Len(Rubli) - 6) End Select If Val(D(3)) <> 0 Then Tmp = D(3) GoSub 10 If Mid(Tmp, 2, 1) <> "1" Then GoSub 20 Select Case Val(Right(Tmp, 1)) Case 1: PropisChisla = PropisChisla + " миллион" Case 2 To 4: PropisChisla = PropisChisla + " миллиона" Case Else: PropisChisla = PropisChisla + " миллионов" End Select Else PropisChisla = PropisChisla + " миллионов" End If End If If Val(D(2)) <> 0 Then Tmp = D(2) GoSub 10 If Mid(Tmp, 2, 1) <> "1" Then Select Case Val(Right(Tmp, 1)) Case 1: PropisChisla = PropisChisla + " одна" Case 2: PropisChisla = PropisChisla + " две" Case 3: PropisChisla = PropisChisla + " три" Case 4: PropisChisla = PropisChisla + " четыре" Case 5: PropisChisla = PropisChisla + " пять" Case 6: PropisChisla = PropisChisla + " шесть" Case 7: PropisChisla = PropisChisla + " семь" Case 8: PropisChisla = PropisChisla + " восемь" Case 9: PropisChisla = PropisChisla + " девять" End Select Select Case Val(Right(Tmp, 1)) Case 1: PropisChisla = PropisChisla + " тысяча" Case 2 To 4: PropisChisla = PropisChisla + " тысячи" Case Else: PropisChisla = PropisChisla + " тысяч" End Select Else PropisChisla = PropisChisla + " тысяч" End If End If Tmp = D(1) GoSub 10 If Mid(Tmp, 2, 1) <> "1" Then GoSub 20 Select Case Val(Right(Tmp, 1)) Case 1: PropisChisla = PropisChisla + " рубль" Case 2 To 4: PropisChisla = PropisChisla + " рубля" Case Else: PropisChisla = PropisChisla + " рублей" End Select Else PropisChisla = PropisChisla + " рублей" End If Kopeiki: PropisChisla = PropisChisla + " " + Kop If Left(Kop, 1) <> "1" Then Select Case Val(Right(Kop, 1)) Case 1: PropisChisla = PropisChisla + " копейка" Case 2 To 4: PropisChisla = PropisChisla + " копейки" Case Else: PropisChisla = PropisChisla + " копеек" End Select Else PropisChisla = PropisChisla + " копеек" End If PropisChisla = Trim(PropisChisla) i = InStr(PropisChisla, " ") PropisChisla = StrConv(Left(PropisChisla, i - 1), vbProperCase) _ + Mid(PropisChisla, i) Exit Function 10: Tmp = Right("00" + Tmp, 3) Select Case Val(Left(Tmp, 1)) Case 1: PropisChisla = PropisChisla + " cто" Case 2: PropisChisla = PropisChisla + " двести" Case 3: PropisChisla = PropisChisla + " триста" Case 4: PropisChisla = PropisChisla + " четыреста" Case 5: PropisChisla = PropisChisla + " пятьсот" Case 6: PropisChisla = PropisChisla + " шестьсот" Case 7: PropisChisla = PropisChisla + " семьсот" Case 8: PropisChisla = PropisChisla + " восемьсот" Case 9: PropisChisla = PropisChisla + " девятьсот" End Select Select Case Val(Mid(Tmp, 2, 1)) Case 1 Select Case Val(Right(Tmp, 1)) Case 0: PropisChisla = PropisChisla + " десять" Case 1: PropisChisla = PropisChisla + " одиннадцать" Case 2: PropisChisla = PropisChisla + " двенадцать" Case 3: PropisChisla = PropisChisla + " тринадцать" Case 4: PropisChisla = PropisChisla + " четырнадцать" Case 5: PropisChisla = PropisChisla + " пятнадцать" Case 6: PropisChisla = PropisChisla + " шестнадцать" Case 7: PropisChisla = PropisChisla + " семнадцать" Case 8: PropisChisla = PropisChisla + " восемнадцать" Case 9: PropisChisla = PropisChisla + " девятнадцать" End Select Case 2: PropisChisla = PropisChisla + " двадцать" Case 3: PropisChisla = PropisChisla + " тридцать" Case 4: PropisChisla = PropisChisla + " сорок" Case 5: PropisChisla = PropisChisla + " пятьдесят" Case 6: PropisChisla = PropisChisla + " шестьдесят" Case 7: PropisChisla = PropisChisla + " семдесят" Case 8: PropisChisla = PropisChisla + " восемдесят" Case 9: PropisChisla = PropisChisla + " девяносто" End Select Return 20: Select Case Val(Right(Tmp, 1)) Case 1: PropisChisla = PropisChisla + " один" Case 2: PropisChisla = PropisChisla + " два" Case 3: PropisChisla = PropisChisla + " три" Case 4: PropisChisla = PropisChisla + " четыре" Case 5: PropisChisla = PropisChisla + " пять" Case 6: PropisChisla = PropisChisla + " шесть" Case 7: PropisChisla = PropisChisla + " семь" Case 8: PropisChisla = PropisChisla + " восемь" Case 9: PropisChisla = PropisChisla + " девять" End Select Return End Function наверх Функция преобразования переменной типа Byte в двоичное число Function ByteToBin(ByVal ByteVal As Byte) As String Dim a As Integer Dim b As String Dim i As Integer Dim c As String Dim d As Integer a = CInt(ByteVal) Do While a <> 0 If a / 2 = Int(a / 2) Then b = b & "0" Else b = b & "1" End If a = Int(a / 2) Loop d = 8 - Len(b) If d <> 0 Then For i = 1 To d b = b & "0" Next End If b = StrReverse(b) ByteToBin = b End Function наверх Аналог функции Split Функция Split появилась в VB6. Для пользователей VB5 и ниже функция, идентичная функции Split. Public Function MySplit(Expression As String, Splitter As String) As Variant Dim pos As Long Dim posit As Long Dim n As Long Dim temp As String Dim Split_() As String Dim dowas As Boolean pos = 1 posit = InStr(pos, Expression, Splitter) Do While posit <> 0 dowas = True n = n + 1 temp = Mid$(Expression, pos, posit - pos) ReDim Preserve Split_(n + 1) Split_(n) = temp pos = posit + Len(Splitter) posit = InStr(pos, Expression, Splitter) Loop If dowas = True Then temp = Mid$(Expression, pos, Len(Expression) - pos + 1) Split_(n + 1) = temp Else ReDim Split_ (1) Split_ (1) = Expression End If MySplit = Split_ End Function наверх Сумма прописью (ещё один вариант) 'Параметры: 1-сумма ' 2-вывод руб.коп.: 0-нет;1-сокращенно;2-полностью ' 3-копейки: 0-нет;1-есть;2-авто ' 4-текст в конце Public Function СуммаПрописью(ByVal Sm As Currency, Optional ByVal P_s As Variant, Optional ByVal Cop As Variant, Optional ByVal aft As Variant) As String Dim im As Integer, Smt As String, smti As String, out As String Dim zt As Integer, z2 As Integer, z3 As Integer, i As Integer, j As Integer If IsMissing(aft) Then aft = "": If IsMissing(Cop) Then Cop = 2: If IsMissing(P_s) Then P_s = 1 Smt = Int(Sm): im = (Len(Smt) + 2) / 3: Smt = String$(im * 3 - Len(Smt), "0") & Smt For i = 1 To im smti = Mid$(Smt, 3 * i - 2, 3): z2 = Mid$(smti, 2, 1): z3 = Right$(smti, 1) For j = 1 To 3 zt = Mid$(smti, j, 1) Select Case j Case 1 out = out & Choose(zt, "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ") Case 2 If z2 = 1 Then out = out & Choose(z3 + 1, "десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ") Else out = out & Choose(zt, "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ") End If Case 3 If z2 <> 1 Then out = out & Choose(zt, "од", "дв", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ") Select Case zt Case 1 out = out & IIf(im - i = 1, "на ", "ин ") Case 2 out = out & IIf(im - i = 1, "е ", "а ") End Select End If End Select Next Select Case im - i Case 1 out = out & IIf(smti <> 0, "тысяч" & IIf(z3 = 0 Or z3 > 4 Or z2 = 1, " ", IIf(z3 > 1 And z3 < 5, "и ", "а ")), "") Case 2, 3, 4 out = out & IIf(smti <> 0, Choose(im - 1 - i, "миллион", "миллиард", "триллион") & IIf(z3 = 0 Or z3 > 4 Or z2 = 1, "ов ", IIf(z3 > 1 And z3 < 5, "а ", " ")), "") End Select Next If out = "" Then out = "ноль " If P_s > 0 Then out = out & IIf(P_s = 1, "руб.", "рубл" & IIf(z3 = 0 Or z3 > 4 Or z2 = 1, "ей", IIf(z3 > 1 And z3 < 5, "я", "ь"))) smti = Format$((Sm - Int(Sm)) * 100, "00") If (P_s > 0 And Cop = 1) Or (P_s > 0 And Cop = 2 And smti <> "00") Then z2 = Left$(smti, 1): z3 = Right$(smti, 1) out = out & " " & smti & IIf(P_s = 1, " коп.", " копе" & IIf(z3 = 0 Or z3 > 4 Or z2 = 1, "ек", IIf(z3 > 1 And z3 < 5, "йки", "йка"))) End If Mid$(out, 1, 1) = UCase$(Left$(out, 1)) СуммаПрописью = out & aft End Function наверх Как "вытащить" картинки (BMP) из файлов AVI Автор Рукавишников Dim Det As New MediaDet Const VideoGUID As String = "{73646976-0000-0010-8000-00AA00389B71}" bFoundVidStream = False Det.FileName = "C:\Media\Example.avi" 'файл, из которого будут извлекаться картинки ' Поиск видео. For i = 0 To Det.OutputStreams - 1 Det.CurrentStream = i StreamType = Det.StreamTypeB If StrComp(StreamType, VideoGUID, vbTextCompare) = 0 Then bFoundVidStream = True Exit For End If Next If bFoundVidStream Then ' Обновление текста метки с именем VideoInfo на Вашей форме. VideoInfo.Caption = Det.FileName + ": " + Str(Det.StreamLength) + " seconds" ' Помещение кадра в файл C:\Temp.bmp TempFile = "C:\Temp.bmp" Preview.ScaleMode = vbPixels ' Задаем ScaleMode для Picture Box с именем Preview на Вашей форме. 'Кадр, соответствующий моменту времени 0, помещается в файл C:\Temp.bmp Det.WriteBitmapBits 0, Preview.ScaleWidth, Preview.ScaleHeight, TempFile Preview.Picture = LoadPicture(TempFile) ' Кадр появляется в Picture Box с именем Preview End If ******************* Вместо 0 можете указать любое время до Det.StreamLength Только не забудьте перед использованием создать пару контролов: 1. VideoInfo - Label (или Form); 2. Preview - Picture Box наверх Книги
Остальные книги о VB из магазина Колибри можно найти здесь. наверх Анонсы эхо-конференций СообЧа Игры
Работа, работа, работа — документы, базы, отчеты…
Ну все пора расслабиться: работа не волк — в лес
не убежит! Представь себе, у нас есть группа,
которая поможет тебе скрасить тяжелые рабочие
будни — мы помогаем друг другу играть!!!
Обсуждаем все вопросы, которые только могут
появиться у любителя игр: к примеру, как
поиграть в StarCraft по сети или как написать
свой конфиг к QUAKE III, и обсудим еще
многое-многое-многое… Новости, ссылки на демки,
патчи, обзоры и прохождение игр — все это
у нас есть! Есть вопросы — ответим, есть
новенький секрет — расскажем! Ну, а если
ты супер-геймер, сам бог тебе велел быть с нами! Подписаться Шифрование
Встречались ли вы в своей жизни с компьютерными
пиратами? Одной из сфер их деятельности является
перехват любой информации во время ее пересылки
в просторах сети и воровство данных прямо с
вашего компьютера. Даже если хакеру и удастся
завладеть секретными данными — каково же будет
его разочарование, когда он не сможет их прочесть!
Давайте же поговорим о шифровании данных с помощью
PGP и других алгоритмов... Подписаться Все о Linux
Конференция, посвященная ОС Linux, которую
имеете или будете иметь вы, а не она вас.
Чем больше будет задано вопросов, тем больше
будет получено ответов. Количество как известно
перерастает в качество... И что приятно, ответы
не канут в лету, их всегда можно будет найти в
архиве нашей группы... Добро пожаловать! Подписаться Всё, что связано с пакетом программ MS Office
Вы хотели создать красивый документ в Word, но
не знаете как форматировать текст? Или же в
Excel вам нужно создать сложнейший и, в тоже
время, красивый отчет, содержащий тысячи цифр,
и вам не хватает для этого возможностей программы?
Вам нужно создать базу данных в Access и по ней
составлять отчеты или вы не знаете как послать
письмо из Oulook? Всё это - от основ форматирования
текста до сложнейших работ в таких программах,
как MS Access и MS Publisher, - вы можете узнать
в нашей группе Soobcha_Office. Подписаться Мощь и красота С++
С++ является одним из самых гибких языков
программирования. Сочетание низкоуровневых и
высокоуровневых средств делает его сильным
инструментом в руках программиста. Данная
группа призвана помочь программирующим на Си и
просто их сблизить. Давайте будем решать
проблемы вместе!!! Подписаться наверх Доска объявлений Ищу телеработу.
Объявляется конкурс на лучщий баннер для сайта VB Студия. Приз за лучший баннер - 5000 показов баннерообменной сети TLE. Вопросы и предложения по этому адресу Требуется человек, знающий HTML для работы с сайтом группы СооБчаVB. Вопросы и предложения по этому адресу
Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Peter Salmin Ответ ожидается по этому адресу Создал на VB6 приложение для работы с БД в локальной сети. Работает, честно говоря, медленно. Друзья говорят, напиши в Delphi - работать будет быстрее. Действительно ли это так, или это дело вкуса, в чем писать? Автор вопроса: Сергей Ответ ожидается по этому адресу Как заполнять поле с датой с помощью выпадающего календаря? В MS Access Автор вопроса: Alexandr Ignatchenko Ответ ожидается по этому адресу Если есть у кого-нибудь пример как записывать и считывать данные из ячеек Excel-я в VB не в VBA, пришлите, плиз!! Автор вопроса: NetRat Ответ ожидается по этому адресу Можно ли в чужую программу, которая написана на VB, вставить свой тулбар в котором данные будут браться из основного меню этой проги. Например, есть пункт меню "Выход" в котором есть два подпункта "Сейчас" и "Завтра". Я делаю кнопку на своем тулбаре при нажатии на которую выпадает меню с "Сейчас" и "Завтра". Ответы: Вопрос: Мне необходимо создать activeX.dll с какой-то вложенной функцией и передавать из программы (основной - возможно на другом языке Visual С++ или делфи) массив данных для обработки моей dll, и соответственно его возвращать. Другой вариант - мой dll сам создаёт какой-то массив данных и мне его нужно отдавать внешней программе по запросу. Подскажите как это реализовать. Несколько переменных я могу передать(вернуть) по отдельности каждую, а массив как-то не получается. Ответ: Автор ответа: Kirill Насколько я знаю, в VB массивы между функциями удобнее всего передавать с помощью типа Variant, т.е. если у функции один из принимаемых параметров имеет тип Variant, туда можно пихнуть все, что угодно, в том числе и массив. Но как на это отреагируют другие языки я даже предположить не могу, хотя по идее должно сработать. Вопрос: Как из VB6 изменить пути к таблицам dbf в CrystalReport? Возможно, я неправильно пользуюсь SetTableLocation? Ответ: Автор ответа: Alex Sorry, eto ne FOX, no mne kagetsia, chto eto dolgno rabotat. Smeni LS.mdb na imia foldera gde legat FoxPro files... CrystRep.DataFiles(0) = "C:\Mdb\LS.mdb" CrystRep.ReportFileName = "C:\"Report\InputReport.rpt" CrystRep.SelectionFormula = "" CrystRep.PrintReport Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
||||||
Выпуск подготовили: | Сурменок Павел и Шатрыкин Иван |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
