Yes its the max rate but it has to be the Max rate at the effective date as per column D_eff in table D_alloc.
In the case of Room 3 the rate was 110 at the date {15/01/2000} the room was allocated.
D_rates.D_from {01/01/1999} is the max date a rate was a available prior to the {15/01/2000)...
FoxPro Version 8
I have a table with rooms and a date they were occupied.
D_ALLOC:
C_ID C_Room D_Eff C_RateID
0001 Room1 {30/01/2000} 0001
0002 Room2 {10/01/2001} 0002
0003 Room3 {15/01/2000} 0002
I also have a table that contains rates
D_RATES
C_RateID D_From N_Amount
0001...
After much angst..
my problem was a routine I had for finding the name of a sheet based on its index number.
My Failing code:
WITH this.objExcel
For Each ws In .Worksheets
lnCnt = lnCnt +1
IF lnCnt = lnSheet then
lcSheetname = ws.name
ENDIF
NEXT
Release ws
ENDWITH...
The Quit is part of my close and does work if I call it proir to doing any work with Excel.
What would keep the Excel Process running.
References still held would these keep it open?
I have a cutsom Class which handles my excel functions
I have an import class which handles my imports
When I want to Quit the excel process during Automation I call this.objExcel.Application.quit
However the process is still running (task list)
I thought the problem might be in the release of...
Chris your method is the one that I was using, i was looking for a method where i didnt have to go through all the controls on the form.
Mike the lnCnt number was just an example of setting the control to a value. I'm actually attempting to loop through a number of address fields and back...
I want to acces a number of text controls on a form in a for next loop
Each control is delimited by a number eg txtAdd1, txtAdd2 etc
I was hoping a loop similar to
for lnCnt = 1 to 3
lcControlName = "txtAdd"+transform(lnCnt)
thisform.controls(lcControlName).value = lnCnt
next...
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.