MS_2
This commit is contained in:
parent
2aa4e4ba58
commit
fa334c5a4c
@ -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
Loading…
x
Reference in New Issue
Block a user