Hans L
I read everywhere about the so called "dropdown list box", but, while I have searched long and hard, I cannot find any description of how to create such a beast. Kind of embarrasing, but ...
Also, as a stopgap, I use a combo box to select indexes to list various sets of data in a grid, and I do not have anything in the ControlSource. I have 1 ¨C Value in RowSourceType and then six list items in RowSource. While any of these items I click on shows up in the text area of the combobox, I have not been able to figure out how to make one of them show up in the text area when the combobox is created. Where do I put the code
Let me be specific:
Let' say that the RowSource have "Alpha,Bravo,Charlie,Delta,Echo,Foxtrot" in it.
When the combobox is created, let's say that index TAG "Bravo" is in effect. So, I have the following code in the combobox Init method:
DO CASE
CASE TAG() = 'Alpha'
THIS.Value = 'Alpha'
CASE TAG() = 'Bravo'
THIS.Value = 'Bravo'
CASE TAG() = 'Charlie'
THIS.Value = 'Charlie'
CASE TAG() = 'Delta'
THIS.Value = 'Delta'
CASE TAG() = 'Echo'
THIS.Value = 'Echo'
CASE TAG() = 'Foxtrot'
THIS.Value = "Foxtrot"
ENDCASE
In other words, I was hoping that by setting "Value" to "Bravo" in this case would put "Bravo" in the combobox text area when the box was created. Not so. So, the question is, should I replace "Value" with something else (what ) and where should I place the code if not in Init method
I assume the answers would be the same if I ever understood how to create a Dropdown List Box :-)
Thanks for your kind help.
Regards,
Hans L
dropdown list box
Visual FoxPro General
-
- Previous
- 1
- How to access methods of an ActiveX in a .prg I have created a Winsock Activex control in a FoxPro 6.0 program, and it works OK, but I don't know how to access the DataArrival function in code. If I was in a form, I'd just double click on the control and it would be there, but since I created it using CreateObject, I don't know how to tie a function to that event. Geoff Callaghan Tag: dropdown list box
- 2
- "Cannot find the menu-generation program." Hi there, I actually posted on this subject twice before and once got a satisfactory answer, the other time I simply figured out how to get this file myself. Now it seems to be different. When I make and attempt to build a project I get this message. So, I click Add, go to Program Files\Microsoft Visual FoxPro 9\ and find a file: genmenu.prg . Click on it and I get another error message: File genmenu.prg is already in the project. I cannot see it anywhere in the tree view. It is a run around. Please help. Thanks. Tag: dropdown list box
- 3
- vfp9 error reading file 1104 on server 2003 I have a windows server 2003 R2 Enterprise edition service pack 2 with Sql server 2005 and vfp9, where users access the data via a mapped share. I use the server as a file share and run it from some other machine or terminal server or citrix ; sometimes i get a "error reading file" on this type of files: error reading file s:\xxxxx\xxxxx\nnn.fxp where nnn.fxp is a file that is include or not in the vfp9 exe file or error reading file s:\xxxxx\xxxxx\nnn.xxx where nnn.xxx is a temporary table with another file extension This is highly troublesome since it directly affects users running the online programs any help will be appreciated Tag: dropdown list box
- 4
- Search Company function: Type any letters to find a few similar company names Hi all I create the form to search the company name. I have the long list of company codes & names inside the table (company.dbf). Form Designer Company Name : <Text1> <Grid> Code | Company Name Search Command Exit Command For example, let say the company name is Visual Foxpro Ltd. Just type any letters such as ¡®Fox¡¯ on <Text1 > and then click on Search Command to get a few company names and u will see the result as below.. Company Name : ¡°Fox¡± <Grid> Code | Company Name FASP | FoxPro Limited VUSL | Hello Fox Calendar Country VISF | Visual Foxpro Ltd Code in Search Command < Procedure: Click> With thisform If .not.(empty(thisform.text1.value)) select actcfadd a alias in the Data Environment set order to ctcfadd a index in the table : Expression - ctc_code seek .text1.value do while found() select company a RecordSource in Properties & 1- Alias do while .not.flock() enddo append blank replace ctc_code with actcfadd.ctc_code replace ctc_name with actcfadd.ctc_name unlock select actcfadd skip enddo else messagebox("Please key-in company code",0,"Search Company") endif I am struck with the part of code to show a few companies on Grid with any letters Please guide me how to write this. Thank you. Tag: dropdown list box
- 5
- Combo LOCAL nCnt FOR nCnt = 1 TO thisform.cboCourse.ListCount IF thisform.cboCourse.List(nCnt) = ALLTRIM(a_Courses.CourseName) thisform.cboCourse.Selected(nCnt) = .t. ENDIF ENDFOR But selected item is not apearing on top of the combo's list. Tag: dropdown list box
- 6
- Trans SQL statement needed OK, this is a problem I am sure won't be a problem for highly traned in VFP ways at all, just a piece of cake but for me it is insurmountable. It all has to be done from .NET code. I need a Trans SQL statement, similar to "SELCET * FROM...." but I need to select just one record and this record MUST be the last one in the rowset. More accurately, this rowset has to be ORDERED by the first field (numeric_id) which in fact is not numeric at all--it is a string (7 char long). The index (a primary key, in effect) has been set up in the wizard. It is there. Thus it must be ordered for this primary key (from .NET). Logically speaking, the way things have worked so far in VFP, the largest key value, something like "C002345" could be expected to be found at the very bottom of the rowset. I hope it is the case everywhere but there is no guarantee. I tried something (out of my profound VFP ignorance, of course, so visible to some) that did not work but it may be a sort of "pseudo code" to convey the idea: SELECT * FROM categories WHERE RECNO ( ) = RECCOUNT ( ) The above statement did work in FVP Command Window (after I stabilized it somewhat). What did not work and I want your help on that is something like this. I need to do it (I think I need to do it, or rather I prefer to do it in one statement) : SET ORDER TO NUMERIC_ID IN categories; SELECT * FROM categories WHERE RECNO ( ) = RECCOUNT ( ) SET ORDER TO NUMERIC_ID IN categories and SELECT * FROM categories WHERE RECNO ( ) = RECCOUNT ( ) I have somewhat limited experience running SQL Stamements from .NET. Very many things work quite well but I am not sure if I SET ORDER to primary key first in one ExecuteNonQuery and then SELECT the last row (record) in the second ExecuteNonQuery the table (rowset, rather) will stay oriented/ordered. Got it Thanks for help. Tag: dropdown list box
- 7
- Urgent - Need Help In VFP 8 Deployment Hi All, I have created Package using installshield wizard, but the only first login window of my project appears after just one sec screen remains and then disappears, i have used prg as my main file in project in which i have define menu, however my exe woks fine . what should i do. Regards Hemangi Tag: dropdown list box
- 8
- Returning Arrays And Cursors to .NET from VFP??? It is all about the business of Stored Procedures which I am trying to perfect. The SPs are called by my .NET C# app. A lot of the stuff I've had difficulaties initialy appears to be working now. Still there are numerous limitations and one has to get used to them. It is a new style of programming. Very austere. If you want to DELETE a record in a table and you have 15 of them and want to determine at runtime which one to choose, you cannot use DO CASE. It won't work, although it is listed neither in supported nor unsupported Ole DB keywords. You cannot even use a stack of IF/ELSE/ENDIF statements to make a selection inside one SP. You have to write 15 SPs separately. Anyhow, I want to investigate (with very little hope for a positive resolution) a possibility of returning more than a single variable from a SP. A signle variable does come bacx. But I want to get an array back. PROCEDURE testing DIMENSION words (5,2) words[1,1] = "a1" words[1,2] = "a2" words[2,1] = "b1" words[2,2] = "b2" words[3,1] = "c1" words[3,2] = "c2" words[4,1] = "d1" words[4,2] = "d2" words[5,1] = "f1" words[5,2] = "f2" RETURN (words) ENDPROC The rusult: only the first element ("a1") came back. That was it. I am wonderng if a pointer to the location of this array can be determined inside such code and passed back Is it possible I checked SYS ( ) functions but could not see anything remotely related to it. Of ocurse, there are workarounds. I can send this array into an XML file with CURSORTOXML and I have done it but it will slow things down. Does anybody know how I can get either the whole array or a pointer to the memory location where it is positioned That might be a dead end, however. After the SP finished all memory is supposed to be cleared, isn't it Another thing is to get a CURSOR out of a SP. This is the code that actually works: PROCEDURE selectFromCrossRefByPointOne LPARAMETERS p_one SET PATH TO "C:\VFP_Projects\Data\ComeAndGetDatBase\" OPEN DATABASE comeAndGet EXCLUSIVE m.retValue = "" SELECT * FROM crossRefTable WHERE pointer_one = p_one INTO CURSOR qTemp READWRITE ORDER BY pointer_two SELECT qTemp GO TOP cou = 0 DO WHILE NOT EOF () IF (cou = 0) m.retValue = pointer_two ELSE m.retValue = m.retValue + "-" + pointer_two ENDIF cou = cou + 1 SKIP ENDDO USE CLOSE DATABASES ALL RETURN (m.retValue) ENDPROC It returns a string of ANY LENGTH but when I tried to return a CURSOR qTmp I got an error: variable qTmp not found. I enclosed it in brackets [qTmp] - it gave me another error. Anybody has any idea how I can return a cursor from a SP Thanks. PS. I want to expand on that ANY LENGTH issue in the next bill. Tag: dropdown list box
- 9
- Compatability with old FoxPro and dbase I have been a casual user of Foxpro to do data analysis as part of my job of business strategy. I know the old FoxPro/Dbase programming language - I'm going back to 15-20 years ago ... SET FILTER TO ... SET INDEX TO ... TOTAL ON ... and so on. Does Visual Foxpro 9.0 have those commands Can I type them into a program after opening a file with "MODI COMM xxxx" Or are these commands only constructable from menu-driven pick-lists Will databases created in Dbase and Foxpro years ago work with the current versions of Foxpro Can I access these old data structures with "OPEN _____" etc. Tag: dropdown list box
- 10
- Replace character in a field I need to perform an update on a table, replacing a charcter (+) with another one (x) In SQL Server I Write Update <Table> Set Field = Replace(Field, '+'. 'x') With a dbf table it doesn't wotk and I couldn't find out how to do this. To be more specific, my table has a field (named flags), and it can be filled like this: i + xx i++ x+ +++ i+ I have to replace all '+' with 'x' to heve this result: i x xx ixx xx xxx ix Can anyone help me, please Tag: dropdown list box
- 11
- help needed on troubleshooting label printer problem I've inherited a Visual Fox Pro application (originally written in Foxpro for Windows, but more recently compiled with VFP 7 and then VFP 9). It creates several different types of labels using the standard .LBX and .LBT files that the Foxpro label designer creates. (All of the users are running the application on Win XP SP2 machines.) The labels were designed using a Smart Label Printer Pro/220. The label printers are hooked up as local printers (but not the default printers) on the users' PC's. Over time, several of the users had swapped their SLP Pro/220 label printers with SLP model 240 label printers. When the users installed this newer model printer, they were smart enough to understand that after they installed the model 240, they had to rename the printer in the Windows printer list to be "Smart Label Printer Pro/220" rather than allow its normal installed name of "Smart Label Printer Model 240". Most of the time, this renaming trick worked with no problem, and the labels would print out on the Model 240, even though the Foxpro label template file had been created with the Model 220. However, after some time of use, the label printer would quit working and the user would receive a printer error when they tried to print labels. (No specific error message was shown... the printer icon in the windows tray would just display a red question mark/trouble overlay, and the print job would just hang with this error indication. The print job was correctly being routed to the label printer, even though it was not the default printer.) The problem could be resolved by re-installing the Model 240 printer drivers, and the label printer would again start working until the next time it started giving errors. This working period could last anywhere from several hours to several weeks. My QUESTION: Any suggestions as to what might be causing the printer to stop working Could there be some remnants of the Model 220 driver buried somewhere in the registry that, depending upon some other programs being run by the user, could somehow corrupt the Model 240 printer driver Would the problem be permanently eliminated by just re-doing the Label forms using the newer model printer Why would having to keep re-installing the driver be necessary I'm researching this along a number of different lines... any hints or reports of similar problems would be helpful. Thanks.. Jim Tag: dropdown list box
- 12
- How to Lock a file in VFP 6.0 so that cannot access it externally through my computer ? Hi, I have a normal text file (.txt) that contains some user permissions. I want to restrict the window users so that they can not open, edit or delete it externally through my computer or windows explorer. When they will try to access the file, it should show a messagebox that displays like "Access Denied".(during the program execution and after the prog. execution). And the file should be opened by my Program only where I can manipluate it. So plz anybody who can help me... With regds nrpanda ---------------------------------------- A MS VFP 6.0 programmer Tag: dropdown list box
- 13
- VSF 6.0 Reports & Subreports Good Morning to everyone. Do you know whether is possible to call a subreport from a report I have read the guidelines and it seems to me that's not possible but I am not sure. Thank you for yr kind help and collaboration. Best Regards TdP Tag: dropdown list box
- 14
- DBF with 503 fields Hello All. I have a DBF with 503 fields in my server . I could able to open in read only using dBase V. The dbf is updated thru an application. I want to query the file using VB or VFP. Thanks for all inadvance . Hari Tag: dropdown list box
- 15
- check for filetype Ok...I'm Back...LOL I'm trying to modify and old custom program someone made for us years ago. Simply to move files from one place to another. Everything works great. I'm trying to check if a file type exists in a directory (since the names will always be changing but the file type will always be a .jpg). If it does, then copy everything in that folder over. if a .jpg doesn't, then give a message saying no file exists. I can get it to check for a file and do it, but not a file type. Any help please ____________________________________________ this.enabled = .f. *!* Declares Variable strings local lcFile1, lcFile2 lcFile1 = "copy file c:\client\*.* to c:\server\*.*" lcFile2 = "erase c:\client\*.* " set safety off if file("c:\client\cat-tree.jpg") thisform.CntFileList2.labelinfo.caption = ; "Copying File to Software" thisform.CntFileList2.labelinfo.visible = .t. thisform.CntFileList2.visible = .t. thisform.CntFileList2.Check1.caption = "Moving Photos..." thisform.CntFileList2.Label1.visible = .t. &lcFile1 thisform.CntFileList2.Label1.caption = " " thisform.CntFileList2.Check1.value = 1 messagebox(" Move Complete ", 64, "My Company") thisform.CntFileList2.visible = .f. thisform.CntFileList2.setall("value",0,"checkbox") thisform.CntFileList2.setall("caption","","checkbox") thisform.CntFileList2.setall("caption","Copying","label") thisform.CntFileList2.setall("visible",.f.,"label") else messagebox ("No valid files exist.") return endif *!* Delete old photos thisform.CntFileList2.Label1.visible = .f. &lcFile2 set safety on thisform.CntFileList2.setall("value",0,"checkbox") thisform.CntFileList2.setall("caption","","checkbox") thisform.CntFileList2.setall("caption","Moving","label") thisform.CntFileList2.setall("visible",.f.,"label") thisform.refresh() Tag: dropdown list box
- 16
- FOXFIX5.DLL and Windows 2003 Server I seem to be having a problem using foxfix.dll on a windows 2003 server. The error message generated is cannot load 32-bit dll c:\foxfix\foxfix5.dll. Any ideas... seems to work ok when run from my windows xp workstation. Stuart Tag: dropdown list box
- 1
- Next
- 1
- How to select a record from a Grid and open a form Hello, I'm new to VFP 9, but I'm working at it.. I have a simple form that displays a Grid with my customer records. I would like to double click and or press the enter key on a given record on the grid and open a form to make editing earier and then return to the grid when I'm done. Can anyone give me some help with this... Thanks...Scott Tag: dropdown list box
- 2
- form help hi! i create a simple table as below field name datatype name c address c state c photo memo(binaray) now i create a form with all field but i want photo from my file how do i get from file ( with button ) and save for record thanks Tag: dropdown list box
- 3
- building dll get "Allowed DO nesting or expression..." error Hi, guys I got a " Allowed DO nesting or expression evaluation level exceeded ." error when I tried to build a dll file. What's weird is that my co-worker using exactly the same code with me, but he can build a dll without that error. So I think that mayby it's have something to do with foxpro's setup I looked under Index in Help for "error messages" ... "alphabetical order" and found that I can use STACKSIZE = nValue to set stacksize in config.fpw, but it just not work. So...don't know yet, still trying. Any help By the way, I use FoxPro 9 with SP1. Thanks a lot. Lisa Tag: dropdown list box
- 4
- how do i disabled a mouse and esc at runtime? good day to the experts... i have just recently discovered this error no matter how i plug it still works... my form has a text field for typing a message and a send button for the message to be sent to the server, but when i hold down the button key and press ESC at keyboard, it got an error message ( "execution interrupted" 'CANCEL, RETRY, IGNORE' )..which-ever i press naturally my applic. will exit even if i point at label or listbox,or combo and hold down the left mouse button then press ESC, its d'same, it's "interrupted error message." so what i do i put a ON KEY LABEL ESC * at INIT but it won't work i put another plug below if inkey()=27 message.... endif it doesn't work either.. is this a bug or i miss something in my code thank you very much for any help Tag: dropdown list box
- 5
- Valid event Hi, I need to put a validation to a textbox field. I put some code in valid event. But when users enters a wrong value appears a message generated by visual fox pro: "entrada no valida"; How can I disabled this system message and use a messagebox to display my own messages . When user enters a wrong value, I write that valid event return false. Thanks, Tag: dropdown list box
- 6
- Why my VFP exe file cannot be launched? I complied my program under VFP6 into an exe file in the program folder. But it cannot be launched. I believe there is nothing wrong with the code, because I just made a minor change. The funny thing is that if I copied the file to other folders on the same drive, it works! And even more wear is that some old version VFP exe files could not be launched from within that program folder, either. I have to copy them out to test. It only happens to VFP exe files. Other exe files are OK. It did the same with VFP9. Any idea what could be the problem Tag: dropdown list box
- 7
- I can't see the content of the last field of the record I tryed to open a "dbf" table with VFP to read some data with mi preferred platform (VFP). But in the last field of the record I can't read the right data (VFP return all blanks fileds). If I try to MODIFY STRUCTURE of the table in VFP the lenght of the record is 1614 bytes, an other utility for managing dbf table give me a record size of 1870 bytes. Is there a way to read this table correctly with VFP Tag: dropdown list box
- 8
- replace image with own name hello! is any way replace my image with include reeno or any field data like i take image from my webcame and it store in one folder after that i use replace command so it save path in my field but when i replace that time image name want to change here is my code below DO [C:\Program Files\EZTwain\VFP\EZTwain.prg] TWAIN_SelectImageSource(0) * Get list of devices into memory TWAIN_GetSourceList() LOCAL lcFile, lnImageHandle, lnReply lcFile = "C:\Documents and Settings\sony\My Documents\New Folder (2)\PHOTO\.BMP" * Get the image lnImageHandle = TWAIN_AcquireNative(0,0) * Write the image to a disk file lnReply = ; TWAIN_WriteNativeToFilename(lnImageHandle,lcFile) * Release the image handle TWAIN_FreeNative(lnImageHandle) * Check for errors IF lnReply = 0 * image successfully written to file ELSE * something went wrong ENDIF clear resources thisform.image1.picture = m.lcFile REPLACE TABLE1.IMAGE WITH THISFORM.IMAGE1.Picture Tag: dropdown list box
- 9
- date problem Hi, I have to append data from an excel file to a fox file. A cell in excel has date data in format : "dd/mm/yyyy" and in fox the table has a character field. When I execute the command, it sometimes appear in the fox table a number that doesn't have any resemblance to the date data. How can I solve this . Thanks, Tag: dropdown list box
- 10
- Close system toolbar of foxpro Can you modify the Close button on Print Preview toolbar in Visual Foxpro 6.0. I need to remove the picture of Close button and put the text "CLOSE" on the button. can you do this in VFP 6.0 Please help. Thanks, Sanj. Tag: dropdown list box
- 11
- SQLServer's scope_identity() and VFP's remote views Hi, I'm using VFP9 and I use remote views that back into SQLServer 2000. What I'd like to be able to do is use SQLServer's scope_identity() function to return the identity value generated upon inserting (and performing a tableupdate()) a new record into an updatable remote view that backs into a SQLServer table with an identity field as its primary key. The problem I'm having is that scope_identity() returns null in this situation. eg. insert into my_remote_view (field1) values ("blah") tableupdate(0, .T., "my_remote_view") Sqlexec(Cursorgetprop("ConnectHandle", "my_remote_view"), "select scope_identity() as LastIdentity", "ScopeIdentity") ScopeIdentity.LastIdentity && this prints null If I use sql pass-through (sqlexec()) to insert the record then there is no problem, scope_identity() returns the identity value as expected. If I use @@Identity instead of scope_identity() then an identity value is returned, but since @@Identity is not 100% reliable this is of marginal benefit. It seems like a remote view's update action has its own scope that ends once the update is committed, while its session persists - hence @@Identity works and scope_identity() does not. I suppose I could try using a cursoradapter and alter the UpdateCmd property to include code to use scope_identity(), but I don't really want to go down this route since I'm working on a large application that makes extensive use of remote views and only peripheral use of cursoradapters. Has anyone found a way to use scope_identity() with a remote view Thanks in advance. Paul S. Elliott Tag: dropdown list box
- 12
- SQL Server Express & Foxpro-populating SS from Foxpro I've placed more of the code at the bottom of this message. The problem is with the Insert command with SQLEXEC. If I use: lcStr = ["INSERT INTO SAUTHORS(firstname,lastname) values ('] + m.firstname + [','] + m.lastname + [')"] lnResult=SQLEXEC(m.lnConn, m.lcStr) The error I get says: Connectivity error:...Could not find stored procedure 'INSERT INTO SAUTHORS(firstname,lastname) values ("Kareen","Abdul-Jabar")'. If I use: lcStr = ['INSERT INTO SAUTHORS (firstname,lastname) values ("] + m.firstname + [","] + m.lastname + [")'] lnResult= SQLEXEC (m.lnConn, m.lcStr) I get an error that says Invalid Syntax. Can someone steer me in the right direction I want to populate empty SQL Server Express tables with data from FoxPro tables (that are getting too big). Thank you! USE authors IN 0 SELECT *; from authors; WHERE pkey > 0; INTO CURSOR sqlAuthors readwrite USE IN AUTHORS SELECT sqlAuthors INDEX on UPPER(lastname)+UPPER(firstname)+UPPER(middle) TAG lastname lnConn=SQLSTRINGCONNECT("dsn=DataSrc1;UID=MOMNEW\Diana;PWD=") =SQLEXEC(m.lnConn, 'use books') && use sauthors = SQLSETPROP(m.lnConn, 'Transactions', 2) && Manual transactions SELECT sqlAuthors SCAN llSuccess = .t. SCATTER MEMVAR MEMO firstname = ALLTRIM(m.firstname) middle = ALLTRIM(m.middle) lastname = ALLTRIM(m.lastname) lcStr = ["INSERT INTO SAUTHORS(firstname,lastname) values ('] + m.firstname + [','] + m.lastname + [')"] lnResult=SQLEXEC(m.lnConn, m.lcStr) IF lnResult = -1 llSuccess = .f. =MESSAGEBOX(MESSAGE(),0,"ERROR OCCURRED") ENDIF Tag: dropdown list box
- 13
- impersonateloggedonuser and Getfil() Iam running VFP 9 with SP1 under windows 2k. In order to protect my database/table files on a network I have created a single user who has access to the folder where the files are contained. This is the only user with access to the folder. When an individual on the network runs the application the application logs on as that user and has access to the database files...the code goes like this.... #define LOGON32_PROVIDER_DEFAULT 0 #define LOGON32_PROVIDER_WINNT50 3 #define LOGON32_PROVIDER_WINNT40 2 #define LOGON32_PROVIDER_WINNT35 1 #define LOGON32_LOGON_INTERACTIVE 2 #define LOGON32_LOGON_NETWORK 3 #define LOGON32_LOGON_BATCH 4 #define LOGON32_LOGON_SERVICE 5 #define LOGON32_LOGON_UNLOCK 7 DECLARE integer LogonUser IN AdvApi32.DLL; string szUsername,; string lpszDomain,; string lpszPassword,; integer dwLogonType,; integer dwLogonProvider,; integer @phToken DECLARE integer ImpersonateLoggedOnUser IN AdvApi32.DLL integer hToken DECLARE integer RevertToSelf IN AdvApi32.DLL public nToken nToken = 0 lu=LogonUser("vuser","domain","password",LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, @nToken) ip=ImpersonateLoggedOnUser(nToken) This all works well and gives the desired result...the files are accessable to the application only and when done the application issues '=REVERTTOSELF()'. The problem comes in after I issue the Impersonateloggedinuser call I can no longer get the GETFIL() function to work in VFP. The easiest way to reproduce this is to run the above code in a prg and execute GETFIL() from the command window. This fails for me, as it does in my larger application. Any help is appreciated Roy Tag: dropdown list box
- 14
- Column totals for report Hey everyone, I'm creating a report and need the totals of a column in a table but I can't figure the code to get the total of the column. I'm sure its very simple, I'm just having a heck of a time with it. Thanks in advance, Kadrin Tag: dropdown list box
- 15
- Application cannot run after compile I have a visual foxpro project and compile it in Win32 system application, with Build in the project. But after compilation, the program cannot run. When complie it, I've including the VFP9.DLL and VFP9RENU.DLL files in the project directory.......Please help me...thank's.... Tag: dropdown list box
- 16
- file question Hi, I want to to know if there is a function or command to create a directory in visual fox pro 7. For example, I want a new directory called: 'c:\users\test' . Thanks, Tag: dropdown list box
- 1
- Previous
Re: dropdown list box
dni
It should work.You may try to put code in load method. If you need only for display purpose you may use property DisplayValue.
Re: dropdown list box
Hans L
I will try
Load ¨C Value
Load ¨C Display value
Would you by any chance know how to create that elusive DropDown List Box
Hans L
I will try
Load ¨C Value
Load ¨C Display value
Would you by any chance know how to create that elusive DropDown List Box
Hans L
Re: dropdown list box
Vladimir Zografski
Hi Hans TAG() return in UPPER
Try This
Hi Hans TAG() return in UPPER
Try This
Code Block
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
**************************************************
*-- Form: form1
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT combo1 AS combobox WITH ;
Height = 31, ;
Left = 65, ;
Style = 2, ;
Top = 58, ;
Width = 225, ;
Name = "Combo1"
PROCEDURE Load
CREATE CURSOR Temp (FldInt I,FldChr C(20), Fld3 C(20))
INSERT INTO Temp VALUES(1, [dsgf],[fjg])
INSERT INTO Temp VALUES(3, [sdfd],[xcb])
INSERT INTO Temp VALUES(2, [xcvx],[cvb])
INDEX ON FldInt TAG Alpha
INDEX ON FldChr TAG Bravo
INDEX ON Fld3 TAG Charlie
SET ORDER TO Bravo
ENDPROC
PROCEDURE combo1.Init
This.AddItem('Alpha')
This.AddItem('Bravo')
This.AddItem('Charlie')
This.AddItem('Delta')
This.AddItem('Echo')
This.AddItem('Foxtrot')
DO CASE
CASE UPPER(TAG()) = UPPER('Alpha')
THIS.Value = 'Alpha'
CASE UPPER(TAG()) = UPPER('Bravo')
THIS.Value = 'Bravo'
CASE UPPER(TAG()) = UPPER('Charlie')
THIS.Value = 'Charlie'
CASE UPPER(TAG()) = UPPER('Delta')
THIS.Value = 'Delta'
CASE UPPER(TAG()) = UPPER('Echo')
THIS.Value = 'Echo'
CASE UPPER(TAG()) = UPPER('Foxtrot')
THIS.Value = "Foxtrot"
ENDCASE
ENDPROC
ENDDEFINE
Re: dropdown list box
Hans L
Vladimir, if I had only read your first line ...
"TAG() return in UPPER"
... carefully! That was the problem. It now works like a charm.
Thank you,
Hans L
Vladimir, if I had only read your first line ...
"TAG() return in UPPER"
... carefully! That was the problem. It now works like a charm.
Thank you,
Hans L
Re: dropdown list box
dni
Good point ! I did not know TAG() returns a uppercase character string.
Re: dropdown list box
Hans L
You can see it in that when you add the tag name in project.table, if you add lower case, it sooner or later changes to upper case. But it did not tip me off either.
Hans L
dni wrote:
Good point ! I did not know TAG() returns a uppercase character string.
You can see it in that when you add the tag name in project.table, if you add lower case, it sooner or later changes to upper case. But it did not tip me off either.
Hans L
Re: dropdown list box
Vladimir Zografski
Hi Hans,
Glad to be of help.
I'm sorry for my bad english.
Hi Hans,
Glad to be of help.
I'm sorry for my bad english.
Re: dropdown list box
Tamar E. Granor
A dropdown list box is just a combo with Style set to 2.
Tamar
A dropdown list box is just a combo with Style set to 2.
Tamar