MS Administration ProfileGrid, Config Charts, LU Grid Add MEthod disappeared
This commit is contained in:
18
app/DD_PM_WINDREAM/frmGhostMode.vb
Normal file
18
app/DD_PM_WINDREAM/frmGhostMode.vb
Normal file
@@ -0,0 +1,18 @@
|
||||
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
|
||||
Reference in New Issue
Block a user