求助，找原因~~-CSDN论坛

求助，找原因~~

其他数据库开发 > VFP

收藏回复

[问题点数：40分，结帖人qq_29587521]

⋅求错误的处理办法 ⋅更新VFP 9.0 sp2的问题 ⋅求助，找原因~~ 更多帖子 关注私信空间博客 rainyedge 等级 本版专家分：110 结帖率 85.71%: 各位大神，以下这段代码老是报该表正在使用，什么回事？谢谢~~
工作区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

2016-06-12 10:34:22

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅求错误的处理办法 ⋅更新VFP 9.0 sp2的问题 ⋅求助，找原因~~ 更多帖子 关注私信空间博客 rainyedge 等级 本版专家分：110: 是不是28m大小的那个vfp 9.0 sp2版本有缺陷？以前用9.0没出现过这个问题！……求大神解答~

2016-06-12 10:45:20

点赞只看TA 引用举报 #1得分 0

⋅请教，这样的公式如何写？ ⋅资源上传都搞的什么破烂验证码 ⋅查询语句优化问题 更多帖子 关注私信空间博客 版主 都市夜猫 等级 本版专家分：49054 勋章 黄花 2015年1月其他数据库开发大版内专家分月排行榜第二 蓝花 2017年12月其他数据库开发大版内专家分月排行榜第三 2016年6月其他数据库开发大版内专家分月排行榜第三 2015年11月其他数据库开发大版内专家分月排行榜第三: 这段代码没有 use 语句，触发错误的最终原因也就不在这些语句中
唯一有可能的就是 thisform.Refresh 这句，整个表单上所有的控件都会执行一次刷新，只有你才知道它们都做了些什么，注释掉这句看看有没有改变

也不知道你这段代码想干啥，不停的给 txtlist 赋值，又不停的刷新，还有，.... 问题太多，一个字，乱

2016-06-12 10:55:00

点赞只看TA 引用举报 #2得分 0

⋅求错误的处理办法 ⋅更新VFP 9.0 sp2的问题 ⋅求助，找原因~~ 更多帖子 关注私信空间博客 rainyedge 等级 本版专家分：110: 引用 2 楼 dkfdtf 的回复:
这段代码没有 use 语句，触发错误的最终原因也就不在这些语句中
唯一有可能的就是 thisform.Refresh 这句，整个表单上所有的控件都会执行一次刷新，只有你才知道它们都做了些什么，注释掉这句看看有没有改变

也不知道你这段代码想干啥，不停的给 txtlist 赋值，又不停的刷新，还有，.... 问题太多，一个字，乱

thisform.Refresh是疏忽了，谢谢~
不是专业的开发工程师，没办法~多多包涵~哈
但是确实检查过，明明使用了SET EXCLUSIVE OFF，但是运行过程中总是报占用或者没有打开~两个工作区，第一个打开dbf，第二个打开sql的一个临时表，切换的时候就报错了，但是检查过代码都没有关闭表和独享打开的语句

2016-06-12 11:30:26

点赞只看TA 引用举报 #3得分 0

⋅请教，这样的公式如何写？ ⋅资源上传都搞的什么破烂验证码 ⋅查询语句优化问题 更多帖子 关注私信空间博客 版主 都市夜猫 等级 本版专家分：49054 勋章 黄花 2015年1月其他数据库开发大版内专家分月排行榜第二 蓝花 2017年12月其他数据库开发大版内专家分月排行榜第三 2016年6月其他数据库开发大版内专家分月排行榜第三 2015年11月其他数据库开发大版内专家分月排行榜第三: 你这样的描述别人是没办法帮到你的，因为你自己都不知道是那条语句出错
简单点，把你的整个项目打包上传到 http://www.access911.net/CSDN/，帮你看看

2016-06-12 11:58:11

点赞只看TA 引用举报 #4得分 0

⋅求错误的处理办法 ⋅更新VFP 9.0 sp2的问题 ⋅求助，找原因~~ 更多帖子 关注私信空间博客 rainyedge 等级 本版专家分：110: 引用 4 楼 dkfdtf 的回复:
你这样的描述别人是没办法帮到你的，因为你自己都不知道是那条语句出错
简单点，把你的整个项目打包上传到 http://www.access911.net/CSDN/，帮你看看

已上传，请帮忙，很简单的程序而已，不会用太多的时间，万分感谢指导！

2016-06-12 13:28:21

点赞只看TA 引用举报 #5得分 0

⋅请教，这样的公式如何写？ ⋅资源上传都搞的什么破烂验证码 ⋅查询语句优化问题 更多帖子 关注私信空间博客 版主 都市夜猫 等级 本版专家分：49054 勋章 黄花 2015年1月其他数据库开发大版内专家分月排行榜第二 蓝花 2017年12月其他数据库开发大版内专家分月排行榜第三 2016年6月其他数据库开发大版内专家分月排行榜第三 2015年11月其他数据库开发大版内专家分月排行榜第三

checklist 方法改成这样试试：

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')

不要试图用 select <工作区编号> 这种方式切换工作区，用表别名

2016-06-12 13:49:03

点赞只看TA 引用举报 #6得分 0

⋅求错误的处理办法 ⋅更新VFP 9.0 sp2的问题 ⋅求助，找原因~~ 更多帖子 关注私信空间博客 rainyedge 等级 本版专家分：110: 改了之后是不报错，但是运行点击之后文本框还是空白……按理来说不可能没有的，我核对过两个数据库里的id是有相等的，因为VFP的数据是我手动按照sql中的数据录进去的……哪里的逻辑出什么了？……谢谢

2016-06-12 14:06:01

点赞只看TA 引用举报 #7得分 0

又看了下，checklist 中无必要再次执行 sqlexec 查询，这样就可以了：

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')

2016-06-12 14:21:42

点赞只看TA 引用举报 #8得分 20

引用 7 楼 qq_29587521 的回复:

点击之后文本框还是空白……按理来说不可能没有的，我核对过两个数据库里的id是有相等的，因为VFP的数据是我手动按照sql中的数据录进去的……哪里的逻辑出什么了？

那得检查 sqlexec 后的临时表有没有查到数据

查询按钮的 click 事件代码也改下：

Local  sqllist as String

Local array aTemp[1]



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

2016-06-12 14:22:47

点赞只看TA 引用举报 #9得分 10

⋅请教，这样的公式如何写？ ⋅资源上传都搞的什么破烂验证码 ⋅查询语句优化问题 更多帖子 关注私信空间博客 版主 都市夜猫 等级 本版专家分：49054 勋章 黄花 2015年1月其他数据库开发大版内专家分月排行榜第二 蓝花 2017年12月其他数据库开发大版内专家分月排行榜第三 2016年6月其他数据库开发大版内专家分月排行榜第三 2015年11月其他数据库开发大版内专家分月排行榜第三:     and res_date>='<<thisform.txtbegin.value>> 00:00:00'
    and res_date<='<<thisform.txtend.value>> 23:59:59'

最好也改下：

    and res_date >= '<<dtos(ctod(thisform.txtbegin.value))>>'
    and res_date < '<<dtos(1+ctod(thisform.txtend.value))>>'

2016-06-12 14:31:27

点赞只看TA 引用举报 #10得分 0

1 2

收起

收藏回复

rainyedge

等级：

关注私信 TA的帖子

c语言，结构体求助，实在找不出原因: #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 ...

定位时闪退！~~求助！求助！: 我们有个应用的外包给私人做的，结果测试出现部分手机定位服务开启就会闪退。...我把定位代码发出来大家帮帮忙找下原因！这里先谢谢大家了！~ (void)initMap:(NSMutableArray*)arguments withDict:(NSM

教师回应幼儿求助行为的问题及对策研究: 这是由于在求助过程中，幼儿可以和被求助者，多为教师进行互动，可以使幼儿学会许多解决问题的技巧，最终也就可以促进幼儿社会性的发展。本文选择3岁至6岁幼儿为研究对象，采用观察法，进行探究幼儿在幼儿园里的求助...

求助：java applet无法运行，错误: 找不到或无法加载主类 sun.applet.AppletViewer: import java.applet.Applet; import java.awt.Button; import java.awt.Color; public class HelloWorld extends Applet { Button button; @Override public void init() ... setBackground...

用springcache，出现key为null，求助什么原因啊，找不到资料: @Cacheable(value="redisCache") List<TbContent> selectContentByCategoryId(@Param("cid") Long categoryId); 严重: Servlet.service() for servlet [taotao-facadeweb] in context with path [] threw ...

求助，关于phpstudy环境ip访问主机找不到服务器的原因

新手求助请问Java编译提示错误找不到符号是因为什么呀？: package com.sample; private String Name; private String Age; private String Sex; private String IsPartyMember; private String Position; private String School; private String C...```

无线传感器网络复习大纲: 第一章考点：无线传感器网络组成部分，概念、特点（了解）分布式特点（了解）实时性、时效性（了解）常见拓扑结构（了解） ... WSN几个分层、分层的功能（了解） ...无线传感器概念：无线传感器网络是一种...

Repeater~FindControl【Checkbox】.checked；返回空值。小白求助！: **问题如下** ![图片说明](https://img-ask.csdn.net/upload/201701/19/1484833118_545729.png) ![图片说明]... !...实在找不到原因在哪里。困扰一天了。万分感激。直接+QQ吧： 441513928 谢谢了。

[汇编语言]未来汇编上，程序能运行，但运行出来结果就是不对，找不出原因，求助

keil工程中找不到头文件的可能原因: Keil中找不到文件的问题

求助，编译没有任何的错误，当运行起来没有结果，且没报错，是什么原因呢: package File02; import java.util.ArrayList; import java.util.function.Predicate; //为什么编译不成功 public class test2 { public static void main(String[] args) { String[] array={“迪丽热巴,女”,“古力...

Python+Selenium打不开IEDriver，是什么原因呐，求助！！: 【环境信息】 Python3.6+Selenium3.0.2+IE10+win7 【问题描述】 1、用如下代码打不开IE浏览器，但是能打开火狐浏览器 import unittest import os from selenium import webdriver class TestAutoMethods(unittest...

Bug不知道该怎么找？找不到程序崩溃的原因？今天推荐一个第三方的工具: 今天给大家推荐一个工具，用来收集程序崩溃的原因和信息，是腾讯的一款工具，我也是从一个群友听来的，网址是http://bugly.qq.com/ 名字就叫Bugly。注册，然后添加一个app，按照接入sdk的说明文档，将jar和配置...

求助：找不到或无法加载主类 org.jetbrains.jps.cmdline.Launcher: 错误:Abnormal build process termination: 错误: 找不到或无法加载主类 org.jetbrains.jps.cmdline.Launcher原因: java.lang.ClassNotFoundException: org.jetbrains.jps.cmdline.Launcher试了各种方法：关了...

MQ异常关闭原因 = 2009[个人收藏他人求助及回答]: 1#-问请教各位大虾：客户端连接到队列管理器所在的服务器进行...com.ibm.mqservices.MQInternalException:MQJE001：发生 MQException：完成码 2，原因码 2009 MQJE016：连接期间，MQ 队列管理器立即关闭通道关

使用VS2019仿真EmWin的时候出现了下图的情况，是什么原因呢，求助大家？: ![图片说明](https://img-ask.csdn.net/upload/201905/21/1558442107_376096.png)

100分求助，ASHX处理程序一个困扰我大半年的问题~~~

萌新求助，envi5.3波段合成后图像是黑白的，这是什么原因

蓝屏代码大全: 0X0000002 系统找不到指定的文件 0X0000003 系统找不到指定的路径 0X0000004 系统无法打开文件 0X0000005 拒绝存取 0X0000006 无效的代码 0X0000007 内存控制模块已损坏 0X0000008 内存空间不足，无法处理这个指令 ...

java 中 String.indexOf(string) 就是找不到，明明存在在文件中。求助？: 我从网站或文件中读取一个文档，存储在一个String str中；比如此时我要查找一个子字符串 substr 用 indexOf方法返回的为-1 但是在str中确实存在substr 在记事本或网页中可以查找...求帮忙分析下原因？解决方法？谢谢

因为这些原因找不到工作，真的很亏！: 网友求助：我现在没有辞职的唯一一个原因是担心找下一份工作的时候，招聘方看到我上一份工作经验只有3个月，觉得我没有稳定性，我是今年的毕业生。专家答疑：因为你是刚毕业，所以第一份工作时间不长，问题还不是...

Arduino UNO R3项目编译一直失败，求助: 对本代码一行一行采取注释测试的方式也找不到问题所在。跪求广大前辈的指教。根据反馈的debug信息来看貌似是出现了空指针的问题。可是根据debug给的目录去找发现本地根本没有这个目录，然后根据提示的GitHub网址下...

centos ftp传输图片进来 nginx可以访问但是找不到图片显示404 求助

关于Arduino使用SCoop多线程出错误，求助！！！！！: 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’ ...

向他人求助的正确姿态: 在现代通讯工具的迅猛发展下，找个人征求意见、提供指导或者索取信息变得越来越容易。只要知道对方的email地址、网络公共平台或者IM的用户名，你便可以在屏幕上打上几句求助信息，然后一按发送键把它发给对方。这种...

AutoCAD安装失败的原因及方法（不定期更新）: 对于AutoCAD安装失败，首先我们要去查看安装日志，找到当时所进行的操作，并获取相应错误码。如图： result=1603

使用webpack-html-plugin打包生成html页面失败，是什么原因啊？大神们，求助: webpack生成js没问题，到安装完webpack-html-plugin就出现这样的错误了，麻烦各位大神给看一下，找找原因，感激不尽let path=require('path')//专门处理路径用的，以当前路径解析出一个相对路径 console.log(path....

网页错误-找不到指定的模块。 (异常来自 HRESULT:0x8007007E): 前些天，对一个网站做了个迁移部署，结果模块整体报错，页面显示错误如下：看着错误信息，百度了半天，任然是一头雾水。没有办法，只有采取替换的方式来逐步查找问题。重新发布了个页面，替换了页面以及对应...

相关热词 c# 计算校验和 c# 视觉框架 c++调用c# ref 编写c#窗体程序 c# 代码卸载程序 c#单斜杠双斜杠 c#线程阻塞的方法 c#获取文件所在路径 c#mysql添加删除 c#里氏转换原则