Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Select data
Message
De
29/05/2006 03:38:59
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Select data
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01125618
Message ID:
01125618
Vues:
56
hi all,
when i try to get data at my grid at first time i see data for the first 2 fields only, if i exit and try again at the same form i can see all data,
any idea
thanks
thisform.grid1.VISIBLE=.F.
ldDate=thisform.text1.value
SELECT * FROM mstr  into cursor csrmyCursor  where  file_date=ldDate READWRITE 
 SELECT csrMyCursor
   thisform.grid1.VISIBLE=.T.
    With thisform.Grid1
      .RecordSource = "csrMyCursor"
      .Columncount = 8
   ENDWITH

 count TO thisform.text2.value 
 COUNT TO thisform.text3.value FOR status=1
 COUNT TO thisform.text4.value FOR status=2
 COUNT TO thisform.text5.value FOR status=3
 COUNT TO thisform.text6.value FOR status=4
 COUNT TO thisform.text7.value FOR status=5
 COUNT TO thisform.text8.value FOR status=6
 COUNT TO thisform.text9.value FOR status=7
 COUNT TO thisform.text10.value FOR status=8
 COUNT TO thisform.text11.value FOR status=9
 
 GO top
 thisform.grid1.column1.header1.caption=" No."
  thisform.grid1.column1.header1.fontsize=10
  thisform.grid1.column1.WIDTH=40
  thisform.grid1.column1.Alignment = 2
  thisform.grid1.column1.header1.fontbold=.t.
  backcolor="128,128,255"
    * thisform.grid1.column1.header1.forecolor='255,255,0'
     thisform.grid1.column2.header1.caption="Survy_Num"
     thisform.grid1.column2.header1.fontsize=10
     thisform.grid1.column2.WIDTH=40
     thisform.grid1.column2.Alignment = 2
     thisform.grid1.column2.header1.fontbold=.t.
  backcolor="128,128,255"

 thisform.grid1.column3.header1.caption="Msisdn"
     thisform.grid1.column3.header1.fontsize=10
     thisform.grid1.column3.WIDTH=100
     thisform.grid1.column3.Alignment = 2
     thisform.grid1.column3.header1.fontbold=.t.
  backcolor="128,128,255"
  
  thisform.grid1.column4.header1.caption="File_Date"
     thisform.grid1.column4.header1.fontsize=10
     thisform.grid1.column4.WIDTH=80
     thisform.grid1.column4.Alignment = 2
     thisform.grid1.column4.header1.fontbold=.t.
  backcolor="128,128,255"
  
  thisform.grid1.column5.header1.caption="Interviwed_Date"
     thisform.grid1.column5.header1.fontsize=10
     thisform.grid1.column5.WIDTH=100
     thisform.grid1.column5.Alignment = 2
     thisform.grid1.column5.header1.fontbold=.t.
  backcolor="128,128,255"
  
    thisform.grid1.column6.header1.caption="Status"
     thisform.grid1.column6.header1.fontsize=10
     thisform.grid1.column6.WIDTH=40
     thisform.grid1.column6.Alignment = 2
     thisform.grid1.column6.header1.fontbold=.t.
  backcolor="128,128,255"
  
      thisform.grid1.column7.header1.caption="Other_Status"
     thisform.grid1.column7.header1.fontsize=10
     thisform.grid1.column7.WIDTH=180
     thisform.grid1.column7.Alignment = 2
     thisform.grid1.column7.header1.fontbold=.t.
  backcolor="128,128,255"
  
        thisform.grid1.column8.header1.caption="Conction_Type"
     thisform.grid1.column8.header1.fontsize=10
     thisform.grid1.column8.WIDTH=100
     thisform.grid1.column8.Alignment = 2
     thisform.grid1.column8.header1.fontbold=.t.
  backcolor="128,128,255"
  
THISFORM.TEXT1.SetFocus()
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform