19 lines
672 B
VB.net
19 lines
672 B
VB.net
Imports DevExpress.XtraTreeList
|
|
|
|
Public Class frmInbox
|
|
|
|
|
|
Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
|
|
Dim oControlPatcher As New ClassControlPatcher(Of TreeList)(Me)
|
|
oControlPatcher.ProcessContainer(AddressOf TreeListDefaults.DefaultTreeListSettings)
|
|
|
|
|
|
Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"
|
|
My.Channel.CreateDatabaseRequest("Doc Metadata", True)
|
|
Dim oTable = My.Channel.ReturnDatatable(oSQL)
|
|
My.Channel.CloseDatabaseRequest()
|
|
|
|
GridControl1.DataSource = oTable.Table
|
|
End Sub
|
|
End Class |