Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Переместить combobox в нужный столбец и растянуть по ширине столбца в DataGrid

Ответить
Настройки темы
VBA - Переместить combobox в нужный столбец и растянуть по ширине столбца в DataGrid

Аватара для blackeangel

Старожил


Сообщения: 299
Благодарности: 2

Профиль | Отправить PM | Цитировать


Уже всю голову сломал. Как это сделать? Или может есть литература по свойствам и функциям DataGrid?

Отправлено: 07:45, 14-02-2019

 

Аватара для blackeangel

Старожил


Сообщения: 299
Благодарности: 2

Профиль | Отправить PM | Цитировать


Сам нашёл ответ
Код: Выделить весь код
Option Explicit
Dim rs As ADODB.Recordset
Dim conn As ADODB.Connection
Dim strSQLString As String ''sql query string

Private Sub Form_Load()
Set conn = New ADODB.Connection ''connection object
Set rs = New ADODB.Recordset ''recordset object

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
conn.Open

strSQLString = "select * from tblFields order by Fields"
rs.Open strSQLString, conn, adOpenDynamic, adLockPessimistic

Do Until rs.EOF
    cmbFields.AddItem rs.Fields("Fields").Value
    rs.MoveNext
Loop

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tblNumbers order by Number"
Set dGrid.DataSource = Adodc1
Adodc1.Refresh

dGrid.Columns(1).Button = True

End Sub

Private Sub dGrid_ButtonClick(ByVal ColIndex As Integer)
    cmbFields.Width = dGrid.Columns(1).Width
    cmbFields.Left = dGrid.Columns(1).Left + dGrid.Left
    cmbFields.Top = dGrid.Columns(1).Top + dGrid.Top + dGrid.RowTop(dGrid.Row) - dGrid.RowHeight
    cmbFields.Visible = True
End Sub

Private Sub dGrid_Click()
    cmbFields.Visible = False
End Sub

Private Sub cmbFields_Click()
    dGrid.Columns(1).Text = cmbFields.Text
    cmbFields.Visible = False
End Sub

Отправлено: 22:26, 15-02-2019 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Переместить combobox в нужный столбец и растянуть по ширине столбца в DataGrid

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Редактирование разных pdf файлов по ширине Igor32123 Хочу все знать 2 18-01-2013 15:09
2007 - интервал и выравнивание по ширине Pavelasd Microsoft Office (Word, Excel, Outlook и т.д.) 1 06-01-2013 04:33
Разное - [решено] Правильное выравнивание по ширине. Zveriok Microsoft Office (Word, Excel, Outlook и т.д.) 1 12-02-2011 20:24
Интерфейс - У программы окно не меняет размер по высоте (по ширине изменяется) llVKll Microsoft Windows 7 5 24-12-2010 10:03
Фон растянуть по размеру окна DorianLeroy Вебмастеру 2 22-01-2010 19:24




 
Переход