Answer Questions

• Kayda_SQL How to remove redundant phrase in field?

  Hi all........ I have a table field that contains things such as..... V DISCONTINUED W/O REPLACEMENT; V DISCONTINUED W/O REPLACEMENT -I&S MASTER; 7 SUB 2610-139-3704; I&S MASTER; 7 SUB FOR 2610-139-3704 What I need to do is remove the duplicate phrases, leaving only one instance of each phrase in the field. The amount of phrases in the field varies...could be 2 as shown above or there could be 6. I suspect that the 'common denominator' is the semi-colon, but everything I've tried has failed. Any help is greatly appreciated! Please make several tests and revise the results well, since you could ruin the data easily with this method. You ...Show All

• espenhjo System resolution

  Hi. How can I find out what the system resolution is, and how can I change it via FoxPro Thanks Simple one, My formulars are quite big and when the system run on 640x480 and the grafic card and monitor permit higher I it will be better to ask thrue the program the user whether the program can change the resolution to the requested one. Why not to display whole form insted of parts of it. I want the solution, if anybody know how to do that I will be glad if he tells me. Thanks ok, and the solution how to change the system resolution is You find it via SYSMETRIC(1) and SYSMETRIC(2) Changing it is a very bad idea. I ...Show All

• Mowali Grid sorting

  Hi; I have a grid which is populated with the results of a SQL query. I need to sort the grid depending on which column header the user clicks on. I have not done this ever and I was wondering which is the correct approach: - After I run the SQL query, run a series of 'index on' commands so I can use the indexes. - Run a secondary query on the results of the query to produce the proper order when user click a header. - Some other way - Which is probably the case :-) Thank you all. If you are using VFP 9, you can use BindEvent() like this in the grid's Init(): FOR EACH loColumn IN This . Columns FOR EACH loControl IN loColumn . Controls *** Now make ...Show All

• smattessich SELECT .... INTO TABLE <existing table>

  G_TempDBF = "C:\scratch\" + SUBSTR(SYS(2015), 3) + ".DBF" SELECT field1, field2 FROM myTable INTO TABLE (G_TempDBF) USE (G_TempDBF) ALIAS CUSTOMER INDEX ON field1 TAG field1 I have created a temporary table, stores the retrieved records into it and alias it CUSTOMER How can i reuse this temporary table for other SELECT statements SELECT field3, field4 FROM myTable INTO CURSOR CUSTOMER ---> results in an error saying Alias CUSTOMER has been used. Hi Andy, In old versions, I'd claim and could demonstrate: If "nofilter" or other techniques are used to create a true cursor, no matter the size is (fits in memory or not), a file on disk is allocated ...Show All

• Tess_H VFP 3.0 on XP

  I need VFP for a small project, and I don't want to spend USD 600 for a new version (is there a beta version still available ) Is it ok to install VFP 3.0 on Win XP Thank you, Tor Henrik Ken, I like the hammer vs nail gun analogy!!! Lamon > i'm currently using vfp 6.0 for almost 4 months. So far, it does not give any problem. What's the difference between vfp 6.0 and 7.0 See:  http://fox.wikis.com/wc.dll Wiki~VisualFoxProVersionFeatureConcordance   Note: You should always start a new thread when asking on different subject. i'm currently using vfp 6.0 for almost 4 months. So far, it does not give any prob ...Show All

• ScaryKidsScaringKids Change default printer works only once

  This one is weird... I use the followin function to change my default printer: FUNCTION SetaImpDefa(imp,muda) Declare long WriteProfileString in "kernel32" ; string lpszSection, string lpszKeyName, string lpszString Declare long SendMessage in "user32" ; long hwnd, long wMSg, long wParam, String lParam if muda HWND_BROADCAST = -1 WM_WININICHANGE = 26 endif printer_name = imp printer_buffer = space(200) * len_ret = GetProfileString("PrinterPorts", printer_name, "", ; @printer_buffer, Len(printer_buffer)) printer_buffer = left(printer_buffer,len_ret) * printer_driver = left(printer_buffer,at(',',printer_buffer)-1) printer_buffer = substr(printer_buffer,at(',',printer_buffer)+1) * printer_port = left(printer_buffer,at(',',printer_ ...Show All

• MikeLR Sequential Transaction Number

  I'm working on a form that needs to have a sequential transaction number. I have a Database/Table (named Trans) in place that has a single record that holds the next transaction number. I'm not sure what the best way is to have the next transaction number appear in a field on my form. Right now I have a field named T_TRANSNUM that has it's data property set to w_trans.t_transnum. t_transnum is the name of the database field where I want the transaction number stored when the form is saved. In the INIT method of T_TRANSNUM I have the following: STORE 0 TO T_VALUE SELECT TRANS GOTO 1 STORE trans.trans_num to T_VALUE REPLACE trans.trans_num with T_VALUE + 1 this.value = T_value What is happening is that the value is displayed in the form, but ...Show All

• mangu Proper practice - edit a table in a grid.

  Hello everyone; I have a very simple form with a grid. The grid's record source is set to a cursor which contains a subset of a single table: Select * from PriceList where acct = cSomeAcct into cursor curPl I would like to add an edit button on this form which will alllow the user to edit the grid and update the Pricelist table. My question: What is the recommended way of doing this I thought of a few ways including issuing a "delete" and then an "append from", or maybe updatable views. How would you do this Thank you all. Hi Cetin >> I don't understand where I meant to use filters. I agree editing in a grid is not trivial but it works quite well ...Show All

• DaGlow How to check if a control exists?

  Hi. How can I go about checking if a control, eg Label, exists on a form Thanks Hi, I don't know if any built-in function exists, still you can go about having your own udf iterating though the form.controls array. Something like Func Ifobjexists Para cobjname for ii=1 to thisform.controlcount if thisform.controls(ii).name==cobjname return .t. endif next ii Return .f. I've not checked.... But I feel It'd help you. Regards, Markish Look in help for PEMSTATUS() http://msdn.microsoft.com/library/default.asp url=/library/en-us/dv_foxhelp9/html/1a82169f-fe6a-4631-a9c3-d106d127046b.asp frame=true PemStatus(ThisForm,"label1",5) ...Show All

• CalinMac Dbf Autoincrement with ADO

  Hello everybody, I created a table with an autoincrement field( CREATE TABLE `Synch_LogFile` ( `ID` I Autoinc NOT NULL, `TableName` C (100) NOT NULL, ...) ) when I try To open it by ADO with VB (Select * From Synch_LogFile) I get this error message: [Microsoft][ODBC Visual FoxPro Driver]Not a table. What's I'm doing wrong Thanks, You may try to disable connection pooling. Runtime error 3251 recordset doesn't support update. It could be a limit of the provider or of the lock type selected Runtime error 3251 Il set di record corrente non supporta l'aggiornamento. Potrebbe trattarsi di una limitazione del provider o del tipo di blocco selezionato (Are you Italian ) 1) it will not work with ODBC and newer ...Show All

• Zulkhairi Safe Select Doubt

  Hello I was trying to use Safe Select, and it doesn' t work, look at the following: * This is the working cursor SELECT code FROM product WHERE 0 = 1 INTO CURSOR tmpProduct * This is the real query SELECT * FROM product WHERE code=7 INTO CURSOR curdummy * Clear the working cursor and append the results of curdummy SELECT tmpProduct ZAP IN tmpProduct APPEND FROM DBF("curdummy") USE IN curdummy Anyone should expect a tmpProduct table filled only with products with a code of 7, but in fact the result is a tmpProduct table filled with all the records in the PRODUCT table. I inserted a BROWSE after I populated the curdummy cursor to see what was happening and it showed the desired results, only prod ...Show All

• Drew Marsh "Select" is different from "browse"?

  I use select and browse with a cursor but I get 2 different result. Code: SELECT refno, ItemID, ItemInvId ,convertquantity from curDetailAlias WHERE ALLTRIM(refno) == b;    ORDER BY ItemID INTO CURSOR curBangDoiTru  Browse last for ItemID = b   Can anybody help me Thanks in advance.   Thanks, I see, then how do I use select sql to insert 2 new records into another cursor Thanks both of you, but I don't think it has a problem with "b" variable, 'coz if I use "XK1063" string instead of b I will get the same result. SELECT * from curlcDetailAlias WHERE refno="XK1063" or BROWSE LAST FOR refno="XK1063" Some new record ...Show All

• jschroeder Foxpro7 crashing with "fatal error exception code=c0000005 ..."

  Hi I have a tricky issue in my VFP7 application. At least tricky for me.  The application is crashing with fatal error C0000005. Sometimes I see a message like this one in the eventlog: "Faulting application <appname>.exe, version 1.4.82.0, faulting module ntdll.dll, version 5.1.2600.2180, fault address 0x00010f29.". Sometimes the application just hangs. I also see the Windows error "The instruction at "0x...." referenced memory at "0x.....". The memory could not be "read"", and then the application is closed, of cource. The error does only appear in situations where I print, but it does not occur in an exact pattern, or when I pass a particular code line. I use a third party dll called foxpp.dll ( ...Show All

• caligula Different computers - different bugs

  I've been modifying a program at my workplace, and while it works on my computer different users will have bugs that I wont. For example a field that contains a books ISBN number will clear itself if a user clicks on it. If a different user clicks on it, it will change to a different ISBN number. This foxpro program is setup on a shared drive and everyone runs it, so both those users and I run the same exe. file, while it runs perfect for me and gives them two different kinds of errors. How do I begin to debug this You might start by renaming your development folder to something else. ...Show All

• ONEWORKNGRL Organizing project files

  I'm trying to clean up unused files. Over the years my.pjt has piled up about 400/800 files of all sorts (.prg, .scx, .vcx, .mnx, .bak, .ini, .xml, .vbr, .err, .dbf, .fpt., .txt, etc.): located in 10 directories ... which is just cluttering up those directories. Is there any suggestable (lazy) way to re-organize and/or clean up (discard old unused files) or copy out only the my.pjt vital files (other than excluded report files, help files, and picture files). Thanks in advance, I just tackled the same problem the other day on a client project. Here's code to compare the list of files in specified directories to the list in a PJX/PJT: * Look for unused code MODIFY PROJECT <your project> nowait oProject = _VF ...Show All