  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		卢习林
 
 
  註冊時間: 2004-12-23 文章: 14 來自: 江苏
  第 1 樓
  | 
		
			
				 發表於: 星期四 十二月 23, 2004 10:10 pm    文章主題: 表的初始化 | 
				     | 
			 
			
				
  | 
			 
			
				各位大侠,请教一个问题,就是如果对表进行初始化,是什么代码呀,
 
 
     我有三个单选按钮,第一次运行的时候选中的单选按钮可以对查询的关键字
 
进行更换,能够正确查询,可是如果此时选择另一个单选按钮时,在文本框中输入正确的第二个条件的关键字进行查询就不能了,是怎么回事呀,好急呀!!
 
 代码如下,请各位看一下。回个信,谢了
 
    *****************************************************总休设计思路****************************************************************************************
 
***判断选择的是哪个单选按钮,然后进行对应的查询,在进行每一次查询的时候就把全表给查询一下,不然我想去出错,因为在进行第二次查询的时候是在原来的查询结果的基础上进行查询的
 
******************所以难免会有错
 
****************
 
public dx,gjz,x
 
dx=thisform.optiongroup1.value
 
gjz=allt(thisform.text1.value)
 
if dx=1
 
   locate all for 名称=gjz
 
     if found()
 
        set filter to 名称=gjz
 
        thisform.refresh
 
     else
 
         messagebox("你输入的条件不存在,请重新输入",0,"系统提示")
 
           thisform.text1.value=""  
 
           endif    
 
else
 
   if dx=2
 
     locate all for 编号==gjz
 
     if found()
 
        set filter to 编号==gjz
 
        thisform.refresh
 
     else
 
       ?gjz
 
         messagebox("你输入的条件不存在,请重新输入",0,"系统提示")
 
           thisform.text1.value=""
 
              
 
     endif
 
endif   
 
   endif _________________ 好久没有学了,现在好多都给忘了 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		朱育興
 
 
  註冊時間: 2003-08-25 文章: 661 來自: 台中市大里區
  第 2 樓
  | 
		
			
				 發表於: 星期四 十二月 23, 2004 10:43 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | 代碼: | 	 		  
 
PUBLIC dx,gjz,x
 
WITH ThisForm
 
  dx  = .OptionGroup1.Value
 
  gjz = ALLTRIM(.Text1.Value)
 
  DO CASE
 
  CASE dx = 1
 
       W1_cLocateFor = "名稱 = "
 
  CASE dx = 2
 
       W1_cLocateFor = "編號 == "
 
  ENDCASE
 
  SET FILTER TO  && 你欠這一行程式碼
 
  LOCATE ALL FOR &W1_cLocateFor. gjz
 
  IF FOUND()
 
    SET FILTER TO &W1_cLocateFor. gjz
 
    .Refresh
 
  ELSE
 
    =MESSAGEBOX("你輸入的條件不存在,請重新輸入",0,"系統提示")
 
    .Text1.Value = ""
 
  ENDIF
 
ENDWITH
 
 | 	 
  _________________ 希望有更多人來參與
 
 VFP wiki - 需要大家一起完成的VFP電子書與FAQ  | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		卢习林
 
 
  註冊時間: 2004-12-23 文章: 14 來自: 江苏
  第 3 樓
  | 
		
			
				 發表於: 星期五 十二月 24, 2004 8:27 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				谢谢大侠路见不平,拔刀相助,如有来生,你是女的,我是男的,我定会娶你,如果我是女的,你是男的,我定会嫁给你,现在成了,反正上面那个总是是解决了,在这里只能说两个字,谢谢
 
      卢习林 _________________ 好久没有学了,现在好多都给忘了 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		朱育興
 
 
  註冊時間: 2003-08-25 文章: 661 來自: 台中市大里區
  第 4 樓
  | 
		
			
				 發表於: 星期五 十二月 24, 2004 3:30 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				哇~~ 太誇張了吧!「以身相許」四個字就夠了,如果我是男你是女,那就嫁過來吧;如果我是女你是男,那就入贅過來吧;如果都是男或都是女,那就給你養吧! _________________ 希望有更多人來參與
 
 VFP wiki - 需要大家一起完成的VFP電子書與FAQ  | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |