FIX: TextBox Value in Grid Column Using Numeric ControlSource (162256)

MORE INFORMATION

Steps to Reproduce Problem

1. Copy the following code to a test program and run it to create a Test.dbf that contains two sample records:

         ***** Table setup for TEST *****
         CREATE TABLE 'test.dbf' ;
            (DISCOUNT N(10, 2) NOT NULL, ;
            AMOUNT N(10, 2) NOT NULL, ;
            OTHER N(10, 2) NOT NULL)
   
         ***** Add two records for testing *****
         INSERT INTO test (DISCOUNT, AMOUNT, OTHER) ;
            VALUES (7.00, 4.00, 0.00)
         INSERT INTO test (DISCOUNT, AMOUNT, OTHER) ;
            VALUES (9.00, 15.00, 10.00)
   							

2. Create a new form, and add the Test table to the data environment.
3. Drag the Test table from the data environment to the form to create a grid.
4. Set the following grid properties:

         Grid1.ColumnCount = 2
         Column1.ControlSource = test.discount
         Header1.Caption = "Discount" (without the quotes)
         Column2.ControlSource = test.amount
         Column2.Header1.Caption = "Amount" (without the quotes)
   							

5. On the Form Controls toolbar, click Label and place three Label controls on the form to the right of the grid.
6. Set the following Caption properties on the three Labels (without the quotes):

         Label1.Caption = "Value"
         Label2.Caption = "IsZero?"
         Label3.Caption = "Field"
   							

7. On the Form Controls toolbar, click TextBox and place three TextBoxes on the form, one to the right of each label.
8. Set the following Name properties on the three TextBoxes:

         Text1.Name = txtNewValue
         Text2.Name = txtZero
         Text3.Name = txtNewField
   							

9. Enter the following code in the LostFocus event of the (Discount column) Grid1.Column1.Header1.Text1:

         THISFORM.txtNewvalue.Value = THIS.Value
         IF THIS.Value = 0
            THISFORM.txtZero.Value = "Yes"
         ELSE
            THISFORM.txtZero.Value = "No"
         ENDIF
         THISFORM.txtNewField.Value = test.discount
   							

10. Enter the following code in the LostFocus event of the (Amount column) Grid1.Column2.Header1.Text1:

           THISFORM.txtNewvalue.Value = THIS.Value
           IF THIS.Value = 0
              THISFORM.txtZero.Value = "Yes"
           ELSE
              THISFORM.txtZero.Value = "No"
           ENDIF
           THISFORM.txtNewField.Value = test.amount
    							

11. Run the form.
12. Enter a new number in the first record of the form's Discount column and notice that if the number entered is less than 10 that the number is displayed correctly in the TextBox beside "Value" and the answer displayed in the TextBox beside "IsZero?" is correct.
13. Repeat step 12 for the first record of the Amount column.
14. Enter a new number that is greater than 10 in the first record of the Discount column. Notice that the number displayed in the "Value" TextBox is "0" and the answer displayed in the "IsZero?" TextBox is incorrect.
15. Repeat step 14 for the first record of the Amount column.