Private Sub frmInvRelocate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objBllSite As New BLLCity
Dim dsCity As DataSet = objBllSite.GetAllSites()
Dim colCity As New DataGridViewComboBoxColumn
'fill grid from dataset to set dg structure
dgInvRelocate.DataSource = objBllInv.GetInvRelocate(strWhere).Tables(0)
dgInvRelocate.AutoResizeColumns()
'fill combobox list from city datasource
colName_UIC.DisplayMember = "CITY"
colName_UIC.ValueMember = "CITY_ID"
colName_UIC.DataSource = dsSiteCol.Tables(0).DefaultView
dgInvRelocate.Columns.Add(colCity)
End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
dgInvRelocate.DataSource = objBllInv.GetInvRelocate(strWhere).Tables(0)
'refresh grid and reset comboboxes
For x = 0 To dgInvRelocate.Rows.Count - 1
dgInvRelocate.Rows(x).Cells("NAME_UIC").Value = -1
Next
End Sub