Answer Questions

• Simoyd Programmers out there Pls Help

  Please Help me... I really need a Sample Program its because We have Project and I don't know how to create a Form Program using Foxpro 6 can someone please Help me... Any Program will do... just a simple Program using Foxpro 6 Please I really need some Help anything... just a Simple one... please please just send it on my Email mobidest6600@yahoo.com Thank you Please I really need some Help... I don't know how to use foxpro CodyPasspied wrote: I really need a Sample Program its because We have Project and I don't know how to create a Form Program using Foxpro 6 Please I really need some Help... I don't know how to use foxpro In that case, I wil ...Show All

• ZopoStyle Grid header backcolor not changing

  I searched here, and found nothing... if it was a bug, I'm sure someone else would have found it by now... Migrating from fox 7 to fox 9, ran into this problem. This code... with thisform.grid1 for i = 1 to .columnCount .columns(i).header1.backColor = nHColor if i >= 2 .columns(i).width = nWidth endif endfor endwith no longer works... I even tried a sample form where I used the properties to set the backcolor and forecolor of the column.header... this had no effect... Am I missing something Or is this an undocumented feature Check themes property. If you want colors turn it off. Is there a way to set the back/forecolor properties and have them ...Show All

• Simranjeev COM Automation with Excel

  Here's my problem...I have the program writing to Excel and then opening just fine. What I want it to do though is save the spreadsheet in a newer version (I used "copy to 'filename.xls' type xl5") without having to actually see a prompt from Excel. The reason I'm doing this is for workbook consolodation (I'm writing to several workbooks and want to put them together). You can read more about it in my previous post here: http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=782622&SiteID=1 One of the fast ones: clear Clear All * Create a test cursor Create Cursor testcursor (Rcno i,cType c(10), nType i, dType d) Rand(-1) For ix = 1 To 200000 && Create 200000 recs cursor Insert Into testcursor Values ; (Rec ...Show All

• kevin D. white Mixing XLS and DBF tables

  In l ieu of some latest trends in my FoxPro development I want to know how do you sensible mix Excel .xls tables, workbooks and projects with FoxPro .dbf tables and databases. I have followed Marcia's earlier suggestion to use convert .dbf into .xls for graphs and now I want to integrate my .xls into existing databases. I tried to attach an .xls table to my databases but only could do in the browser as free table. This was to now avail, however, since I could not open it in FoxPro anyway. Another question, somewhat related: I used a wizard to define the connection string to a FoxPro Database. How can I do it if I need to define a connection string to an .xls table What is the equivalent for a database in Excel: a workbook Is th ...Show All

• Chris Marts Domain user as the anonymous account, problems...

  Hi all I have a domain account called sa-inetcms, I run my ASP.Net 2.0 web service under this account (configured in IIS 6.0). However, when it tries to perform an INSERT into a local table on the service, it says that the table (a foxpro dbf) is read-only, I've checked all permissions on the server, the sa-inetcms account has full permissions to everything it needs, yet it still fails. Any ideas what I'm doing wrong Thanks Kev Moving this to the FoxPro forum. Kev, please make sure your application is configured for use Windows Authentication and that you have Impersonation feature turned on. Doing that, your application will run using your windows account. Regards, Rodrigo ...Show All

• Fusion54 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, Use lostfocus instead of valid. ie: *lostfocus if this.Value > 10 && sample - assuming as an ivalid value nodefault this.SetFocus() * messagebox("blah blah") set message to "blah blah" endif ON ERROR * is almost never a good idea. Hiding errors doesn't cu ...Show All

• spectrablue FoxPrint font.

  In order for users to be able to use a font, is it enough for it to reside in the working folder of my VFP app, or do I need to install the actual font Thanks again, Aleniko to use a font you have to load it. In your app declare this API DECLARE LONG AddFontResource IN Gdi32 STRING lpFileName DECLARE LONG RemoveFontResource IN Gdi32 STRING lpFileName At startup load fonts LOCAL cFileName, cHomeDir cHomeDir = AddBs(<YourAppHomeDir>) cFileName = SYS(2000, cHomeDir + 'FONTS\*.TTF') && If Fonts are in <YourAppHomeDir>\Fonts directory DO WHILE !EMPTY(cFileName) AddFontResource(cHomeDir + 'FONTS\' + cFileName) cFileName = SYS(2000, '', 1) ENDDO Clo ...Show All

• dakota367 multiple line data entry into memo field

  I am fairly new so please excuse any mistakes I make in posting my question. Our company runs a debt collection software that has a foxpro 6 backend. We run a telephone dialer that I am trying to report multiple contact attempts into the data base. Her is how I do it if I want to import one line of data: tables used: Destination table = coldbtr Destination Memo Field = dbtrref Record ID = dbtrno Import dbf = data ( there are 5 fields included the first being my unique id field which = dbtrno I will refer to them as 1, 2, 3, 4, 5 (1 being the record id)) use data index on 1 to data select 0 use coldbtr set relation to dbtrno into data set filter to data.1 = dbtrno replace all dbtrref with "DI ...Show All

• Symtex Clipper bug in record 1220?

  we had an error during rebuilding indexes in a clipper program. we run the records by 100s to see what is really wrong with it. when it reached the last record, that is 1220, an error appeared. but when we added a blank record, the program run smoothly. what could have caused the error can u post the error message SharathMum wrote: can u post the error message error in line 99 where 99 is just the line number. the line number consists of set index to abcd where abcd is the indexname please check whether u have the index file i.e. abcd.cdx or abcd.idx Sounds like a corrupted index file. Delete it and rebui ...Show All

• Slyke Numbers to Text

  Somebody have code to convert numbers to text, like checks . Thanks in advance This is code I wrote in Foxbase sometime in 1994. I think it is tested but keep in mind that this is the result of a bet. My brother suggested I can't write a number to words program in less than half an hour... He lost. You can either test this to see if its working or implement something like that by yourself. Aleniko. *n2words.prg parameters mnum store trans(mnum,"999,999,999.99") to mtrans store substr(mtrans,13,2) to cents store substr(mtrans,9,3) to hundreds store substr(mtrans,5,3) to thousands store substr(mtrans,1,3) to millions store cents+"/100" to result if mnum >=1 store three_dig(hund ...Show All

• PaulDev copying tables from sqlserver to foxpro and vice versa

  Hi Experts, How can I copy an entire table from an SQL server database to foxpro (*.dbf) i.e i need to create a backup of sql server tables in foxpro (*.dbf) Any help Thanks in Advance [1] Establish a connection to SQL Server [2] Use SQLTABLES() to get a list of the tables [3] Use SQLEXEC() to select all data into a VFP cursor for each table [4] Use COPY DBF("sqlresult" ) TO [vfp_table_name] to create the VFP Table. ...Show All

• Vivek Soni Out of control when printing out the report designer

  Hi I put the PO No.: || df_indent___ || on the report designer. In 'Print When' properties, I click on the 'Remove line if blank' checkbox and write the following cod e as below. (.not. empty(df_indent) and (_pageno>1)) or (.not. empty(df_indent) and (_pageno=1)) Example of the output result when printing. On 1st page of the report designer PO No.: Testing ABC On 2nd page of the report designer Testing ABC I want to make the PO No.: appear on the 2nd page too. Is there anything mistake on my code Sometimes, there is no input on the form that is linked to the report designer when printing out. For e.g, I do not type out the 'Testing ABC' beside PO N ...Show All

• R Raghu How not to print the image if there is no image file?

  My data table contains an image field holding the path and file name of image files. In my VFP report, I dragged in an OLE control and difined in the " Print When " option as "!empty(image)", meaning print only when the image field has data there. and I checked " Remove line if blank " option. My purpose is not to print or display the image (OLE control) if there is no image attached. But it still display a big blank space or simply a blank sheet. Anybody can help Thank you in advance.   Okay, with a lot of tweaking, I'm able to generate an extra page, but it happens only if the complete picture doesn't fit on the page. I'm not seeing any sign that the engine isn't removing the blank sp ...Show All

• Joe H getting things working on a network

  im having problems when 2 people save at the same time on my network. the person who saves last is going to over write everyone else. PRIVATE B DO WHILE !THISFORM.MULTIUSER() WAIT 'Getting Network Attention... Please Wait' WINDOW NOWA NOCLEAR ENDDO B=THISFORM.SAVEUPDATE() SELECT CLIENT UNLOCK WAIT CLEAR IF B=1 MESSAGEBOX("Client Successfully Updated",'KM SYSTEMS') ENDIF IF B=2 MESSAGEBOX("Client Successfully Saved",'KM SYSTEMS') ENDIF _______________________________ this is what is in the method multi user SELECT CLIENT IF FLOCK() RETURN .T. ELSE RETURN .F. ENDIF save update is this _______________________________ PRIVATE A SELECT CLIE ...Show All

• Jakein2006 Help converting string to numerical value

  hi, I'm trying to convert a string to a num with VAL(variable) however it returns a whole number with a decimal place. i.e. 69232.0 , how can I get VAL to just return a whole number Thank you! aa = '69232.0' bb = CEILING ( VAL ( aa )) bb = int(val(aa)) ...Show All