This commit is contained in:
SchreiberM 2015-11-10 10:09:36 +01:00
parent 2aa4e4ba58
commit fa334c5a4c
2 changed files with 876 additions and 382 deletions

View File

@ -967,7 +967,7 @@ Public Class frmForm_Constructor
Private Function Return_SearchPattern(ByVal content As String)
Select Case content.ToUpper
Case "@Record-ID".ToUpper
Return SelectedRecordID
Return CURRENT_RECORD_ID
Case "@EntityID".ToUpper
Return CURRENT_FORM_ID
Case "@ParentID".ToUpper
@ -1965,8 +1965,7 @@ Public Class frmForm_Constructor
tsbtnRecordAdd.Visible = False
tsbtnRecorddelete.Visible = False
tsbtnRecordSave.Visible = False
Dim id = CURRENT_RECORD_ID
MsgBox(CURRENT_RECORD_ID)
' MsgBox(CURRENT_RECORD_ID)
Case Else
tsbtnRecordAdd.Visible = True

File diff suppressed because it is too large Load Diff