上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
ylong
註冊時間: 2003-07-30 文章: 117
第 1 樓
|
發表於: 星期三 五月 26, 2021 4:17 pm 文章主題: grid內的optiongroup無法正常顯示及操作 |
|
|
各位先進,在grid內放入optiongroup,作為多選一的項目,畫面可承顯,但資料無法顯示,程式如下說明
WITH ThisForm.Back1.Container1.Grid1.Column4
.Header1.BackColor = RGB(219,219,219)
.Header1.FontName = "Arial"
.Header1.Alignment = 0
.Header1.Caption = " 低風險/中風險/高風險"
.DynamicbackColor="IIF(MOD(RECNO(),2)=1,RGB(255,255,255),RGB(192,220,192))"
.FontName = "Arial"
.ControlSource = "qafil003.riskno" &&
.RemoveObject("Text1")
.AddObject("OptionGroup1","OptionGroup")
.CurrentControl="OptionGroup1"
.ReadOnly=.F.
.Sparse = .F.
.OptionGroup1.Height = 25
.OptionGroup1.Top = 0
.OptionGroup1.Width = 200
.OptionGroup1.Enabled = .T.
.OptionGroup1.BackStyle = 0
.OptionGroup1.BorderStyle = 0
.OptionGroup1.ButtonCount = 3
.OptionGroup1.Visible = .T.
.OptionGroup1.Option1.BackStyle = 0
.OptionGroup1.Option2.BackStyle = 0
.OptionGroup1.Option3.BackStyle = 0
.OptionGroup1.Option1.FontSize = 10
.OptionGroup1.Option2.FontSize = 10
.OptionGroup1.Option3.FontSize = 10
.OptionGroup1.Option1.Height = 20
.OptionGroup1.Option2.Height = 20
.OptionGroup1.Option3.Height = 20
.OptionGroup1.Option1.Top = 3
.OptionGroup1.Option2.Top = 3
.OptionGroup1.Option3.Top = 3
.OptionGroup1.Option1.Left = 20
.OptionGroup1.Option2.Left = 80
.OptionGroup1.Option3.Left = 135
.OptionGroup1.Option1.Caption = ""
.OptionGroup1.Option2.Caption = ""
.OptionGroup1.Option3.Caption = ""
DO CASE
CASE qafil003.riskno = "1"
.OptionGroup1.Value = 1
CASE qafil003.riskno = "2"
.OptionGroup1.Value = 2
CASE qafil003.riskno = "3"
.OptionGroup1.Value = 3
ENDCASE
ENDWITH
|
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 451
第 2 樓
|
發表於: 星期三 五月 26, 2021 6:30 pm 文章主題: |
|
|
你貼的程式不完整,沒有 with thisform.?????
還有: 案例是什麼東西?
情況是什麼東西? |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4225 來自: Taipei,Taiwan
第 3 樓
|
發表於: 星期三 五月 26, 2021 9:03 pm 文章主題: |
|
|
不是每個東西放進grid都可以正常運作 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25 文章: 130
第 4 樓
|
發表於: 星期三 五月 26, 2021 10:29 pm 文章主題: |
|
|
調整下GRID行高看看如何 |
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 451
第 5 樓
|
發表於: 星期四 五月 27, 2021 6:57 am 文章主題: |
|
|
建義改為
with thisform.grid1
.RECORDSORUCE='qafil003 '
.COLUMN4.CONTROLSOURCE='[VAL(qafil003.riskno )]
endwith
WITH 與ENDWITH 之間,不能寫判斷式,DO CASE...等 |
|
回頂端 |
|
|
ylong
註冊時間: 2003-07-30 文章: 117
第 6 樓
|
發表於: 星期四 五月 27, 2021 8:33 am 文章主題: |
|
|
@syntech兄謝謝提示
@CPS0204兄,這是份分析表,屬ERP的一份外掛,本司是用鼎新SmartERP(公司規模比較小),之前均是使用人力用Excel在作ISO文件資料,但因疫情的關係,人力只剩原1/2不到,所以建議公司ISO文件資訊化,所以開始幫公司撰寫外掛程式,主要是以ISO分析為主,因鼎新是的資料庫是MSSQL,我架設的是MYSQL,以鼎新的資料為主,經過資料整合計算再寫入MYSQL。
這份是QC的廠商年度分等標準表,主要在設定廠商的製作零件的判斷依據,再依鼎新的採購進貨記錄及託工進貨記錄,依進貨數量來計算其良率及不良率,並產生ISO的文件資料,以供年度ISO、GMP、FDA來查廠使用,以幫司撰寫了一些外掛程式,如FDA GS1條碼管理、MDR GS1條碼管理、成品序號管理、成品檢驗管理。
因使用check in grid結果是正常的,才會想用optiongroup in grid來試試,因使用check是使用三個資料庫欄位,所以沒有用問題,但optiongroup是使用一個資料庫欄位來判別等級。
您所說的方法,我會試試,順便改變作寫法,謝謝 |
|
回頂端 |
|
|
lygcw9603
註冊時間: 2011-12-25 文章: 130
第 7 樓
|
發表於: 星期五 五月 28, 2021 10:27 am 文章主題: |
|
|
CPS0204 寫到: | 建義改為
with thisform.grid1
.RECORDSORUCE='qafil003 '
.COLUMN4.CONTROLSOURCE='[VAL(qafil003.riskno )]
endwith
WITH 與ENDWITH 之間,不能寫判斷式,DO CASE...等 |
誰說WITH 與ENDWITH 之間,不能寫判斷式,DO CASE...等
可以用IIF()、ICASE() |
|
回頂端 |
|
|
ylong
註冊時間: 2003-07-30 文章: 117
第 8 樓
|
發表於: 星期五 五月 28, 2021 11:27 am 文章主題: |
|
|
@CPS0204兄,我在WITH與ENDWITH之間,check box in grid是用IF...ELSE..ENDIF,可以使用 |
|
回頂端 |
|
|
Abel
註冊時間: 2005-03-14 文章: 189 來自: 鹿港小鎮
第 9 樓
|
發表於: 星期二 十二月 13, 2022 1:58 pm 文章主題: |
|
|
不好意思,請問 ylong 板大,我有點想知道,最後這個 Grid 中的 OptiongGroup 運作是否成功了 |
|
回頂端 |
|
|
ylong
註冊時間: 2003-07-30 文章: 117
第 10 樓
|
發表於: 星期二 十二月 13, 2022 4:46 pm 文章主題: |
|
|
@Abel兄,最後沒有成功,我選擇了用Check box,可能我的功力太淺了 |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 11 樓
|
發表於: 星期四 十二月 15, 2022 11:22 am 文章主題: |
|
|
應該是可以。
CPS0204 的建議,也是正確的。
我覺得,這一段似無必要。
代碼: |
DO CASE
CASE qafil003.riskno = "1"
.OptionGroup1.Value = 1
CASE qafil003.riskno = "2"
.OptionGroup1.Value = 2
CASE qafil003.riskno = "3"
.OptionGroup1.Value = 3
ENDCASE
|
|
|
回頂端 |
|
|
ylong
註冊時間: 2003-07-30 文章: 117
第 12 樓
|
發表於: 星期三 十二月 21, 2022 4:57 pm 文章主題: |
|
|
謝謝ckp6250兄 & CPS0204兄,我需再重新檢視及修改程式,重新測試結果 |
|
回頂端 |
|
|
ylong
註冊時間: 2003-07-30 文章: 117
第 13 樓
|
發表於: 星期四 十二月 22, 2022 4:26 pm 文章主題: |
|
|
謝謝ckp6250兄 & CPS0204兄,重新用 CPS0204兄建議的方法,再測試,可以正常顯示了,但判斷式還要出來
[/url] |
|
回頂端 |
|
|
|