string ls_tesc
long ll_i,ll_row
ll_row = dw_1.rowcount()
do until ll_i >= ll_row
ll_i++
ls_tesc = ls_tesc + "[" + string(ll_i) +"]" + dw_1.object.住院号[ll_i] + "|"
loop
messagebox('',ls_tesc)
SetProfileString('c:\pb_test.ini','pb','pba',ls_tesc)
================================================================
int li_fileNum
string ls_filename
ls_filename ='c:\log_' + String(today(),'yyyymmdd') + ".txt"//日志文件名
li_fileNum = FileOpen(ls_filename, LineMode!, Write!,Shared!,Append!)//打开文件
FileWrite(li_fileNum, string(now())+ls_tesc) //写入日志
FileClose(li_FileNum) //关闭文件