Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need help on Grid
Message
From
07/10/1998 06:52:38
 
 
To
05/10/1998 09:54:37
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00141589
Message ID:
00144495
Views:
28
Hi Cetin,

I cant cut and paste and the coding, so i just type it out

your code is


*Grid.init

WIth This.cmbcode.combo1
.columncount=2
.rowsourcetype = 3
.rowsource = "select productid,description from product where"+;
"customerid=thisform.txtcustid.value order by productid"+;
"into cursor prdcodes"
endwith

WIth This.cmbcolor.combo1
.columncount=1
.rowsourcetype = 3
.rowsource = "select prodcolour from product where"+;
"where product.productid ="+; "this.parent.parent.cmbcode.value"+;
"order by prodcolour"+;
"into cursor prdtcolors"
endwith

*txtcustid.valid (or lostfocus which seem to be better)
THisform.Grid1.cmbcode.combo1.requery() && repopulate Combo


* thisform.grid.cmbcode.combo1.valid
thisform.parent.parent.cmbcolor.combo1.requery()

* thisform.grid1.cmbcolor.interactivechange
* better use tagname not number so you aren't limited to its indexorder

=seek(this.parent.parent.cmbcode.combo1.value+this.value,"product",3)
This.parent,parent.txtunitprice.text1.value = product.price

* With "set near off " as its default eof() would return 0 value
* i dont think but if you are allowing nulls
* then change this to if..else..endif


I have question to ask you.

1) What is use of the table structure, they have null there. when i clicks the button, it will come the right sign. What is use for them?

2) Since you said it better to use the tagname not number then not limited to its indexorder. How many numbers are they limited to? How to use the tagname for example i have index name name prodcustx (the expression is productid+prodcolor)

Thanks !!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform