Форматирование MSHFlexGrid с иерархическим Recordset-ом

27.01.2009, 12:34. **Показов** 3245. **Ответов** 25

Студворк — интернет-сервис помощи студентам

Есть иерархический Recordset - rstDB.
Он подключен к MSHFlexGrid:

Code
1
Set MSHFlexGrid.Recordset = rstDB

Вопрос: Как сделать невидимыми некоторые столбцы?

Заранее благодарен.

@Korolana · 27.01.2009, 17:54

Put their width = 0

27.01.2009, 23:06

а у меня вопрос - как эту иерархию задать, что в гриде 'плюсики появились'? Может документация какая есть, как правильно запрос написать?

28.01.2009, 09:04

То Korolana:
Спасибо за подсказку, но опять новая проблема.
У меня в иерархическом запросе Bands = 3.
Если нужно удалить во 2-ом Band-е первый столбец:

Code
1
.ColWidth(0, 1) = 0

,то между последним столбцом 1-ого Band
и 2-м столбцом 2-ого Band какая-то КРАКОЗЯБРИНА

28.01.2009, 09:15

To realist:

>а у меня вопрос - как эту иерархию задать, что в гриде 'плюсики >появились'?
Тебя интересует, как в коде сделать или при помощи конструктора Data Enviroment?
>Может документация какая есть, как правильно запрос написать?
Я в книжке прочитал. Роджер Дженнингс 'Руководство разработчика
баз данных на Visual Basic 6'. Глава 'Построение иерархических команд с помощью конструктора Data Enviroment'

28.01.2009, 10:03

Я делал так:
В проекте нет Data Env.
Для показа иерарх. флекса добавлял Data Env. делал флекс, сохранял форму, удалял и форму и флекс и открыв сохраненную форму (в notepad) копировал код относящийся к флексу в ту форму куда мне надо, попутно там можно изменить вид флекса (ну это если разобратся как он там описан)

@oldpasp · 28.01.2009, 10:23

Используйте Provider = MSDataShape

28.01.2009, 10:50

To White Snake:
Нет ли возможности отсканерить эту самую главу? В ответ есть книга Джефри Мак Мануса 'Обработка баз данных на VB6'. Её хвалят. Но к сожалению там информации по иерархии. Если что нужно, то смогу отсканерить.

28.01.2009, 10:52

To White Snake:
Нет ли возможности отсканерить эту самую главу? В ответ есть книга Джефри Мак Мануса 'Обработка баз данных на VB6'. Её хвалят. Но к сожалению там информации по иерархии. Если что нужно, то смогу отсканерить.

01.02.2009, 09:17

To realist:
>Нет ли возможности отсканерить эту самую главу?

Куда слать?

>В ответ есть книга Джефри Мак Мануса 'Обработка баз данных на VB6'. >Её хвалят. Но к сожалению там информации по иерархии. Если что >нужно, то смогу отсканерить.

Если можно отскань содержание книги.

01.02.2009, 10:28

слать на realistmail@mail.ru
Содержание отсканерю.

01.02.2009, 15:10

To realist:
Уже отправил. Лови.

01.02.2009, 18:37

пока не поймал, может файл большой?
у меня ящик всего 3мб

01.02.2009, 18:53

To realist:
Три файла, следующего объема:
HerRecordset.ARJ - 361 474
HerRecordset.A01 - 361 400
HerRecordset.A02 - 238 085
Каждый на скрепке отдельного письма

02.02.2009, 16:47

Ничего не плолучил. Ты куда отправил?

03.02.2009, 08:43

To realist:
>Ничего не плолучил. Ты куда отправил?
Отправил мылом тестовое письмо на realistmail@mail.ru
Ответь если получил его.

@Korolana · 03.02.2009, 17:16

One of my examples (for Access)
Source: DB -> Access
Table 'Blanks' with fields 'Gauge','Width','Length'
I need show it hierarhically by 'Gauge' and 'Width'
So,:

dim cnShape as Adodb.Connection
Dim rs as Adodb.Recordset

Set cnShape = New ADODB.Connection
Set rs = New ADODB.Recordset

strString = 'Provider=MSDataShape.1

ata Provider=Microsoft.Jet.OLEDB.4.0

ata Source=' & <your DB Location> & ';Persist Security Info=False'
cnShape.ConnectionString = strString
cnShape.Open

strString = 'SHAPE {select Gauge ,Width, Length from BlankDimensions as Command1 COMPUTE Command1 BY 'Gauge','Width''

rs.Open strString,cnShape,adOpenDynamic, adLockReadOnly, adCmdText

Set MsHFlexGrid1.DataSource = rs

(you will see Grid with columns: 'Gauge','Width','Gauge','Width','Length'
First two - Band 0 (from COMPUTE Command1 part in Select expression)
Last 3 - Band 1 (from SHAPE part in Select expression)
I don't want to show 'Gauge' and 'Width' columns for the Band 1
So

MSHFlexGrid1.ColWidth(0, 1) = 0
MSHFlexGrid1.ColWidth(1, 1) = 0

I didn't try it for the case with 3 Bands, but I don't think, that this is a big difference

@VitJ · 04.02.2009, 12:01

To White_snake:
многоуважаемый, а мог бы я тоже получить эту ценнейшую для меня информацию, я тоже этим интересовался и даже делал, но как-то криво и сам не понял как

Вобщем, не было по чему разбираться, самому тыкаться приходилось

Вот только мне нечего предложить взамен...

@VitJ · 04.02.2009, 12:02

To White_snake:
многоуважаемый, а мог бы я тоже получить эту ценнейшую для меня информацию, я тоже этим интересовался и даже делал, но как-то криво и сам не понял как

Вобщем, не было по чему разбираться, самому тыкаться приходилось

Вот только мне нечего предложить взамен...

04.02.2009, 12:48

To realist:
Разбил на более мелкие архивы и опять отправил.

HerRecordset.ARJ 99 460 byte
HerRecordset.A01 99 400 byte
HerRecordset.A02 99 400 byte
HerRecordset.A03 99 400 byte
HerRecordset.A04 99 400 byte
HerRecordset.A05 99 400 byte
HerRecordset.A06 99 400 byte
HerRecordset.A07 99 400 byte
HerRecordset.A08 99 400 byte
HerRecordset.A09 65 905 byte

Ответь если получил.

P.S. Сорри, что долго не отвечал. С понедельника в отпуск вот и подгонял хвосты, да и конец месяца (отчетность разная).

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	27.01.2009, 17:54
	Put their width = 0 0

realist
	27.01.2009, 23:06
	а у меня вопрос - как эту иерархию задать, что в гриде 'плюсики появились'? Может документация какая есть, как правильно запрос написать?

White_snake
	28.01.2009, 09:15
	To realist: >а у меня вопрос - как эту иерархию задать, что в гриде 'плюсики >появились'? Тебя интересует, как в коде сделать или при помощи конструктора Data Enviroment? >Может документация какая есть, как правильно запрос написать? Я в книжке прочитал. Роджер Дженнингс 'Руководство разработчика баз данных на Visual Basic 6'. Глава 'Построение иерархических команд с помощью конструктора Data Enviroment'

Neld
	28.01.2009, 10:03
	Я делал так: В проекте нет Data Env. Для показа иерарх. флекса добавлял Data Env. делал флекс, сохранял форму, удалял и форму и флекс и открыв сохраненную форму (в notepad) копировал код относящийся к флексу в ту форму куда мне надо, попутно там можно изменить вид флекса (ну это если разобратся как он там описан)

@oldpasp 2 / 2 / 2 Регистрация: 23.06.2007 Сообщений: 399
	28.01.2009, 10:23
	Используйте Provider = MSDataShape 0

realist
	28.01.2009, 10:50
	To White Snake: Нет ли возможности отсканерить эту самую главу? В ответ есть книга Джефри Мак Мануса 'Обработка баз данных на VB6'. Её хвалят. Но к сожалению там информации по иерархии. Если что нужно, то смогу отсканерить.

realist
	28.01.2009, 10:52
	To White Snake: Нет ли возможности отсканерить эту самую главу? В ответ есть книга Джефри Мак Мануса 'Обработка баз данных на VB6'. Её хвалят. Но к сожалению там информации по иерархии. Если что нужно, то смогу отсканерить.

White_snake
	01.02.2009, 09:17
	To realist: >Нет ли возможности отсканерить эту самую главу? Куда слать? >В ответ есть книга Джефри Мак Мануса 'Обработка баз данных на VB6'. >Её хвалят. Но к сожалению там информации по иерархии. Если что >нужно, то смогу отсканерить. Если можно отскань содержание книги.

realist
	01.02.2009, 10:28
	слать на realistmail@mail.ru Содержание отсканерю.

White_snake
	01.02.2009, 15:10
	To realist: Уже отправил. Лови.

realist
	01.02.2009, 18:37
	пока не поймал, может файл большой? у меня ящик всего 3мб

White_snake
	01.02.2009, 18:53
	To realist: Три файла, следующего объема: HerRecordset.ARJ - 361 474 HerRecordset.A01 - 361 400 HerRecordset.A02 - 238 085 Каждый на скрепке отдельного письма

realist
	02.02.2009, 16:47
	Ничего не плолучил. Ты куда отправил?

White_snake
	03.02.2009, 08:43
	To realist: >Ничего не плолучил. Ты куда отправил? Отправил мылом тестовое письмо на realistmail@mail.ru Ответь если получил его.

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	03.02.2009, 17:16
	One of my examples (for Access) Source: DB -> Access Table 'Blanks' with fields 'Gauge','Width','Length' I need show it hierarhically by 'Gauge' and 'Width' So,: dim cnShape as Adodb.Connection Dim rs as Adodb.Recordset Set cnShape = New ADODB.Connection Set rs = New ADODB.Recordset strString = 'Provider=MSDataShape.1ata Provider=Microsoft.Jet.OLEDB.4.0ata Source=' & <your DB Location> & ';Persist Security Info=False' cnShape.ConnectionString = strString cnShape.Open strString = 'SHAPE {select Gauge ,Width, Length from BlankDimensions as Command1 COMPUTE Command1 BY 'Gauge','Width'' rs.Open strString,cnShape,adOpenDynamic, adLockReadOnly, adCmdText Set MsHFlexGrid1.DataSource = rs (you will see Grid with columns: 'Gauge','Width','Gauge','Width','Length' First two - Band 0 (from COMPUTE Command1 part in Select expression) Last 3 - Band 1 (from SHAPE part in Select expression) I don't want to show 'Gauge' and 'Width' columns for the Band 1 So MSHFlexGrid1.ColWidth(0, 1) = 0 MSHFlexGrid1.ColWidth(1, 1) = 0 I didn't try it for the case with 3 Bands, but I don't think, that this is a big difference 0

@VitJ 4 / 4 / 0 Регистрация: 22.10.2007 Сообщений: 234
	04.02.2009, 12:01
	To White_snake: многоуважаемый, а мог бы я тоже получить эту ценнейшую для меня информацию, я тоже этим интересовался и даже делал, но как-то криво и сам не понял как Вобщем, не было по чему разбираться, самому тыкаться приходилось Вот только мне нечего предложить взамен... 0

@VitJ 4 / 4 / 0 Регистрация: 22.10.2007 Сообщений: 234
	04.02.2009, 12:02
	To White_snake: многоуважаемый, а мог бы я тоже получить эту ценнейшую для меня информацию, я тоже этим интересовался и даже делал, но как-то криво и сам не понял как Вобщем, не было по чему разбираться, самому тыкаться приходилось Вот только мне нечего предложить взамен... 0

White_snake
	04.02.2009, 12:48
	To realist: Разбил на более мелкие архивы и опять отправил. HerRecordset.ARJ 99 460 byte HerRecordset.A01 99 400 byte HerRecordset.A02 99 400 byte HerRecordset.A03 99 400 byte HerRecordset.A04 99 400 byte HerRecordset.A05 99 400 byte HerRecordset.A06 99 400 byte HerRecordset.A07 99 400 byte HerRecordset.A08 99 400 byte HerRecordset.A09 65 905 byte Ответь если получил. P.S. Сорри, что долго не отвечал. С понедельника в отпуск вот и подгонял хвосты, да и конец месяца (отчетность разная).