VFP 愛用者社區

[ylong]

各位先進,在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]

你貼的程式不完整,沒有 with thisform.?????

還有: 案例是什麼東西?
情況是什麼東西?

[syntech]

不是每個東西放進grid都可以正常運作

[lygcw9603]

調整下GRID行高看看如何

[CPS0204]

建義改為
with thisform.grid1
.RECORDSORUCE='qafil003 '
.COLUMN4.CONTROLSOURCE='[VAL(qafil003.riskno )]
endwith

WITH 與ENDWITH 之間,不能寫判斷式,DO CASE...等

[ylong]

@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]

[ylong]

@CPS0204兄,我在WITH與ENDWITH之間，check box in grid是用IF...ELSE..ENDIF，可以使用

[Abel]

不好意思，請問 ylong 板大，我有點想知道，最後這個 Grid 中的 OptiongGroup 運作是否成功了

[ylong]

@Abel兄,最後沒有成功,我選擇了用Check box，可能我的功力太淺了

[ckp6250]

應該是可以。

CPS0204 的建議，也是正確的。

我覺得，這一段似無必要。

[ylong]

謝謝ckp6250兄 & CPS0204兄，我需再重新檢視及修改程式，重新測試結果

[ylong]

謝謝ckp6250兄 & CPS0204兄，重新用 CPS0204兄建議的方法，再測試，可以正常顯示了,但判斷式還要出來
[/url]