field rules - conditional Lookup (No Drop List)

[enstorms]

I know this has been mentioned before. Conditional lookups are a very handy feature to have. However, IMO, there is a major shortcoming. Only browses can be used to lookup the value. When you try to create your own browse for the lookup, it's too narrow to display all the buttons across the top. I can find no way of editing that. I've tried opening the default browse in edit mode, saving it to a new name without making any changes. Still too narrow. In addition, this form of lookup looks VERY unprofessional. Is there a major issue involved in incorporating the drop list feature for conditional lookups???? How do you gurus get around this issue?
Would really appreciate some response to this question.
Ernie

P.S. My situation: I have a field (simple lookup) with three values. Based on that value, the lookup will be for one of three tables.

[Keith Hubert]

Re: field rules - conditional Lookup (No Drop List)

H Ernie,

How many fields are your using in the lookup browse?

Do you need all the buttons on the lookups?

[enstorms]

Re: field rules - conditional Lookup (No Drop List)

Hi Keith,
Only using one field. Here's the setup in the field rules. Another thing I've noticed is that the description field shows in the browse rather than the id field that is returned (as setup in the field rules), but the ID field shows in the form field after the selection and not the description field. I'm going to have to figure out another way to get this done.
Ernie

[enstorms]

Re: field rules - conditional Lookup (No Drop List)

This is what I've come up with which seems to work fine. Created a Character field as well as the ID field for my table. I realize I could also just use a variable. Place this char field on the form as a combo, then in Choices, selected to use xBasic to fill.
field OnArrive event:

dim t as p
dim t1 as p
dim t2 as p
dim recs as n
DIM pObj AS P
dim vList as c
select
    case parentform:type_product.value = "Livestock"
		t = table.open("stock_classes")
		t.index_primary_put("Stk_Class")
		t.fetch_first()
		recs = t.records_get()
		for i = 1 to recs
		    vList = vList + t.Stk_class + crlf()
		    t.fetch_next()
		next
		pObj = topparent:item_name.this
		pObj.settings.dynamic_list = vList
		t.close()
    case parentform:type_product.value = "Product"
		t1 = table.open("products")
		t1.index_primary_put("Prod_Name")
		t1.fetch_first()
		recs = t1.records_get()
		for i = 1 to recs
		    vList = vList + t1.Prod_name + crlf()
		    t1.fetch_next()
		next
		pObj = topparent:item_name.this
		pObj.settings.dynamic_list = vList
		t1.close()
    case parentform:type_product.value = "Asset"
		t2 = table.open("assets")
		t2.index_primary_put("Asset")
		t2.fetch_first()
		recs = t2.records_get()
		for i = 1 to recs
		    vList = vList + t2.Asset + crlf()
		    t2.fetch_next()
		next
		pObj = topparent:item_name.this
		pObj.settings.dynamic_list = vList
		t2.close()		    
end select

field OnDepart event:

dim t as p
dim t1 as p
dim t2 as p
select
    case parentform:type_product.value = "Livestock"
		t = table.open("stock_classes")
		t.index_primary_put("Stk_Class")
		dim vItem as c
		vItem = parentform:item_name.value
		t.fetch_find(vItem)
		parentform:item_id.value = t.Stkclassid
		t.close()   
    case parentform:type_product.value = "Product"
		t1 = table.open("products")
		t1.index_primary_put("Prod_Name")
		dim vItem as c
		vItem = parentform:item_name.value
		t1.fetch_find(vItem)
		parentform:item_id.value = t1.Product_id
		t1.close()    
    case parentform:type_product.value = "Asset"
		t2 = table.open("assets")
		t2.index_primary_put("Asset")
		dim vItem as c
		vItem = parentform:item_name.value
		t2.fetch_find(vItem)
		parentform:item_id.value = t2.Asset_id
		t2.close()    		 
end select

Would be open to any suggestions on a more efficient way of doing this.
Ernie