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.
Combo
Visual FoxPro General
-
- Previous
- 1
- passing variables to reports without declaring them as public. Report sees LOCAL variables just fine. It also sees thisform properties and methods, so you can have local lcTitle lcTitle = 'My Title' report form myReport preview and use lcTitle in the report. You can also have thisform.MyMethod() which returns preformatted string and use thisform.MyMethod() in the report. We discussed this topic here few times, try to search on 'local report' Tag: Combo
- 2
- Merge 2 text file Hi Markish, Sorry maybe I didn't make it clear just now. Actually what I wanted to do is as following:- I have one file call product.dbf another file call destination.txt Product.txt product id description product group A01 ball pen pen Destination.txt destination id name P01 penang I want the output to be like this:- product id description product group destination A01 ball pen pen penang Kindly advise. Thank you. Tag: Combo
- 3
- File In Use Code Block string strScript = @" if ( USED ('crossRefTable')) USE IN 'crossRefTable' ENDIF use crossRefTable in 0 exclusive SELECT 'crossRefTable' pack "; /* StringBuilder sb = new StringBuilder(); sb.AppendLine("if (USED('crossRefTable'))"); sb.AppendLine(" USE IN 'crossRefTable'"); sb.AppendLine("ENDIF"); sb.AppendLine("use crossRefTable in 0 exclusive"); sb.AppendLine("pack"); */ OleDbConnection con = new OleDbConnection( strCon ); OleDbCommand cmd = con.CreateCommand(); con. Open (); cmd.CommandType = CommandType.StoredProcedure; cmd.CommandText = "ExecScript"; cmd. Parameters . Add ("myScript",OleDbType. Char ). Value = strScript; // cmd. Parameters . Add ("myScript",OleDbType. Char ). Value = sb.ToString(); cmd.ExecuteNonQuery(); con. Close (); The key point is that unless you close the connection, from one ExecScript to another table is open. Second call causes the error to occur. It is closed with if used() check. PS: In your second SQL replace = operator with == (like C#'s ==). It tells regardless of ANSI setting make an exact comparison (trailing spaces are ignored). Tag: Combo
- 4
- New Grid Columns Thanks but no, I have to many properties to write in loop. I'm looking for something like "save grid environment" or "save grid default properties" if exists. Tag: Combo
- 5
- Define window in VFP This must be the day for BROWSE questions. The right answer to your question is "don't use BROWSE." Use a grid instead, which makes it easy to integrate with a set of edit boxes on a form. As for linking the grid and the edit boxes, all you'll need to do is call the Refresh method of the form in the grid's AfterRowColChange event. Tamar Tag: Combo
- 6
- DBF with 503 fields Dear Cetinbasoz Will you please tell me which odbc driver I should use to query. Tag: Combo
- 7
- Command Window in Vista I have VFP9 on two Vista machines here, one a desktop and one a laptop. Neither one of them display the behavior you are outlining in your post. You may have something odd loaded on your Vista installation that causes that to happen. Tag: Combo
- 8
- Migration from VFP6 to VFP9 Migration should be very easy."Serious big applications" can be converted without problems, just recompile or you may add application items to new project, one by one to find quick module with problems if any. Tag: Combo
- 9
- Documentation Wizard AFAIK, the Documenting Wizard is FoxDoc, just with a new interface. Tamar Tag: Combo
- 10
- Visual fox pro table Sorry I didn't explain myself properly above. This is the first time that I work on this environment. They want to ship daily copies of the FOX PRO tables from an intranet to an external SQL server (located in a hosting center). I know I can export them to sql server and setup replication between them But we want to skip this step. How would you guys do it Thanks in advanced Tag: Combo
- 11
- how to store encrypted passwords .. You can also write some form of simple encryption within VFP. Not anything serious, but if you simply don't want the password to be saved in clear text, you can do something like rot-13 or some other process to mess up the password and unmess it when reading it. Tag: Combo
- 12
- Persistent Connections... Maybe I've thought about it all wrong. But, I thought the resources were client side resources that could be used up without connection pooling rather than the possible load on the server side. It just makes sense to not have to re-establish yet another connection on the client side if you can simply re-use one that was already established. It avoids the overhead of firing up yet another one. INFO: Frequently Asked Questions About ODBC Connection Pooling http://support.microsoft.com/default.aspx scid=kb;en-us;169470 Tag: Combo
- 13
- memo field in browse Thanks but none of those helped. I don't know if this has anything to do with it but I am constantly finding a reference to fox pro classes being at program files\visual studio\vfp98\wizards instead of vfp9. The only computer it works on is the one that does have visual studio/vfp98 on it . My program is a work in progress since the early nineties and several foxpro editions so it is hard telling what is going on. Tag: Combo
- 14
- thumb print scanner Hi, I think, you are reffering to "Fingerprint Reader". If yes, AFAIK the model themselves come with seperate software and communication kit (RS 232 / RS 485 ). With this help you can download the report from the scanner / reader to the pc and process them. Best regards, Markish Tag: Combo
- 15
- Catch "The uniqueness of primary or candidate key is violated." (Error 1884) in Browse window There are several solutions to the problem. One is using an error handler as Markish showed (works with browse too - check 'on error' for samples ). My preference is not to let the error occur in the first place (for primary keys). For PK IMHO it should be a generated id and not something user can create/change himself (surrogate key). Check nextid example in solution app and autoinc fields for integer type PKs. I prefer to use GUIDs which do not need any special checking. For candidates however you should check and prevent the message. Using buffering helps in that case. You check the value before it's checked and attempted to be updated by VFP. For example using indexseek(). There are other ways too but these are easier basic ones. Tag: Combo
- 16
- unique thanks for your reply i am using vfp 8.0 can u tell me where i have to put index on id tag dl# in main prg or form load Tag: Combo
- 1
- Next
- 1
- Problems Inserting fields into Table from cursor Kadrin, I assume that when there is a NULL in curtbl1 that you want a record in tbl2, but without a NULL value. If not please advise. I suggest you try using NVL(): Code Snippet Do while !EOF("curtbl1") insert into tbl2(id,name,description) values( NVL(curtbl1.id, "NULL") , curtbl1.name, curtbl1.description) ENDDO I hope that helps, Stewart Tag: Combo
- 2
- Command Window in Vista I have VFP9 on two Vista machines here, one a desktop and one a laptop. Neither one of them display the behavior you are outlining in your post. You may have something odd loaded on your Vista installation that causes that to happen. Tag: Combo
- 3
- grid.afterRowColChange event seems to fire twice - once before moving to the new cell... No thoughts anyone Well, using the rowColChange property I now check to see if anything change and don't fire my update code until it does. I thought I'd post this in case someone else ran into the same 'wall'... :-) Rob. Tag: Combo
- 4
- How to select a table while it is being used in a form? Thank you Naomi for your immediate reply. The funny thing is when you run the form and prg from the command window, it is OK. But if you put these two under the menu and send the cursor results to printer (It is OK to preview on the screen.) you miss one of the columns. The Prg file look like this Code Snippet SELECT 0 cselect = 'orders' IF NOT USED(cselect) USE &cselect IN 0 SELECT &cselect ENDIF Select 0 SELECT gys from &cselect ; Where not EMPTY(ALLTRIM(gys)) Order by gys into cursor gyslist distinct SELECT gyslist cgys = '' IF .NOT. RECCOUNT('gyslist') = 0 GO TOP DO WHILE .NOT. EOF() cGys = ALLTRIM(gyslist.gys) SELECT * from &cselect ; where not EMPTY(ALLTRIM(gys)) and cgqdbz = .F. and cgsl > 0 and ALLTRIM(gys) == cGys ; into cursor excelfile SELECT excelfile REPORT FORM sendorder TO PRINTER NOCONSOLE && hit "Variable fax not found" error * REPORT FORM sendorder preview NOCONSOLE && it is perfect with this line SELECT gyslist SKIP ENDDO ENDIF More interesting is that if I insert a browse command, it can print as normal. Like this browse report form .....to printer nocons Tag: Combo
- 5
- Child table Did you resolve this problem Tag: Combo
- 6
- requery() on remote view returns -1 Usually: "REQUERY( ) is typically used to refresh a SQL view when data has changed on the data source." There is a bug regarding requery solved with SP1 in vfp9 : http://support.microsoft.com/kb/907737 Tag: Combo
- 7
- How to view the content of a cursor? Hi, After select "X" as dbcase from test1_cursor union all; select "Y" as dbcase from test2_cursor; into cursor temp_cursor i> I need to view the content of temp_cursor, Is it correct to use: select temp_cursor browse ii> Is it correct to say that union all means content selected from test1_cursor or test2_cursor Regards, BIT Tag: Combo
- 8
- Import Excel 2007 files If you don't use OleDb, you may try to export from excel in CSV format (text file) and import it with Vfp. Tag: Combo
- 9
- "Cannot find the menu-generation program." Thank you very much, Cetin. You've saved me so many times in the past. How does this stuff become corrupted I use this FoxPro app every day, closing and opening it perhaps 10 times daily. It has been debugged all right but occasionally I have to make minor changes when format of some input stream changes (I download files from the NET). Then I try to rebuild the project and .... a file has been lost and I have to recall what I did two years ago. Tag: Combo
- 10
- After importing data Please help! I have followed the import wizard to import data to an existing table that forms part of a database which in turn is the basis for a program. The new data appears in the database table (with a black bar running down the side of it), but when I open the program, the new info does not appear What am I doing wrong Tag: Combo
- 11
- image In addition to great Don's reply you may review past threads on the same topic. I've searched by 'image' and found lots of hits. This one, for example, http://forums.microsoft.com/msdn/showpost.aspx postid=1624097&siteid=1&sb=0&d=1&at=7&ft=11&tf=0&pageid=1 and check Cesar's link at the bottom. Tag: Combo
- 12
- Working with field General! Just to add to what Alex said: DON'T USE GENERAL FIELDS! (Are you seeing a theme here.... ) Tag: Combo
- 13
- Filename and nullchars Greetings Cetin, maybe am not explain correctly. use this code: LParameter pParam1 wSysPath =AddBS(JustPath(Sys(16,0))) cString =Chr(0) + pParam1 + Chr(0) nEMLs =aDir(aEMLs, pParam1 + "\*.*") For iEMLs =1 To nEMLs cString =cString + aEMLs[iEMLs, 1] + Chr(0) EndFor =StrToFile(cString, AddBS("C:\Test.TXT") =MessageBox(FileToStr("C:\Test.TXT")) Give a folder like "C:\" as a parameter Messagebox will show an empty message. Open the Test.TXT with notepad and you'll see this strange chars like these: ³ß ±—ý ”ªªžÍ£œ£ › Þô ‚ÈÞæs L Õ§ L Õ§ L ëó L L L L ¿Ð L ‡o L µÍ Ö® L Am using the VFP9 SP2 (October CTP) and my Windows is Portuguese. The font in NotePad is Courier New. DaCosta11 Tag: Combo
- 14
- Export DBF into Text file Sir , it does not work correctly. The foolowing problem will occure 1) The file was all one big long line with no indication on when a particular record ended 2) if any name or address contain a comma character, it treated it like the end of that field/column and that meant that the values all went into the wrong columns We also tried COPY TO MyTextFile TYPE DELIMITED With Tab And it also had problems. 1) The file was all one big long line with no indication on when a particular record ended 2) It sometimes had extra tab which meant that the values when into the wrong column Tag: Combo
- 15
- Olecontrol parameters txtPortNoText = "5005" .SetIPAddress("192.168.1.201", val(m.txtPortNoText)) Tag: Combo
- 16
- Column totals for report Hm, I am trying to get it to print in a group footer. But when I do as you said it says "sum.prg does not exist." Tag: Combo
- 1
- Previous
Ahsan Amin
Re: Combo
Naomi Nosonovsky
You're doing something really strange. Please list all the properties for your combobox. Is it bound (e.g. does it have a ControlSource) If yes, then the correct value should automatically appear.
You can also always try thisform.ComboBox.ListIndex = 1 to select the first item in the list.
Re: Combo
MarciaAkins
Ahsan Amin wrote:
LOCAL nCnt
FOR nCnt = 1 TO thisform.cboCourse.ListCount
IF thisform.cboCourse.List(nCnt) = ALLTRIM(a_Courses.CourseName)
thisform.cboCourse.Selected(nCnt) = .t.
ENDIF
ENDFORBut selected item is not apearing on top of the combo's list.
I bet this code is in the Init() of your form. If so, this is a known bug and is documented in the knowledge base:
Set the combo's ListIndex to 1 instead
PSS ID Number: 177340
Article Last Modified on 12/11/1999
Re: Combo
Ahsan Amin
yes this code is written in form's Init event and i set it's control source on run time and other like
BoundColumn = 1
RowSource = a_courses.coursename
RowSourceType = 6 - Type
in property window. I have not set it's ListIndex propery yet.
Re: Combo
Ahsan Amin
yes this code is written in form's Init event and i set it's control source on run time and other like
BoundColumn = 1
RowSource = a_courses.coursename
RowSourceType = 6 - Type
in property window. I have not set it's ListIndex