Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
SET RELATION TO in a FORM
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00799566
Message ID:
00799921
Views:
36
>By the way, how does everyone put their code into a white background on this forum?
Use < pre > and < /pre > (without the spaces) around your code.
LPARAMETERS nColIndex
Local lcMessage, lnResponse

WITH ThisForm
  IF .IsChanged()
    lcMessage = "Do you want to save your changes before proceeding?"
    lnResponse = MESSAGEBOX(lcMessage, 4 + 32, "Save changes?")
    IF lnResponse = 6	&& Yes (7=No)
      .cmdSave.Click()	&& Clicks the SAVE command button.
    ELSE
      .Revert()
      .cmdSave.Enabled = .F.
    ENDIF
  ENDIF
  .IsDeleted()
  *** TWO NEW LINES OF CODE FIXED THE PROBLEM.
  *** The PARENT tbale is already selected, so select
  *** the CHILD table then go back to the PARENT. This
  *** causes the data to display properly, rather than
  *** appearing to have the child record stuck where it
  *** orginated from.
  SELECT POBYRFIL
  SELECT (.cTable)
  ***
  .CountRecs()
ENDWITH
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform