Search results for query: *

I understand, but I nowhere found this kind "mistrust" - neither in the "Hacker's Guide" nor in Tamar's many papers on SQL. May be she could chime in for further input. TIA MarK

Hi Chriss, Could you please explain. TIA MarK

Hi Chriss, Thanks. Works now. Best with SET DELETED ON - otherwise you see the records marked for deletion ;) MarK

...does not make sense Should read = Seek(Gaps.iGapStart, ...) Below your code with my suggestions Create Cursor Gaps (iGapStart I, iGapEnd I) *!* Insert Into Gaps Values (0,0) && optional for catching the gap of Invoices from 1 to Min(Invoice)-1, when Min(Invoice)>1 CREATE TABLE...

Hi, Yes, now it works - even in VFP9 ;) MarK

Hi mmerlinn, I tested your code. Unfortunately I found one little flaw: the results show that there are dupes, but do NOT show how many times the same value is present in the table hth MarK

Hi, Just for fun : sketch of code to show the correct values, the missing values and duplicate values in a given range. *!* good values, missing values and duplicates PUBLIC goFormSales goFormSales=NEWOBJECT("clsForm") goFormSales.Show Read Events Close all Clear All RETURN...

Hi Yes - ALL values in the chosen range. In your case laAllValues[1] = 15 and laAllValues[2] = 1 hth MarK

...to your needs. LOCAL ARRAY laAllValues[1] CREATE CURSOR csrValues (iValue I) FOR i = 1 TO 25 INSERT INTO csrValues VALUES (INT(RAND() * 50)) ENDFOR SELECT MAX(iValue), MIN(iValue) FROM csrValues INTO ARRAY laAllValues CREATE cursor csrAllValues (iValue I) FOR i = 0 TO...

Please do also have a look at https://www.tek-tips.com/threads/null-or-null.1828940/ hth MarK

Hi, Please have a look at https://www.tek-tips.com/threads/need-expert-level-promatrix-help.1824078/ hth MarK

Hi, ... and my 2c &&& ldDate any local date variable &&& the functions: d to show that it is a DATE - First Day of Month - Last Day of Month dFDofMonth = ldDate - DAY(ldDate) + 1 dLDofMonth = GoMonth(ldDate,1) - Day(GoMonth(ldDate,1)) MarK

Hi, ... and my contribution PUBLIC goFormSales goFormSales=NEWOBJECT("clsForm") goFormSales.Show Read Events Close all Clear All RETURN ************************************************** DEFINE CLASS clsForm AS form AutoCenter = .T. Caption = "Grid with calculated columns"...

...field in a grid. PUBLIC go_Form go_Form = CREATEOBJECT("clsForm") go_Form.Visible = .T. go_Form.Show READ Events CLOSE ALL CLEAR ALL RETURN ********* DEFINE CLASS clsForm As Form Width = 960 MinWidth = 960 MaxWidth = 960 Height = 450 MinHeight = 450 AutoCenter...

...is straightforward - see adapted code below. Public goForm goForm = Createobject('clsForm') goForm.Show() READ EVENTS CLOSE ALL CLEAR ALL ********** DEFINE Class clsForm As Form Height = 360 Width = 840 MinWidth = This.Width MaxWidth = This.Width ADD Object grdGrid As...

...(pictures in a grid) to illustrate Chriss's advice Public oForm oForm = Createobject('myForm') oForm.Show() READ EVENTS CLOSE ALL CLEAR ALL ********** DEFINE Class myForm As Form Height = 360 Width = 840 MinWidth = This.Width MaxWidth = This.Width Add Object myGrid As Grid...

Hi Doug, You'll need this unique record identifier at the latest asa your table is part of an updatable view Your're right - the RECNO() order won't change but the RECNO() WILL change, and you won't be able to find the formerly associated record hth MarK

...SELECT curNames.cPKey as cFKNames, curSubjects.cPKey as cFKSubjects FROM curNames, curSubjects ; INTO CURSOR curNamesBysubjects READWRITE *!* BROWSE &&& Create cursor with the subjects NOT taken DELETE curNamesBySubjects FROM curNamesBySubjects ; JOIN curXCross ON...

Hi Mandy, Maybe REPLACE won't work either if you cannot determine the reason why UPDATE sometimes works and sometimes not hth MarK

Hi Mandy, If you occasionally have to update the transaction table you could use a filtered browse e.g. use transaction table browse for transactionid = "0001" and do the required updates or replace in transaction all amounts with 890 for amount = 340 and transactioncode = "0001" or...