I am having a problem getting my form to go through this data file and reset the values of my controls it worked fine till i added the following code to my form so it would work with my controls any ideas as to what i am doing wwrong
sele b
use c:\fxpro2\results.dbf shared
set index to rid
*close database
sele c
use c:\fxpro2\ptntmast.dbf shared
set index to pid
do while not EOF()
sele b
aa = form1.a1social.value
dd = form1.a4drawdate.value
set filter to rpt_id = '&aa' and r_drawdate = '&dd'
*the following line of code needs to be
*commented before compilation for speed reasons
*it causes the pgm to display the information wich slows every
*thing down
? rpt_id, r_drawdate, rtest_num
do case
*1005 is for Prebun day 1
case rtest_num = "1005"
replace form1.prebun.value with r_result
*form1.refresh
*1056 is for Postbun day 1
case rtest_num = "1056"
message1()
*1085 is for TVUR reminder to myself "double check field names in Patienti"
case rtest_num = "1085"
message1()
*1086 is for CTUR usually 1440 reminder to myself same as above
case rtest_num = "1086"
message1()
*1088 is for uun or unu in patienti
case rtest_num = "1088"
message1()
*1089 is for the patients height in CM
case rtest_num = "1089"
message1()
*1090 is for the patients height in KG dont forget to convert to LB as well
case rtest_num = "1090"
message1()
*1091 is for the BSA may not be neccasary on the in convert
case rtest_num = "1091"
message1()
*1123 is for the weight in kg for preday 1
case rtest_num = "1123"
message1()
*1124 is for the weight in kg for postday 1
case rtest_num = "1124"
message1()
*1125 is for the weight in kg for preday 2
case rtest_num = "1125"
message1()
*1126 is for the LOD should be in minutes
case rtest_num = "1126"
message1()
*1127 is for the QB also 3BUN
case rtest_num = "1127"
message1()
*1128 is for the koa
case rtest_num = "1128"
message1()
*1129 is for the Dialysate flow rate QD
case rtest_num = "1129"
message1()
*1131 is for the RUC
case rtest_num = "1131"
message1()
*1132 is for the ktv dialysis only dont know where i will use this
case rtest_num = "1132"
message1()
*1133 is for the ktv(goal-hd) dont know what to do with this value yet
case rtest_num = "1133"
message1()
*1134 is for the urea volume this is going to be used
*with data validation between my files and abes files
*due to the fact that my pgm calculates it
case rtest_num = "1134"
message1()
*1135 is for npcr which one i dont know so beets me on where
*i will use this value at
case rtest_num = "1135"
message1()
*1136 is for the IDT
case rtest_num = "1136"
message1()
*1143 is for the recomended rx time i dont think ill use this
*till i pass stuff back to the abe files
case rtest_num = "1143"
message1()
*1333 is for ktv+u which one i dont know
case rtest_num = "1333"
message1()
*1349 is for the urr ill use this on the way back to abe
case rtest_num = "1349"
message1()
*1471 is for the ktv doqi i think this will be stuck under
*daugirdas
case rtest_num = "1471"
message1()
*1472 is for the npcr doqi i think this will be stuck under
*daugirdas
case rtest_num = "1472"
message1()
*1474 is kurtv i will use this on the way back to abes files
case rtest_num = "1474"
message1()
*1476 is for ktdoq i think this is the k on dogi
*ill use this on 3BUN only
case rtest_num = "1476"
message1()
endcase
skip 1
enddo
select a
form1.refresh
go bottom