18 lines
604 B
VB.net
18 lines
604 B
VB.net
Public Class frmGhostMode
|
|
Private Sub frmGhostMode_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Dim oSQL = "SELECT CONFIG_VALUE FROM TBIDB_BASE WHERE CONFIG_NAME = 'GHOST_SELECT'"
|
|
oSQL = ClassDatabase.Execute_Scalar_ConStr(oSQL, CONNECTION_STRING_IDB)
|
|
Dim DT_USER = ClassDatabase.Return_Datatable(oSQL)
|
|
|
|
Try
|
|
If Not IsNothing(DT_USER) Then
|
|
GridControl1.DataSource = DT_USER
|
|
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Error Load_Users:" & vbNewLine & ex.Message)
|
|
End Try
|
|
End Sub
|
|
End Class |