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,
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 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,
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...
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...
...
Thanks Chriss. I don't have anything to add to your explanations and couldn't have done it better.
No, this was demo code for pictures in a grid - nothing more and nothing less. Adding pictures to a form or report is straightforward - see adapted code below.
Public goForm
goForm =...
... and some demo code (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...
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
... and to illustrate Chriss's explanations - post above paragraph 2 - please see demo code below.
SET DELETED ON
CLOSE ALL
&&& Create cursor with names
CREATE CURSOR curNames (cPKey C(4), cName C(10))
INSERT INTO curNames VALUES ( "1000","Joe")
INSERT INTO curNames VALUES ( "1001","Sam")...
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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.