| 上一篇主題 :: 下一篇主題   | 
	
	
	
		| 發表人 | 
		內容 | 
	
	
		REN
 
 
  註冊時間: 2003-06-06 文章: 26
 
  第 1 樓
  | 
		
			
				 發表於: 星期三 十月 26, 2005 2:40 pm    文章主題: 有法子可以查到form裡的資料環境.. | 
				     | 
			 
			
				
  | 
			 
			
				有法子可以查到form裡的資料環境..
 
有加入了那些dbf.
 
3Q
 
忘了補充.是VFP6.0在用
   REN 在 星期四 十月 27, 2005 9:52 am 作了第 1 次修改 | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		215001
 
 
  註冊時間: 2003-06-11 文章: 393
 
  第 2 樓
  | 
		
			
				 發表於: 星期三 十月 26, 2005 8:25 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				| MESSAGEBOX( thisform.DataEnvironment.Cursor1.alias ) | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		REN
 
 
  註冊時間: 2003-06-06 文章: 26
 
  第 3 樓
  | 
		
			
				 發表於: 星期四 十月 27, 2005 7:57 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | 215001 寫到: | 	 		  | MESSAGEBOX( thisform.DataEnvironment.Cursor1.alias ) | 	  
 
 
嗯.!
 
這個要寫在form裡.
 
但如我有三個dbf
 
要如何得知啊.
 
就是要寫成for
 
但如有n個..就不知要如何讓程式自動下了
 
Cursor1,Cursor2,...
 
 
感謝回覆.
 
有法子寫成prg來做嗎.? 
 
來查form裡有那些dbf檔在
 
3q | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		小桑•無痕
 
  
  註冊時間: 2003-07-08 文章: 304 來自: Tainan, Taiwan
  第 4 樓
  | 
		
			
				 發表於: 星期四 十月 27, 2005 9:23 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				試試看,不知道對還是不對        
 
 
 
nCount	=	ThisForm.DataEnvironment.Objects.Count
 
FOR		I	=	1	TO	nCount
 
		MESSAGEBOX(ThisForm.DataEnvironment.Objects(I).Alias)
 
NEXT	I _________________ 用力 Try 一下...可以發現很多好玩的事.... | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		REN
 
 
  註冊時間: 2003-06-06 文章: 26
 
  第 5 樓
  | 
		
			
				 發表於: 星期四 十月 27, 2005 9:51 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | 小桑•無痕 寫到: | 	 		  試試看,不知道對還是不對        
 
 
 
nCount	=	ThisForm.DataEnvironment.Objects.Count
 
FOR		I	=	1	TO	nCount
 
		MESSAGEBOX(ThisForm.DataEnvironment.Objects(I).Alias)
 
NEXT	I | 	  
 
 
出現錯誤訊息耶.
 
忘了補充.是VFP6.0在用 | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		小桑•無痕
 
  
  註冊時間: 2003-07-08 文章: 304 來自: Tainan, Taiwan
  第 6 樓
  | 
		
			
				 發表於: 星期四 十月 27, 2005 3:08 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | REN 寫到: | 	 		   	  | 小桑•無痕 寫到: | 	 		  試試看,不知道對還是不對        
 
 
 
nCount	=	ThisForm.DataEnvironment.Objects.Count
 
FOR		I	=	1	TO	nCount
 
		MESSAGEBOX(ThisForm.DataEnvironment.Objects(I).Alias)
 
NEXT	I | 	  
 
 
出現錯誤訊息耶.
 
忘了補充.是VFP6.0在用 | 	  
 
 
喔...我是在 VFP8.0 跑的
 
   _________________ 用力 Try 一下...可以發現很多好玩的事.... | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		 |