ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Problème insertion dans une BD PostgreSQLl

Sujet
Précédent 1...20 21 22 23 24 25 26 27 28 29 ...129 Suivant
vfpwinsock OlivierH - 01/04/2016 16h22
Une requête sur une vue ne retourne pas toutes les données Bernard Avril - 31/03/2016 16h57
Programme FoxPro AlainB - 26/03/2016 13h45
Erreur 8002006 Cinedic - 24/03/2016 09h06
[HS] Contribution de Mr Gregory Adam alahem1 - 19/03/2016 11h54
Entete mail Cinedic - 18/03/2016 15h36
Création Setup application Client/Serveur. noureddine-Mila - 17/03/2016 14h06
Lianja et Linux Benoit à Bx - 17/03/2016 13h03
Comment savoir quel est l'objet actif dans 'un formulaire Roland38 - 16/03/2016 08h18
format du csv pour La Poste En Ligne Michel Lévy - 09/03/2016 11h45
PostGres 9.2 mot de passe eddymaue - 09/03/2016 07h15
Re: Expression .NULL. sur SQL eddymaue - 08/03/2016 23h11
Expression .NULL. sur SQL BENMAHAMED - 05/03/2016 18h21
PageFrame > CTRL+TAB versus CTRL+PgUp (ou PgDn) ABx - 04/03/2016 14h51
Problème insertion dans une BD PostgreSQLl noureddine-Mila - 03/03/2016 15h54
compte à rebour le mulet - 01/03/2016 23h45
VFP6 et WINDOWS 10 version 64 bits DoumDoum58 - 28/02/2016 19h18
Problème pour passer de Visual Proxpro 6 à 9 Dancha - 27/02/2016 19h42
Si un fichier est supprimé et recréé, Windows recycle la date et heure de création, comment le contourner ? FoxInCloud - 26/02/2016 11h15
manuel Visual Foxfro 9 mslider - 23/02/2016 12h39
Précédent 1...20 21 22 23 24 25 26 27 28 29 ...129 Suivant

Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

dim. 06 mars 2016, 13h42
eddymaue
atoutfox.public.association

Re: Problème insertion dans une BD PostgreSQLl

sur tes combobox remplace .value par .displayValue

voici un exemple ou Value ne suit pas DisplayValue

oFrm = CreateObject("form1")
oFrm.show(1)

**************************************************

*-- Form:         form1 (l:\owner\eddy\documents\visual foxpro

projects\test_cmb_displayvalue_value.scx)
*-- ParentClass:  form

*-- BaseClass:    form

*-- Time Stamp:   03/06/16 01:34:12 PM

*

DEFINE CLASS form1 AS form


  Top = 0
  Left = 0
  Height = 380
  Width = 464
  DoCreate = .T.
  Caption = "Form1"
  Name = "Form1"


  ADD OBJECT shape2 AS shape WITH ;
    Top = 9, ;
    Left = 9, ;
    Height = 154, ;
    Width = 445, ;
    Name = "Shape2"


  ADD OBJECT shape1 AS shape WITH ;
    Top = 204, ;
    Left = 9, ;
    Height = 121, ;
    Width = 445, ;
    Name = "Shape1"


  ADD OBJECT combo2 AS combobox WITH ;
    FontName = "Segoe UI", ;
    Height = 24, ;
    Left = 19, ;
    Top = 230, ;
    Width = 171, ;
    Name = "Combo2"


  ADD OBJECT text1 AS textbox WITH ;
    FontName = "Segoe UI", ;
    ControlSource = "", ;
    Height = 23, ;
    Left = 209, ;
    Top = 33, ;
    Width = 100, ;
    Name = "Text1"


  ADD OBJECT text2 AS textbox WITH ;
    FontName = "Segoe UI", ;
    ControlSource = "", ;
    Height = 23, ;
    Left = 318, ;
    Top = 33, ;
    Width = 100, ;
    Name = "Text2"


  ADD OBJECT text3 AS textbox WITH ;
    FontName = "Segoe UI", ;
    ControlSource = "", ;
    Height = 23, ;
    Left = 209, ;
    Top = 231, ;
    Width = 100, ;
    Name = "Text3"


  ADD OBJECT text4 AS textbox WITH ;
    FontName = "Segoe UI", ;
    ControlSource = "", ;
    Height = 23, ;
    Left = 318, ;
    Top = 231, ;
    Width = 100, ;
    Name = "Text4"


  ADD OBJECT label1 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "DisplayValue :", ;
    Height = 19, ;
    Left = 209, ;
    Top = 12, ;
    Width = 83, ;
    Name = "Label1"


  ADD OBJECT label2 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "Value :", ;
    Height = 19, ;
    Left = 318, ;
    Top = 12, ;
    Width = 41, ;
    Name = "Label2"


  ADD OBJECT label3 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "DisplayValue :", ;
    Height = 19, ;
    Left = 209, ;
    Top = 209, ;
    Width = 83, ;
    Name = "Label3"


  ADD OBJECT label4 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "Value :", ;
    Height = 19, ;
    Left = 318, ;
    Top = 209, ;
    Width = 41, ;
    Name = "Label4"


  ADD OBJECT cmdupbyskipincursor AS commandbutton WITH ;
    AutoSize = .T., ;
    Top = 79, ;
    Left = 19, ;
    Height = 27, ;
    Width = 34, ;
    Caption = "Up", ;
    Name = "cmdUPbySkipInCursor"


  ADD OBJECT command2 AS commandbutton WITH ;
    AutoSize = .T., ;
    Top = 127, ;
    Left = 20, ;
    Height = 27, ;
    Width = 34, ;
    Caption = "Up", ;
    Name = "Command2"


  ADD OBJECT command3 AS commandbutton WITH ;
    AutoSize = .T., ;
    Top = 79, ;
    Left = 62, ;
    Height = 27, ;
    Width = 43, ;
    Caption = "Dwn", ;
    Name = "Command3"


  ADD OBJECT command4 AS commandbutton WITH ;
    AutoSize = .T., ;
    Top = 128, ;
    Left = 63, ;
    Height = 27, ;
    Width = 43, ;
    Caption = "Dwn", ;
    Name = "Command4"


  ADD OBJECT command5 AS commandbutton WITH ;
    AutoSize = .T., ;
    Top = 276, ;
    Left = 23, ;
    Height = 27, ;
    Width = 34, ;
    Caption = "Up", ;
    Name = "Command5"


  ADD OBJECT command6 AS commandbutton WITH ;
    AutoSize = .T., ;
    Top = 277, ;
    Left = 66, ;
    Height = 27, ;
    Width = 43, ;
    Caption = "Dwn", ;
    Name = "Command6"


  ADD OBJECT label5 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "Skip sur le cursor", ;
    Height = 19, ;
    Left = 21, ;
    Top = 61, ;
    Width = 103, ;
    Name = "Label5"


  ADD OBJECT label6 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "Inc/dec ListItemId", ;
    Height = 19, ;
    Left = 23, ;
    Top = 109, ;
    Width = 103, ;
    Name = "Label6"


  ADD OBJECT label7 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "ControlSource = csrCursor", ;
    Height = 19, ;
    Left = 21, ;
    Top = 10, ;
    Width = 158, ;
    Name = "Label7"


  ADD OBJECT label8 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "remplit avec AddItem()", ;
    Height = 19, ;
    Left = 20, ;
    Top = 210, ;
    Width = 134, ;
    Name = "Label8"


  ADD OBJECT label9 AS label WITH ;
    AutoSize = .T., ;
    FontName = "Segoe UI", ;
    FontSize = 10, ;
    Caption = "Inc/dec ListItemId", ;
    Height = 19, ;
    Left = 23, ;
    Top = 255, ;
    Width = 103, ;
    Name = "Label9"


  ADD OBJECT command7 AS commandbutton WITH ;
    Top = 343, ;
    Left = 370, ;
    Height = 27, ;
    Width = 84, ;
    Caption = "Sortie", ;
    Name = "Command7"


  ADD OBJECT text5 AS textbox WITH ;
    FontName = "Segoe UI", ;
    Alignment = 3, ;
    Value = 1, ;
    ControlSource = "", ;
    Height = 23, ;
    Left = 204, ;
    Top = 84, ;
    Width = 100, ;
    Name = "Text5"


  ADD OBJECT combo1 AS combobox WITH ;
    FontName = "Segoe UI", ;
    ColumnCount = 1, ;
    Value = (Recno()), ;
    ControlSource = "", ;
    Height = 24, ;
    Left = 19, ;
    Top = 32, ;
    Width = 171, ;
    BoundTo = .T., ;
    Name = "Combo1"


  ADD OBJECT text6 AS textbox WITH ;
    FontName = "Segoe UI", ;
    Alignment = 3, ;
    Value = 1, ;
    ControlSource = "", ;
    Height = 23, ;
    Left = 211, ;
    Top = 280, ;
    Width = 100, ;
    Name = "Text6"


  PROCEDURE Load

    Create cursor csrCursor  (cNum c(10))

    lcNumber = "un,deux,trois,quatre,cinq,six,sept,huit,neuf,zero"

    lnNum = ALines(laNum,lcNumber,1,",")

    For i = 1 to lnNum
      Insert into csrCursor VALUES (laNum(i))
    endfor
  ENDPROC


  PROCEDURE Init

    this.combo1.RowSource="csrCursor.cnum"
    this.combo1.RowSourceType= 6
    this.combo1.FirstElement = 1



    Locate

    Scan rest

      this.combo2.AddItem(cNum)

    EndScan

    locate
  ENDPROC


  PROCEDURE combo2.ProgrammaticChange
    this.InteractiveChange()
  ENDPROC


  PROCEDURE combo2.InteractiveChange

    thisform.text3.Value = this.DisplayValue
    thisform.text4.Value = this.Value

    thisform.text6.value = this.ListItemId

    this.Refresh()
  ENDPROC


  PROCEDURE cmdupbyskipincursor.Click
    With Thisform.combo1

      If Recno() > 1


        Skip -1 In csrCursor

      Endif

      .listitemid = Recno()

    Endwith
  ENDPROC


  PROCEDURE command2.Click
    With Thisform.combo1

      If .ListItemId > 0

        .ListItemId = .ListItemId - 1

      Endif

    Endwith
  ENDPROC


  PROCEDURE command3.Click
    With Thisform.combo1

      If Recno() < .ListCount

        Skip In csrCursor

      EndIf

      .listitemid = Recno()

    Endwith
  ENDPROC


  PROCEDURE command4.Click
    With Thisform.combo1

      If .ListItemId < .listCount

        .ListItemId = .ListItemId + 1

      Endif

    Endwith
  ENDPROC


  PROCEDURE command5.Click
    With Thisform.combo2

      If .ListItemId > 0

        .ListItemId = .ListItemId - 1

      Endif

    Endwith
  ENDPROC


  PROCEDURE command6.Click

    With Thisform.combo2

      If .ListItemId < .listCount

        .ListItemId = .ListItemId + 1

      Endif

    Endwith

  ENDPROC


  PROCEDURE command7.Click

    thisform.Release()

  ENDPROC


  PROCEDURE text5.InteractiveChange

    If Between( this.Value, 1 , 10)
      thisform.combo1.listitemid = this.Value
    endif

  ENDPROC


  PROCEDURE combo1.InteractiveChange

    thisform.text1.Value = this.DisplayValue
    thisform.text2.Value = this.Value

    thisform.text5.Value = Recno()

    this.Refresh()

  ENDPROC


  PROCEDURE combo1.ProgrammaticChange

    this.InteractiveChange()

  ENDPROC


  PROCEDURE text6.InteractiveChange

    If Between( this.Value, 1 , 10)
      thisform.combo2.value = this.Value
    endif

  ENDPROC


ENDDEFINE
*

*-- EndDefine: form1

**************************************************

noureddine-Mila a exposé le 2016-03-06 :

> Salut Eddy

> Je vous donne plus de précisions sur le formulaire :

> cbcmd : combobox qui a 3 élément : L, C, M
> cbenergie : combobox qui a 2 éléments : E, G
> cbentreprise : combobox en liaison avec une table entreprise

> Cordialement.

--
a+ Eddy
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber... il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017435

20 088 messages dans le forum • Liste complète des messages

Les pubs en cours :