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

MS_07.03.2016

Browse Source
This commit is contained in:
SchreiberM
2016-03-08 09:46:15 +01:00
parent 3266da1baa
commit 980e625c1c
17 changed files with 3743 additions and 3553 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/DD-Record-Organiser/frmSQLEditor.vb
View File

@@ -176,6 +176,7 @@ Public Class frmSQLEditor
Return Nothing
End Try
End Function
Private Sub EnableColumns(Optional enabled = True)
cmbSelectColumns.Enabled = enabled
@@ -325,15 +326,13 @@ Public Class frmSQLEditor
Private Sub frmSQLEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Try
Dim connsql = "SELECT BEZEICHNUNG FROM TBDD_CONNECTION WHERE GUID = (SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = " & CURRENT_CONTROL_ID & ")"
Dim con_name = ClassDatabase.Execute_Scalar(connsql, True)
Dim con_name = ClassDatabase.Execute_Scalar(connsql, True)
If IsDBNull(con_name) Then
If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then
cmbConnection.SelectedIndex = 0
End If
If IsDBNull(con_name) Then
If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then
cmbConnection.SelectedIndex = 0
End If
Else
If IsNothing(con_name) Then
If Me.DD_DMSDataSet.TBDD_CONNECTION.Rows.Count > 0 Then