This commit is contained in:
SchreiberM
2016-06-01 13:10:18 +02:00
3 changed files with 45 additions and 10 deletions

View File

@@ -2614,7 +2614,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
@@ -2904,11 +2904,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()