Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

grid does not refresh 1

Status
Not open for further replies.

fanlinux90

Programmer
Oct 31, 2022
22
0
0
CO
This is the code of the init of the form

Code:
if !used if !used ("supplier_temp")
    SELECT supplier
      afields(structure)
        CREATE cursor supplier_temp from array structure
else
     SELECT supplier_temp
         for re = 1 to reccount()
           SELECT supplier_temp
           go re
           _id = supplier_temp.id
           _name = supplier_temp.name
           _dir = supplier_temp.dir
           _cel = supplier_temp.cellphon
          _em = supplier_temp.email
     scan
     update provider set name=_name, address=_dir, cell=_cel, email = _em where control = 1 and id = _id
     end scan
         end for
    delete all

endif
     SELECT supplier_temp
       APPEND FROM supplier for dispatched = 1
        GO TOP
      Thisform.Suppliers.RecordSource = "supplier_temp"
      Thisform.Suppliers.column1.ControlSource = "supplier_temp.name"
      Thisform.Proveedores.column2.ControlSource = "supplier_temp.direntre"
      Thisform.Proveedores.column3.ControlSource = "provider_temp.cellphon"
      Thisform.Suppliers.column4.ControlSource = "supplier_temp.email"
This is the code for the process button
Code:
If thisform.Proveedores.Column1.Check2.Value = 1
   thisform.Preclientes.column1.Check2.valid
     select supplier_temp
       go top
     replace supplier_temp.control with 2
        locate for supplier_temp.control = 2
          REPLACE supplier.control WITH supplier_temp.control for supplier.id = supplier_temp.id IN  supplier
     Thisform.Suppliers.refresh
     thisform.Suppliers.setfocus()
     thisform.refresh
endif

This is the code for the reject button
Code:
If thisform.Suppliers.Column1.Check2.Value = 1
  if !empty(suppliers_temp.obs)
     thisform.Suppliers.column1.Check2.valid
     select supplier_temp
       go top
     replace supplier_temp.control with 3
        locate for supplier_temp.control = 3
          REPLACE supplier.control WITH supplier_temp.control for supplier.id = supplier_temp.id IN  supplier
     Thisform.Suppliers.refresh
     thisform.Suppliers.setfocus()
     thisform.refresh
   endif
endif

The grid is not refresh despite having in the init and in the buttons the commands Thisform.Suppliers.refresh,thisform.Suppliers.setfocus() and
thisform.refresh. When the form is closed and reopened, the grid is refreshed
 
I believe this guy is a brother of Mike Yearwood - this time with a different tactic of disrupting here.
It's good to know that you can block people like that.

Klaus


Peace worldwide - it starts here...
 
@german12
I really laughed at that, because I did relate this guy to a "mike yearwood from the twilight/negative zone".
(Sorry, I'm a huge fan of comics and sci-fi TV)

Now, Mike would be telling to iarodrguez-iara84-fanlinux90:
"If you follow my path, you will become a super-programmer! Wait! You will be just below me!!! And then take revenge and send your legal team to exterminate all these neanderthals!!!!"

@Chriss

Kill the DJ!!! That's all I'm praying.

... this guy is so out of tune.

I'm sorry.

NOT.

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top