  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		liangszpt
 
  
  註冊時間: 2004-11-18 文章: 263 來自: な东省深圳市
  第 1 樓
  | 
		
			
				 發表於: 星期一 四月 03, 2006 1:36 am    文章主題: GRID里面的某个CELLS,能否设定成只读? | 
				     | 
			 
			
				
  | 
			 
			
				如题。
 
最近我在做一个收费的FORM,用到一个GIRD给用户来填写数据的,例如电费、水费。
 
如果某住户的电费已经收取了,这一项的数据就不能再修改。请问可以做得到吗? | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		新人類
 
 
  註冊時間: 2005-11-27 文章: 50
 
  第 2 樓
  | 
		
			
				 發表於: 星期一 四月 03, 2006 7:49 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				| Readonly | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		garfield Site Admin
  
  註冊時間: 2003-01-30 文章: 2160
 
  第 3 樓
  | 
		
			
				 發表於: 星期一 四月 03, 2006 9:02 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				可以在 columns( ? ).text1.when 裡寫個程式.
 
只要是 return .f. , 那個cell 就無法使用. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		catjoke
 
 
  註冊時間: 2003-06-16 文章: 175 來自: 香港
  第 4 樓
  | 
		
			
				 發表於: 星期一 四月 03, 2006 9:27 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				我以前初初用的是 DynamicControl 來做..
 
即是合乎條件的話, 使用一個 本是 readonly 的 control, 令它改不了!
 
 
但其實可以簡單一些:
 
 
 	  | 代碼: | 	 		  
 
* Grid.AfterRowColChange 內做簡單檢查:
 
IF myTable.Paid = .T.  && 已付
 
   ThisForm.Grid1.Column5.Readonly = .T.
 
    ThisForm.Grid1.Column6.Readonly = .T.
 
ELSE
 
    ThisForm.Grid1.Column5.Readonly = .F.
 
    ThisForm.Grid1.Column6.Readonly = .F.
 
ENDIF
 
 | 	  
 
 
最主要問題是如做 PACK 或 重新定義 RECORDSOURCE, Column 內的物件會掉棄..
 
入面所寫的程式當然會 消去, 但寫在 Grid 中的不會消失...
 
 
Garfield 寫的好處是, 只有那個 Column 使用時才會執行檢查,
 
而我上面寫的 就每次更改 cell 的位置也會做檢查...
 
 
視乎你做的檢查有多嚴格了, 如是簡單的做, garfield 的比較簡單. _________________ 喵喎~ 貓當然是 "茅" 的嘛! ^0^; | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |