Browse Record # Question

[milesjg]

Is there any way to get the values from a browse record that do not reflect the underlying table. (i.e. browse.current_record gives the same # as the table record #) If, say, I have the following code;

current_record = tbl.recno()
If current_record <> 1 Then
record_data = tbl.record_data_get(current_record-1)
target = table.open("qtduplicate")
target.enter_begin()
target.record_data_set(record_data)
sw2_value = target.sw2
target.delete()
target.enter_end(.t.)
target.close()

If size->sw1 < sw2_value Then
"do something"
End If
End If

This compare the value in a field in the preceeding record to a value in the same field in the current record. All works fine until a record is deleted. There will be, say 4 records in the table, but the current_record will read 5.
Must the table be packed everytime a record is deleted. ?

Also, why is it that if I empty a table- pack it, under table properties it show a number for records.

Regards p.s. what happened to the coffee mug thing. ?

[Tom Cone Jr]

Re: Browse Record # Question

James, I admit to not understanding your script. However the <tbl>.delete() method will automatically fetch the next record.

If you want to check a field value in a previous record there's no need to copy the entire record to a different table in order to read it there. Why not fetch the previous record and check the field value ?

[milesjg]

Re: Browse Record # Question

Tom;

Looks like your the only one with the patience to put up with my blithering anymore.
Here is what I'm trying to do.
Have a browse.
When the user moves down to a new row a value from one of the fields in the row above is entered into one of the new rows fields.
Conditions are.
Cannot be the first row that is being departed from. (First row in the browse)
The row landing on must be new (blank)
The value being entered must be from the next row up in sequence. i.e. if the new row is # 5 then the value entering must be from row # 4.

My first post with all the excess bagage was to avoid the deleted record problem.
What I have come up with now is as follows; (OnRowChange)

tbl = table.get("size")
tblc = tbl.get_cursor()
current_record = tbl.recno()

If current_record <> 1 .AND. IsBlank("size->sw1") Then
current_record = tbl.recno()
If tblc.mode_get() <> 0 Then
tblc.enter_end()
End If

tblc.fetch_goto(current_record-1)
tbl.enter_begin()
size->sw1 = tblc.sw2
tbl.enter_end()

End If

sw1 being the field for the value in the current row and sw2 the value from the row above.
All works until I delete a record. If I delete, say the last record, then enter a new record all the records are one number off. i.e. current_record = 5 when there are 4 records in the table. Likewise if I delete 5 records and have only 5 in the table the current record will be 10. When I pack the table after each delete the record numbers are as wanted. (Which led me to ask why when viewing table properties is there a larger number of records than are in the table.)
Anyway, I still have'nt come up with a working solution. When I try and pack the table from a button which does the deleteing, nothing happens. No messages or anything.
Thanks for the ear anyway.

[Tom Cone Jr]

Re: Browse Record # Question

James, I'm not clear on what your goal is. At times it seems you are talking about trying to copy a field value from a previous record. At other times it seems you are talking about trying to simply number the rows consecutively. Please clarify. What is your ultimate objective?

All works until I delete a record. If I delete, say the last record, then enter a new record all the records are one number off. i.e. current_record = 5 when there are 4 records in the table. Likewise if I delete 5 records and have only 5 in the table the current record will be 10.

The value assigned to your variable named "current_record" comes from the <tbl>.recno() method. This returns the record number of the current record. Record numbers don't change when you delete a record. If you're expecting the succeeding records to have a record number that's one less after a preceding record is deleted you're mistaken. Record numbers don't change when you delete a record.

Deleting a record simply removes it from display. The "deleted" record has been "marked for deletion" but not yet physically removed from the table. It still occupies space in the table, you just can't see it. The deleted record still has a record number.

When you pack the table the records marked for deletion are physically removed. A byproduct of this is that the table is physically smaller and the succeeding (following) records have different record numbers

Suggest you review the help file discussion of <TBL>.RECORDS_DELETED()

[Mike Wilson]

Re: Browse Record # Question

James,
I believe I understand what you are trying to do. Let's start with the following to see if you can use this. The following is code for a form calculated field value (calRecOrd) that when placed as a column within an embedded browse generates 'row numbers'. Start with this and see if this is a in a direction you can work with.

calRecOrd = iif(table.current().eof(),run_count([COLOR="red"]TableName->FieldName[/COLOR])+1,run_count([COLOR="red"]TableName->FieldName[/COLOR]))

If not, and you have a need for a non-calculated field (table field), to hold the displayed record sequence, then it will require some xbasic scripting, which I have operating in an application that ledger's financial transactions.


Look at the first and go from there.