AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS: Jobs release Rejected entry MSSQL

Browse Source
This commit is contained in:
SchreiberM
2021-11-26 10:17:29 +01:00
parent 2bd54ccad0
commit 089886b26a
9 changed files with 265 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@@ -45,8 +45,8 @@ Public Class frmAdmin_Start
labelTitle.Text = oNode.GridTitle
btnAddRecord.Caption = oNode.NewRecordTitle
Else
MsgBox($"Page [{Page}] not found! Exiting." & vbNewLine &
"Check the [ENTITY_TITLE] Column in Table [TBZF_ADMIN_SOURCE_SQL]. It must match with the Tag of the corresponding Tree List nodes!", MsgBoxStyle.Critical, Text)
MsgBox($"Tag [{Page}] not found! Exiting." & vbNewLine &
$"Check the [ENTITY_TITLE] Column in Table [TBZF_ADMIN_SOURCE_SQL]. It must match with the Tag [{Page}] of the corresponding Tree List nodes!", MsgBoxStyle.Critical, Text)
Return False
End If
@@ -70,7 +70,7 @@ Public Class frmAdmin_Start
Private Function Load_SQLData() As Boolean
Try
Dim oTable As DataTable = My.DatabaseECM.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL")
Dim oTable As DataTable = My.DatabaseECM.GetDatatable("SELECT * FROM TBZF_ADMIN_SOURCE_SQL WHERE SCOPE = 'OVERVIEW'")
DetailForm.DetailDataList.Clear()
For Each oRow As DataRow In oTable.Rows