|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Переместить combobox в нужный столбец и растянуть по ширине столбца в DataGrid |
|
VBA - Переместить combobox в нужный столбец и растянуть по ширине столбца в DataGrid
|
Старожил Сообщения: 329 |
Профиль | Отправить PM | Цитировать Уже всю голову сломал. Как это сделать? Или может есть литература по свойствам и функциям DataGrid?
|
|
Отправлено: 07:45, 14-02-2019 |
Старожил Сообщения: 329
|
Профиль | Отправить 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 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Редактирование разных 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 |
|