  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		shyhpyng
 
  
  註冊時間: 2006-10-11 文章: 60 來自: 台南市
  第 1 樓
  | 
		
			
				 發表於: 星期四 四月 12, 2007 3:34 pm    文章主題: 一個迴圈語法錯誤 | 
				     | 
			 
			
				
  | 
			 
			
				各位大大你們好,小弟有個程式用到迴圈,不過一直語法錯誤,一直看不出哪裡錯,可以請各位大大幫忙嗎,感激不盡!!
 
For V=1 To 15
 
     X=V+10
 
     Y=V+25
 
     Z=V+40
 
     Thisform.Text&X.value=Alltrim(IIF(Seek(Inspbase.Inb_Code&V,"Inspitem","Ins_code"),Inspitem.Ins_name,''))
 
     Thisform.Text&Y.value=Alltrim(IIF(Seek(Inspbase.Inb_Code&V,"Inspitem","Ins_code"),Inspitem.Ins_sample,''))
 
     Thisform.Text&Z.value=Inspbase.Inb_lstand&V+'---'+Inspbase.Inb_hstand&V
 
Endfor
 
 
語法錯誤指在
 
Thisform.Text&X.value=Alltrim(IIF(Seek(Inspbase.Inb_Code&V,"Inspitem","Ins_code"),Inspitem.Ins_name,''))
 
 
麻煩各位了,謝謝!! | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		syntech
 
 
  註冊時間: 2003-05-16 文章: 4252 來自: Taipei,Taiwan
  第 2 樓
  | 
		
			
				 發表於: 星期四 四月 12, 2007 4:18 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				關我屁事!!!  ^_^
 
 
看你這麼喜歡用 &,
 
應該就是這裡出錯吧 _________________ 如果公司有下列困擾:
 
1. 找不到便宜,快速,簡易的 生產排程軟體
 
2. 不知道如何快速排定 採購計劃
 
3. 成本抓不準,自己算比軟體算有用
 
4. 想學習系統規劃,想找系統架構的顧問
 
 
請聯絡我們,也許我們幫得上忙 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		shyhpyng
 
  
  註冊時間: 2006-10-11 文章: 60 來自: 台南市
  第 3 樓
  | 
		
			
				 發表於: 星期四 四月 12, 2007 4:34 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | syntech 寫到: | 	 		  關我屁事!!!  ^_^
 
 
看你這麼喜歡用 &,
 
應該就是這裡出錯吧 | 	  
 
 
厚!!S大哥,教一下啦!!因為這個寫法是學人家的,他是這麼用
 
For Vi=1 To 20
 
      VV=Allt(Str(Vi))
 
      VX=Padl(VV,2,'0')
 
      ThisForm.MainGrid.Column&VV..Header1.Caption=''    
 
      ThisForm.MainGrid.Column&VV..Header1.Caption=Allt(IIf(Seek(Diespcode.Dpc_spcode&VX,'Diespec'),Diespec.Dp_name,''))
 
      If !Empty(Diespcode.Dpc_spcode&VX) 
 
          ThisFormset.End_col=Vi+1
 
          ThisForm.MainGrid.Column&VV..Enabled=.T.
 
      Else
 
          ThisForm.MainGrid.Column&VV..Enabled=.F.
 
      Endi    
 
Endfor
 
 
我就依樣畫葫蘆,誰知道不行....可是他這樣用就可以耶!!!球球你!!! | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		abcyei
 
 
  註冊時間: 2004-01-01 文章: 48
 
  第 4 樓
  | 
		
			
				 發表於: 星期四 四月 12, 2007 8:55 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				shyhpyng兄,你也看仔細一點嘛
 
1.人家的VV=Allt(Str(Vi))是轉成文字ㄟ,你只有X=V+10這是數值ㄟ
 
2.ThisForm.MainGrid.Column&VV..Header1.Caption=''請注意Column&VV..Header1,&VV之後是..ㄟ不是.而已
 
這樣你瞭了嗎 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		shyhpyng
 
  
  註冊時間: 2006-10-11 文章: 60 來自: 台南市
  第 5 樓
  | 
		
			
				 發表於: 星期五 四月 13, 2007 9:11 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | abcyei 寫到: | 	 		  shyhpyng兄,你也看仔細一點嘛
 
1.人家的VV=Allt(Str(Vi))是轉成文字ㄟ,你只有X=V+10這是數值ㄟ
 
2.ThisForm.MainGrid.Column&VV..Header1.Caption=''請注意Column&VV..Header1,&VV之後是..ㄟ不是.而已
 
這樣你瞭了嗎 | 	  
 
 
感謝各位指導,真的是這兩個地方有錯!!真是羞愧.....謝謝,謝謝喔!   | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		garfield Site Admin
  
  註冊時間: 2003-01-30 文章: 2160
 
  第 6 樓
  | 
		
			
				 發表於: 星期五 四月 13, 2007 5:37 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				巨集的變數只能用文字型態
 
巨集名稱後接上. 表示.以前是巨集名稱(或是說巨集名稱到.為止), 
 
例:
 
temp1a='aaa'
 
temp2a='bbb'
 
for i=1 to 2
 
  macrostr=ltrim(str(i))
 
  ? temp¯ostr.a
 
next
 
 
 
用..的第二個. 你該知道是各個物件名稱的分隔符號 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |