各位大神,以下这段代码老是报该表正在使用,什么回事?谢谢~~
工作区1打开local_list,工作区2打开一个sql的临时表,根本就没有其他程序打开数据库,而SET EXCLUSIVE OFF也在主程序里写了~找不到原因啊~~~
SELECT 1
SELECT local_list
GO top
DO WHILE EOF()=.f.
memidx=memid
SELECT 2
GO TOP
DO WHILE EOF()=.f.
IF VAL(mem_in_no)=VAL(memidx)
thisform.txtlist.value=ALLTRIM(thisform.txtlist.value)+ALLTRIM(mem_name)+ALLTRIM(",")+ALLTRIM(STR(sid))+ALLTRIM(";")
thisform.Refresh
ENDIF
SKIP +1
ENDDO
SELECT 1
SELECT local_list
SKIP +1
ENDDO
If !Used('local_list')
Use local_list Shared In 0
EndIf
Select local_list
Scan all
patidx = patid
If sqlexec(con_sqllist,sqllist,"list_temp") > 0
Select list_temp
Scan all
IF VAL(pat_in_no)=VAL(patidx)
With thisform.txtlist
.value = .value + ALLTRIM(pat_name) + "," + ALLTRIM(STR(sid)) + ";"
.SelStart = Len(.Value)
EndWith
ENDIF
EndScan
EndIf
EndScan
Use in Select('list_temp')
If !Used('local_list')
Use local_list Shared In 0
EndIf
Select local_list
Scan all
patidx = patid
Select list_temp
Scan all
IF VAL(pat_in_no)=VAL(patidx)
With thisform.txtlist
.value = .value + ALLTRIM(pat_name) + "," + ALLTRIM(STR(sid)) + ";"
.SelStart = Len(.Value)
EndWith
ENDIF
EndScan
EndScan
*-- Use in Select('list_temp')
TEXT to sqllist Noshow textmerge pretext 1+2+4+8
SELECT distinct
pat_name,
pat_sex,
pat_age_exp,
pat_tel,
pat_in_no,
pat_bar_code,
pat_report_date,
pat_dep_name,
res_itr_id,
cast(SUBSTRING(res_sid,1,3) as int) as sid
FROM clab.dbo.patients a,clab.dbo.resulto b
where a.pat_id=b.res_id and res_itr_id='10049'
and res_date>='<<thisform.txtbegin.value>> 00:00:00'
and res_date<='<<thisform.txtend.value>> 23:59:59'
order by sid
ENDTEXT
Do case
Case sqlexec(con_sqllist,sqllist,"list_temp") < 0
AError(aTemp)
MessageBox('查询错误' + Chr(13)+Chr(13) + aTemp[3])
Case Reccount("list_temp") < 1
MessageBox('没有查询到任何记录')
Otherwise
Thisform.checklist()
Use in Select('list_temp')
*-- Thisform.Refresh()
EndCase
#include struct student { int num; char name[10]; float score[3]; }students[5],*p;... void print(struct student *p);...warning:its scope is only this definition or declaration ,which is probably not ...
@Cacheable(value="redisCache") List<TbContent> selectContentByCategoryId(@Param("cid") Long categoryId); 严重: Servlet.service() for servlet [taotao-facadeweb] in context with path [] threw ...
【环境信息】 Python3.6+Selenium3.0.2+IE10+win7 【问题描述】 1、用如下代码打不开IE浏览器,但是能打开火狐浏览器 import unittest import os from selenium import webdriver class TestAutoMethods(unittest...
C:\Users\HP\AppData\Local\Temp\ccPzyxhj.ltrans1.ltrans.o: In function `SCoopSwitch(void*, void*) [clone .lto_priv.38]’: 《artificial》:(.text+0x630): undefined reference to `timer0_overflow_count’ ...