Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Build combo
Message
From
15/10/2005 04:49:50
 
 
To
15/10/2005 04:19:08
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Environment versions
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01059401
Message ID:
01059405
Views:
11
hi,

i think becuse tables orders, this is the hole code
SET CENTURY on
SET DATE TO british
SELECT 1
USE table1
m1 = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
REPLACE ALL table1.Period WITH [2005]+PADL(INT(AT(UPPER(LEFT(dAT,3)),M1)/3)+1,2,"0")

REPLACE table1.Period WITH LEFT(DTOS(table1.dat),6)   

SET CENTURY on
SET DATE TO british
SET SAFETY OFF
SET TALK OFF
SET ECHO OFF


SELECT 2
USE divi  && i biuld my combo via this table 

m1 = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"

m.dat1=RIGHT(thisform.Text1.Value,4)+PADL(INT(AT(UPPER(LEFT(thisform.Text1.Value,3)),M1)/3)+1,2,"0") 
m.dat2=RIGHT(thisform.Text2.Value,4)+PADL(INT(AT(UPPER(LEFT(thisform.Text2.Value,3)),M1)/3)+1,2,"0") 
SELECT 1
SELECT *  from table1 WHERE   (Period between m.dat1 AND m.dat2) AND dvno=VAL(this.Value) and peri=thisform.combo2.value  ;
into CURSOR xyz
INDEX ON period TO kk

IF _TALLY > 0

with thisform.combo1
 m.nam= .List(.ListIndex,2)
ENDWITH

TRY
	REPORT FORM newtable1  NOCONSOLE TO PRINTER PROMPT PREVIEW
CATCH TO oExp WHEN oExp.ErrorNo = 1958
	
ENDTRY	

ELSE
=MESSAGEBOX("Still No Product")
endif
thanks
>>hi all,
>>
>>would you help,idea
>>i build my combo fields via my table,
>>when i run myform at the first time i see another data form another table at my combo,if i exit
>>and run it second time i see my true table,
>>
>>thanks
>
>How you build youe combo?
>Can you post the code here?
Previous
Reply
Map
View

Click here to load this message in the networking platform