Very Computer

        I need some help to figure out a way to compare two records in a
table with PDOX4.5 for Windows to see if the records match.  What I want to
do find out is if there's a way to compare field values EXCEPT for ONE
specific field.  I don't like the idea of comparing ALL fields one by one (
it makes one heckuvan "if" statement with the table I'm working with --
about 25 different fields).

Thanks to anyone that can help.

Quote:>    I need some help to figure out a way to compare two records in a
> table with PDOX4.5 for Windows to see if the records match.  What I want to
> do find out is if there's a way to compare field values EXCEPT for ONE
> specific field.  I don't like the idea of comparing ALL fields one by one (
> it makes one heckuvan "if" statement with the table I'm working with --

Quote:

>Hey all,

>        I need some help to figure out a way to compare two records in a
>table with PDOX4.5 for Windows to see if the records match.  What I want to
>do find out is if there's a way to compare field values EXCEPT for ONE
>specific field.  I don't like the idea of comparing ALL fields one by one (
>it makes one heckuvan "if" statement with the table I'm working with --
>about 25 different fields).

>Thanks to anyone that can help.

var
        ar1     DynArray                AnyType
        ar2     DynArray                AnyType
        Field   String
endvar

TC.attach(....)

TC.<find first record>
TC.copyToArray(ar1)

TC.<find second record>
TC.copyToArray(ar2)

forEach Field in ar1
        if not ar1[Field]=ar2[Field] then
                <error>
                quitloop
        endif
endForEach

This method above will only work with records that have been posted already.  If you need
to compare an unposted record to a posted one, things are slightly more complicated
because you need to access the record buffer.  You have two options that I can think of.  
The first is use the UIObject version of the copyToArray() method for the unposted
record, which should access the record buffer automatically.  The second option is not so
clean:  use dmGet() on the unposted record, which will be fairly tedious because you'll
have to do it on each field individually.  Good luck.

Todd
--
====================================================================

"His mind is somewhat too much taken up with his mind." - John Earle
My employer couldn't possibly have such great ideas; therefore, the
ones expressed above must be my own.  :-D
====================================================================

 The easy way to reference fields if you don't know their names or
just have too many is to do it by the ordinal # of the field:

tc.(xx) ....

Where XX is some integer value the represents the field you want to address
in the TC.

So if you knew there were 5 fields in the table:

var
siloop smallint
endvar

for siloop from 1 to 5
if tc1.(siloop)<>tc2.(siloop) then
msgstop("Hey!","Got a mismatch here "+tc1.(siloop)+"\n"+tc2.(siloop))
endif
endfor

---

sorry, meant to put that inside of a scan loop.

Now in your situation, if the field you didn't care about was #4, then
inside the for loop do:

if siloop=4 then loop endif

to have it skip that #.

To make it easy on yourself, you could write a query that returned all of the
fields except the ones you wanted, then go into the scan loop and IF
comparisons.

If you didn't want to rely on your knowledge of the table's # of fields,
then you could use ENUMFIELDxxxx xxx=names of structure, etc.

That'll get you partway there I think.

--
Beavis kicks ASS! He KICKS 'em! Kicks, KICKS!  He rules, he RULES, RULES!!

Just use a variable to store things.  You can refer to fields by, uh,
moving fields, I think.  (use keyboard macros, if I remember correctly,
like RIGHT, since PDOXDOS put tableview for traversals)

--
+==========================================================================+

| Pretty good Paradox for Windows Programmer                               |
| Self-proclaimed Treknologist                                             |
| Editor XCOM: Unofficial Strategy Guide http://userwww.sfsu.edu/~kschang  |
+==========================================================================+