ня форми перетягнув на неї за допомогою миші стовпці таблиць з вкладки «Джерела даних»
10. Створення складних стрічкових форм для роботи з даними
Складні стрічкові форми відрізняються від простих стрічкових форм тільки наявністю кнопок і функціоналом.
Код кнопок наведено нижче
Class SaversSub Ім'я табліциBindingNavigatorSaveItem_Click (sender As Object, e As EventArgs) Handles Ім'я таблицыBindingNavigatorSaveItem.Click.Validate (). Ім'я табліциBindingSource.EndEdit (). TableAdapterManager.UpdateAll (Me.BankDataSet) SubSub Savers_Load (sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: дана рядок коду дозволяє завантажити дані в таблицю «BankDataSet.Вкладчікі». При необхідності вона може бути переміщена або видалена .. Ім'я табліциTableAdapter.Fill (Me.BankDataSet.Вкладчікі)
End SubSub Button1_Click (sender As Object, e As EventArgs) Handles Button1.Click
Ім'я табліциBindingSource.AddNew ()
11. Створення табличних форм
Додав в проект нову форму і на неї помістив наступні об'єкти:
? два написи (Label),
? п'ять кнопок (Button),
? що випадає (ComboBox),
? текстове поле введення (TextBox),
? групуються рамку (GroupBox),
? список (ListBox),
? два перемикача (RadioButton).
розташовані об'єкти на формі:
Після обробки форма набула такого вигляду:
Код має такий вигляд:
Class Currency_TableSub ВалютаBindingNavigatorSaveItem_Click (sender As Object, e As EventArgs).Validate().ВалютаBindingSource.EndEdit().TableAdapterManager.UpdateAll(Me.BankDataSet)SubSub Value_Table_Load (sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: дана рядок коду дозволяє завантажити дані в таблицю «BankDataSet.Валюта». При необхідності вона може бути переміщена або видалена .. ВалютаTableAdapter.Fill (Me.BankDataSet.Валюта)
End SubSub ListBox1_SelectedIndexChanged (sender As Object, e As EventArgs) _Sorting.Enabled=TrueSubSub Button_Sorting_Click (sender As Object, e As EventArgs) Handles Button_Sorting.ClickCol As System.Windows.Forms.DataGridViewColumnCase ListBox1.SelectedIndex0 =DataGridViewTextBoxColumn11=DataGridViewTextBoxColumn22=DataGridViewTextBoxColumn3SelectRadioButton1.Checked Then
ВалютаDataGridView.Sort (Col, System.ComponentModel.ListSortDirection.Ascending)
ВалютаDataGridView.Sort (Col, System.ComponentModel.ListSortDirection.Descending) IfSubSub Button3_Click (sender As Object, e As EventArgs) Handles Button3.Click
ВалютаBindingSource.Filter=«Найменування =« » & ComboBox1.Text & «» »SubSub Button2_Click (sender As Object, e As EventArgs) Handles Button2.Click
ВалютаBindingSource.Filter=«» SubSub Button4_Click (sender As Object, e As EventArgs) Handles Button4.Click.Close () SubSub Button5_Click (sender As Object, e As EventArgs) Handles Button5.Clicki =0 To ВалютаDataGridView...
