| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
tigerlee39y
註冊時間: 2007-11-26
文章: 132
來自: taipei
第 1 樓
|
 發表於: 星期一 十月 26, 2009 3:46 am 文章主題: 一次就列出一個 form上的所有label的caption? |
 |
|
我有一個form,上有數十個label
請問如何一次就列出一個 form上的所有的label的caption (能存到檔案中更好)?
_________________
各取所需 各盡所能 |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 2 樓
|
| 發表於: 星期一 十月 26, 2009 8:53 am 文章主題: |
|
|
哈哈哈哈哈...........................
| 代碼: |
set printer to c:\label.txt
set device to printer
set printer on
line =0
select * into crusor x from (你的FORM) where upper(baseclass)=='LABEL'
select x
scan
if atline('Caption',Properties) >0
@ line,0 SAY mline(Properties,atline('Caption',Properties))
line = line+1
endif
endscan
use in 0
set printer off
set device to screen
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27
文章: 481
第 3 樓
|
| 發表於: 星期一 十月 26, 2009 12:11 pm 文章主題: |
|
|
syntech好猛
直接取原始資料來用
感覺上有'滄海一聲笑'............... |
|
| 回頂端 |
|
|
tigerlee39y
註冊時間: 2007-11-26
文章: 132
來自: taipei
第 4 樓
|
| 發表於: 星期一 十月 26, 2009 3:52 pm 文章主題: |
|
|
謝謝 syntech兄,佩服之至,原來 .scx如同 .dbf可以如此之用
不過,select那行的"cursor"是否故意打錯來考我ㄚ ? 哈哈 !
_________________
各取所需 各盡所能 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 5 樓
|
| 發表於: 星期一 十月 26, 2009 3:55 pm 文章主題: |
|
|
反正就是隱藏一些BUG給人去找,
因為我就是討厭給人答案.
這是偽裝成 foxpro for dos 的作法.
到底真實性如何,就自己去試.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
LiuRambo
註冊時間: 2007-11-27
文章: 481
第 6 樓
|
| 發表於: 星期一 十月 26, 2009 4:12 pm 文章主題: |
|
|
| syntech 寫到: | 反正就是隱藏一些BUG給人去找,
因為我就是討厭給人答案.
這是偽裝成 foxpro for dos 的作法.
到底真實性如何,就自己去試. |
給你拍拍手
我看很多人只是想來找答案
看看而已也不想動腦袋
設個簡單陷阱是好的
讓那些久沒用的大腦運動運動 |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 7 樓
|
| 發表於: 星期一 十月 26, 2009 7:57 pm 文章主題: |
|
|
嘻嘻嘻嘻嘻...........................
for i = 1 to thisform.ControlCount
if thisform.Controls[i].BaseClass = .....
endif
next |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 8 樓
|
| 發表於: 星期一 十月 26, 2009 8:39 pm 文章主題: |
|
|
每次都用CONTROLS[]找就無聊了. ^_^
而且不能"一次" XD
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙
syntech 在 星期二 十月 27, 2009 8:59 am 作了第 1 次修改 |
|
| 回頂端 |
|
|
tigerlee39y
註冊時間: 2007-11-26
文章: 132
來自: taipei
第 9 樓
|
| 發表於: 星期一 十月 26, 2009 10:22 pm 文章主題: |
|
|
ckp6250兄的寫法,是這些命令要放在在表單中才能用吧 謝謝 !
_________________
各取所需 各盡所能 |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 10 樓
|
| 發表於: 星期二 十月 27, 2009 9:55 pm 文章主題: |
|
|
| tigerlee39y 寫到: | | ckp6250兄的寫法,是這些命令要放在在表單中才能用吧 謝謝 ! |
yes |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
