Alow Lassala! :)

Descobri o PEPINO ... enquanto a reunião do grupo de estudos acontecia, eu ia usando o famoso ALT+TAB entre o Internet Explorer e o Visual Foxpro. Descobri a causa do problema (será um BUG?)...

Vamos lá:

LOCAL loForm

If MessageBox("Adicionar um campo caracter a MyTable?"+Chr(13)+;
			  "Somente se você responder SIM o problema acontece!"+Chr(13)+Chr(13)+Chr(13)+;
			  "Add a character field in MyTable?"+Chr(13)+;
			  "Just if you anwser YES the problem happens"+Chr(13)+Chr(13)+Chr(13),292,"BUG?") = 6
	Set Safety Off
	Create Table MyTable (Field1 N (4), Field2 N (6,2), Field3 N (12,2), Field4 C (10) )
	Set Safety On
	Insert Into MyTable (Field1, Field2, Field3, Field4) Values (1234, 12.52, 162.35, "RECNO 01")
	Insert Into MyTable (Field1, Field2, Field3, Field4) Values (2563,  2.24, 62.35, "RECNO 02")
	Insert Into MyTable (Field1, Field2, Field3, Field4) Values (8542, 36.79, 912.41, "RECNO 03")
	Insert Into MyTable (Field1, Field2, Field3, Field4) Values (9124, 58.22, 24.35, "RECNO 04")
	Insert Into MyTable (Field1, Field2, Field3, Field4) Values (9674, 33.28, 152.49, "RECNO 05")
Else
	Set Safety Off
	Create Table MyTable (Field1 N (4), Field2 N (6,2), Field3 N (12,2))
	Set Safety On
	Insert Into MyTable (Field1, Field2, Field3) Values (1234, 12.52, 162.35)
	Insert Into MyTable (Field1, Field2, Field3) Values (2563,  2.24, 62.35)
	Insert Into MyTable (Field1, Field2, Field3) Values (8542, 36.79, 912.41)
	Insert Into MyTable (Field1, Field2, Field3) Values (9124, 58.22, 24.35)
	Insert Into MyTable (Field1, Field2, Field3) Values (9674, 33.28, 152.49)
EndIf

loForm = CREATEOBJECT("Form")
loForm.Width = 700
loForm.AddObject("Grade","Grid")
With loForm.Grade
	.Width = 650
	.Visible = .T.
	.RecordSource = ""
	Set Safety Off
	Select * From MyTable Into Table MyCursor
	Set Safety On
	.RecordSource = "MyCursor"
	.ColumnCount = 4
	With .Column1
		.ControlSource		= "Field1"
		.InputMask		= "9,999"
		.Width			= 100
		.Header1.caption	= "1"
	EndWith
	With .Column2
		.ControlSource		= "Field2"
		.InputMask		= "999.99"
		.Width			= 100
		.Header1.caption	= "2"
	EndWith
	With .Column3
		.ControlSource		= "Field3"
		.InputMask		= "999,999,999.99"
		.Width			= 100
		.Header1.caption	= "3"
	EndWith
	With .Column4
		.ControlSource		= "Round(Field2 * Field3,2)"
		.InputMask		= "999,999,999.99"
		.Width			= 100
		.Header1.caption	= "4"
	EndWith
EndWith

loForm.Show(1)

Execute esse código aí... Eu testei no VFP 5 e no VFP 7 - O problema apareceu nas duas versões...

Ou seja, se minha tabela ter algum campo caracter, o problema acontece. Se esse campo for eliminado, aí funciona belezinha...

O que vc acha disso? :(

[]s