fix imageselector, fix sql designer
This commit is contained in:
parent
fefb26b556
commit
8b9b409769
Binary file not shown.
@ -21,7 +21,7 @@ Public Class ClassImageSelector
|
|||||||
value = "No selection"
|
value = "No selection"
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Return value
|
Return New ImageValue(value)
|
||||||
End Function
|
End Function
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|||||||
@ -47,9 +47,6 @@ Public Class frmSQL_DESIGNER
|
|||||||
If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then
|
If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then
|
||||||
cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
|
cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
|
||||||
cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
|
cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
|
||||||
SQL_COMMANDTextBox.Text = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("SQL_COMMAND")
|
|
||||||
Else
|
|
||||||
SQL_COMMANDTextBox.Text = String.Empty
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
|
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user