Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: DropDownList || CheckBoxList || GridView Добавлено: 17.05.10 17:32  

Автор вопроса:  Alba
Здравствуйте. С настройкой этих контролов (DropDownList || CheckBoxList || GridView ) я вроде разобралась, но никак не могу реализовать то что нужно.

К примеру, пусть есть одна большая таблица в Access. В строках записана информация по филиалам. Как сделать так чтобы в DropDownList выбрать тот филиал по которому необходимо отобразить данные,а в CheckBoxList отметить столбцы которые необходимо отобразить.

Данные отображаются в GridView.

Ответить

  Ответы Всего ответов: 8  

Номер ответа: 1
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #1 		Добавлено: 17.05.10 19:48
выбирай с помощью дроп даун лист таблицу в аксе в которой данные о филиале. с грид вью не работал. могу подсказать только с датагрид. чикбокслист, должныыть методы, которые контролируют колонки, но я забыл, дело это уже отошло, но можно по индексу колонки её убирать при чекбок.value = false.

Ответить

Номер ответа: 2
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #2 Добавлено: 17.05.10 20:17
Спасибо.

Данные о филиале я выбрала, но мне надо чтобы был именно отбор данных в Дропдаунлисте. Выбрала "Филиал1" - в таблице появились данные только по этомоу филиалу, а по остальным данне не должны отображаться.

Ответить

Номер ответа: 3
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #3 		Добавлено: 17.05.10 20:31
так и должно быть, в том что я написал. делается так
  1. "select * from Имя таблицы с Филлилом"
- это должно быть в процедуре комбобокс.Change помоему воть пример под дата грид (не вью)
  1.  
  2. Option Explicit
  3. Private MDB As New Connection
  4. Private TBL As New Recordset
  5.  
  6. Private Sub Form_Load()
  7.  
  8. DataGrid1.AllowUpdate = True
  9.     
  10.     With MDB
  11.  
  12.         .CursorLocation = adUseClient
  13.  
  14.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Access/EXEClientPart1.mdb"
  15.  
  16.         .Open
  17.  
  18.     End With
  19.  
  20.     Set DataGrid1.DataSource = TBL
  21.  
  22.     TBL.Open "select * from Test1Part1", MDB, adOpenStatic, adLockOptimistic
  23.  
  24.     DataGrid1.ReBind
  25.  
  26. End Sub

Ответить

Номер ответа: 4
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #4 		Добавлено: 17.05.10 20:38
вот про комбобокс
  1. Private Sub cmdGO_Click()
  2.  Select Case Combo1
  3.     Case "1.филиал №х"
  4.        Set DataGrid1.DataSource = TBL
  5.  
  6.   
  7.     TBL.Open "select * from таблица филлиала", MDB, adOpenStatic, adLockOptimistic
  8.     Case "2.филиал №х"
  9.         Set DataGrid1.DataSource = TBL
  10.  
  11.   
  12.     TBL.Open "select * from Test1Part1", MDB, adOpenStatic, adLockOptimistic
  13.     Case "3.филиал №х"
  14.         Set DataGrid1.DataSource = TBL
  15.  
  16.   
  17.     TBL.Open "select * from Test1Part1", MDB, adOpenStatic, adLockOptimistic
  18.     Case "4.филиал №х"
  19.         Set DataGrid1.DataSource = TBL
  20.  
  21.   
  22.     TBL.Open "select * from Test1Part1", MDB, adOpenStatic, adLockOptimistic
  23.     Case Else
  24.     MsgBox "Ôîðìà íà ðåêîíñòðóêöèè", vbCritical, "Informer system 2.0"
  25.     
  26.   End Select
  27.   
  28.  End Sub

таких селектов (case "...";) может быть скоко хошь помоему. запись в листе комбо должна соответствовать тому, что в "" после ключа Case. Case Elae - если совпадения с содержимым "" ненайдено.

Ответить

Номер ответа: 5
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #5 		Добавлено: 17.05.10 21:12
Там в уголке сообщения минусик жми и все. И вообще, код просто ложи в [sоurcе][/sоurce]. Как то так:
  1. Private Sub DropDownList1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.TextChanged
  2.          
  3.         Dim oDataSet As New DataSet 'Объявляем базу данных
  4.         Dim cnn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 Data Source=C:\FDB.mdb;Persist Security Info=False")
  5.         cnn.Open()
  6.         Dim DBCommand As OleDbDataAdapter = New OleDbDataAdapter("select * from Filials", cnn)
  7.  
  8.        Dim oCmdBuilder As New OleDbCommandBuilder(DBCommand)
  9.  
  10.         DBCommand.Fill(oDataSet, "Filials" )
  11.         'DataSource = oDataSet.Tables("Filials").DefaultView
  12.         DropDownList1.DataSource = oDataSet
  13.         ' DropDownList1.DataBind()
  14.         ' Dim oDataSet As New DataSet("Filials")
  15.         Dim oDA As New OleDbDataAdapter("SELECT * FROM [Filials]", cnn)
  16.         Dim oRow As DataRow
  17.         oDA.Fill(oDataSet, "Filials"
  18.         For Each oRow In oDataSet.Tables("Filials").Rows
  19.             ' ListBox2.Items.Add(oRow("f_name"))
  20.         Next
  21.         GridView2.DataBind()
  22.     End Sub


Смекаешь?

Ответить

Номер ответа: 6
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #6 Добавлено: 17.05.10 21:15
Ага, смекнула..спасиб. А что с кодом? Вроде все делаю как надо, может просто не там?

Ответить

Номер ответа: 7
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #7 Добавлено: 17.05.10 23:49
:) эх, былабы времени минутка.
Лилиментарные вещи!

Ответить

Номер ответа: 8
Автор ответа:
 Alba



Вопросов: 8
Ответов: 37
  Профиль | | #8 Добавлено: 18.05.10 09:56
Была бы очень признательна, если вы, найдя минутку смогли бы мне чем то помочь...)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам