Recent content by mjcmkrsr

Hi, Make sure that the SPARSE property of the column is set to .F. and that CURRENTCONTROL of that column is your checkbox. Fwiw, please find attached demo code. PUBLIC goForm goForm = NEWOBJECT("frmForm") goForm.Show Read Events Close all Clear All RETURN ********** DEFINE CLASS...

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

Hi Chriss, I tested your code. Unfortunately it has one flaw and one misspelling If you insert this line you'll have 0 as missing value - which does not make sense Should read = Seek(Gaps.iGapStart, ...) Below your code with my suggestions Create Cursor Gaps (iGapStart I, iGapEnd I)...

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

Hi, Please find below a sketch of code. Feel free to adapt 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...

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"...

Hi Gguerra, A little demo how you may handle memo fields in an editbox on a form, an editbox in a grid and as MEMO 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...