table.COPY_RECORD_TO Function
Syntax
Arguments
- Target_table
The name of the table to receive the copied record.
Description
Copies current record to another table with similar structure as current table.
Discussion
The <TBL>.COPY_RECORD_TO() method copies the current record in the source table referenced by <TBL> to the target table specified by Table_Name. Data is copied from each field in the source table to the corresponding field with the same name in the target table. If method returns .T. (TRUE) in the Result_Flag if the record was successfully copied. If the record was not copied then the method generates an error. For example, if the record you are trying to copy violates a field rule in Table_Name, it will not be copied. Use the ERROR_CODE_GET() and ERROR_TEXT_GET() functions to get the error message associated with the error. Table_Name can have more fields than the source table. However, at a minimum, it must have all of the fields in the source table, and they must be of the same type and size.
Example
This script copies record 3 to the "OLD_CUSTOMERS" table.
dim tbl as P
tbl_source = table.current()
tbl_source.fetch_goto(3)
on error goto failed_to_copy
result = tbl_source.copy_record_to("OLD_CUSTOMERS")
on error goto 0
if result then
ui_msg_box("Result","Record was copied")
end if
end
failed_to_copy:
ui_msg_box("Record not copied.", error_text_get(error_code_get()))
endSee Also