Thanks Ted for the input. I ended up putting together some runnable code to compare what happens in different scenarios and have attached it if anyone is interested. I think the behavior when the Quotes are included in the RowSource of the Combo is probably a bug. What bothers me is that it seems to come and go, probably tied to some unknown condition in Foxpro. All the code does is display three different Combo boxes. When you click for the dropdowns the list of options show up. To the right are boxes showing the type and value of the choice just clicked. Thanks again, Joe
Here is the code: PUBLIC oform1
oform1=NEWOBJECT("form1") oform1.Show RETURN
************************************************** *-- Form: form1 (c:\dropbox\joe\stuff\ctest.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 08/03/24 08:33:05 PM * DEFINE CLASS form1 AS form
Top = 0 Left = 0 Height = 250 Width = 713 DoCreate = .T. Caption = "Form1" Name = "form1"
ADD OBJECT combo1 AS combobox WITH ; RowSourceType = 1, ; RowSource = ['"0.1,0.5,1,2,3,4,5"'], ; ControlSource = "", ; Height = 49, ; Left = 36, ; Top = 48, ; Width = 133, ; BoundTo = .T., ; Name = "Combo1"
ADD OBJECT label1 AS label WITH ; Alignment = 2, ; Caption = ['"0.1,0.5,1,2,3,4,5"'], ; Height = 25, ; Left = 36, ; Top = 24, ; Width = 132, ; Name = "Label1"
ADD OBJECT text2 AS textbox WITH ; ControlSource = "", ; Height = 25, ; Left = 167, ; Top = 48, ; Width = 49, ; Name = "Text2"
ADD OBJECT text3 AS textbox WITH ; Comment = "", ; ControlSource = "", ; Height = 25, ; Left = 167, ; Top = 72, ; Width = 49, ; Name = "Text3"
ADD OBJECT combo2 AS combobox WITH ; RowSourceType = 1, ; RowSource = "0.1,0.5,1,2,3,4,5", ; ControlSource = "", ; Height = 49, ; Left = 253, ; Top = 50, ; Width = 133, ; BoundTo = .T., ; Name = "Combo2"
ADD OBJECT label2 AS label WITH ; Alignment = 2, ; Caption = "0.1,0.5,1,2,3,4,5", ; Height = 25, ; Left = 253, ; Top = 26, ; Width = 132, ; Name = "Label2"
ADD OBJECT text4 AS textbox WITH ; ControlSource = "", ; Height = 25, ; Left = 384, ; Top = 50, ; Width = 49, ; Name = "Text4"
ADD OBJECT text5 AS textbox WITH ; Comment = "", ; ControlSource = "", ; Height = 25, ; Left = 384, ; Top = 74, ; Width = 49, ; Name = "Text5"
ADD OBJECT combo3 AS combobox WITH ; RowSourceType = 1, ; RowSource = "This.RSvalue", ; ControlSource = "", ; Height = 49, ; Left = 475, ; Top = 51, ; Width = 133, ; BoundTo = .T., ; Name = "Combo3"
ADD OBJECT label3 AS label WITH ; Alignment = 2, ; Caption = "Set in Init", ; Height = 25, ; Left = 475, ; Top = 27, ; Width = 132, ; Name = "Label3"
ADD OBJECT text1 AS textbox WITH ; ControlSource = "", ; Height = 25, ; Left = 606, ; Top = 51, ; Width = 49, ; Name = "Text1"
ADD OBJECT text6 AS textbox WITH ; Comment = "", ; ControlSource = "", ; Height = 25, ; Left = 606, ; Top = 75, ; Width = 49, ; Name = "Text6"
PROCEDURE Init thisform.refresh ENDPROC
PROCEDURE combo1.Click LPARAMETERS cItem LOCAL out, typ out = this.value thisform.text2.value = TYPE(out) thisform.text3.value = out thisform.refresh ENDPROC
PROCEDURE combo2.Click LPARAMETERS cItem LOCAL out, typ out = this.value thisform.text4.value = TYPE(out) thisform.text5.value = out thisform.refresh ENDPROC
PROCEDURE combo3.Click LPARAMETERS cItem LOCAL out, typ out = this.value thisform.text1.value = TYPE(out) thisform.text6.value = out thisform.refresh ENDPROC
PROCEDURE combo3.Init this.RowSource = '0.1,0.5,1,2,3,4,5' ENDPROC
ENDDEFINE * *-- EndDefine: form1 **************************************************
--- StripMime Report -- processed MIME parts --- multipart/alternative text/plain (text body -- kept) text/html ---