Advertisement
Guest User

Untitled

a guest
Jul 12th, 2018
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.79 KB | None | 0 0
  1.  Sub PopulateDefaultEntityBuildings()
  2.         Dim dtDefaultEntityAddresses As New BillingDataSet.EntityBuildingInfoDataTable
  3.  
  4.         Try
  5.             dtDefaultEntityAddresses = taEntityInfo.GetByEntityID(DefaultEntityID)
  6.             dgDefaultEntityBuildings.DataSource = dtDefaultEntityAddresses
  7.  
  8.             HideDataGridColumns(New List(Of String)({"EntityName", "BuildingID", "EntityID", "ClientID"}), dgDefaultEntityBuildings)
  9.         Catch ex As Exception
  10.             Throw ex
  11.         End Try
  12.     End Sub
  13.     Sub HideDataGridColumns(Columns As List(Of String), dg As DataGridView)
  14.         Try
  15.             For Each column In Columns
  16.                 dg.Columns(column).Visible = False
  17.             Next
  18.         Catch ex As Exception
  19.             Throw ex
  20.         End Try
  21.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement