This commit is contained in:
JenneJ
2016-06-01 13:09:04 +02:00
parent e74b44e1e9
commit 00c8deb340
3 changed files with 45 additions and 10 deletions

View File

@@ -2611,7 +2611,7 @@ Public Class frmConstructor_Main
grvwGrid.Columns.Item("Record-ID").Visible = False
grvwGrid.Columns.Item("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False
End If
@@ -2900,11 +2900,20 @@ Public Class frmConstructor_Main
End Sub
Function Get_GridResult(Columnname As String)
Dim result = Get_Focused_Row_Cell_Value(Columnname)
If IsDBNull(result) OrElse result = "" Then
Return "No Column configured"
Else
Return result
Dim str = String.Empty
If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count >= 3 Then
str &= ACT_EBENE_STRING
str &= " - "
End If
If IsDBNull(result) OrElse result = "" Then
str &= "No Column configured"
Else
str &= result
End If
Return str
End Function
Function GetSelected_RecordID()