>>>Hola.....i dont speak english very well, but i need information of visual fox
>>>I have problems with the grids, with relations one - more of tables in the forms cosntruction,
>>>please if somebody have an aplication , or a form with this , send me the file o write me :
>>>hmendivil@tabasi.nur.edu
>>>Es urgente!!!!!!!!!!! please!!!!!!!!!!!!!!
>>
>>Eli,
>>Si tienes problemas con el inglés, podrias probar las news en español. Pienso que la dirección es microsft.public.es.vfoxpro, o algo semejante.
>>
>>José
>Gracias Jose, pero aprovechando que tu sabes español.....puedes ayudarme ????????......por favor!, tengo problemas al
>insertar un combo dentro de una columna del grid, cuando quiero elegir una de las opciones del combo, no
>me muestra nada en la casilla, pero es solo hasta que salgo de ella, luego queda el valor que escogí (sin verlo)
>puedes??????
A continuación vas a encontrar el class browser export de un contenedor que contiene un grid ... que contiene un combo que me esta saliendo bien... Un poco largo, pero que vamos a hacer?
**************************************************
*-- Class: taroptchildobj (c:\cdbk30\autosoft\libs\abizness.vcx)
*-- ParentClass: jbizchildobj (c:\cdbk30\common30\libs\cbizjo.vcx)
*-- BaseClass: container
*-- Options du tarif (child)
*
#INCLUDE "c:\cdbk30\common30\include\framincl.h"
*
DEFINE CLASS taroptchildobj AS jbizchildobj
Width = 456
Height = 330
Visible = .F.
cparentbizobj = ""
cviewparmname = "vp_cTarifId"
lprimarybizobj = .F.
lconfirmondelete = .F.
lautoprimarybizobj = .T.
lfillparentkey = .T.
cparentkeyfield = "cTarifID"
lnoautoparent = .F.
lsetfocusonnew = .F.
Name = "taroptchildobj"
refBizObj.Top = 25
refBizObj.Left = 398
refBizObj.TabIndex = 6
refBizObj.ZOrderSet = 0
refBizObj.Name = "refBizObj"
oDELoader.oDELoader.Name = "oDELoader"
oDELoader.Top = 24
oDELoader.Left = 324
oDELoader.TabIndex = 5
oDELoader.ZOrderSet = 1
oDELoader.cdataenvironment = "TarOptEnvironment"
oDELoader.Name = "oDELoader"
ADD OBJECT coptionsgrid AS cgrid WITH ;
ColumnCount = 4, ;
DeleteMark = .F., ;
GridLines = 2, ;
Height = 312, ;
Left = 6, ;
Panel = 1, ;
RecordMark = .F., ;
RowHeight = 22, ;
ScrollBars = 2, ;
TabIndex = 3, ;
Top = 9, ;
Width = 444, ;
ZOrderSet = 6, ;
lmovable = .F., ;
lresizable = .F., ;
Name = "cOptionsGrid", ;
Column1.ControlSource = "v_TarOpt.cOptionID", ;
Column1.CurrentControl = "cboOption", ;
Column1.Width = 52, ;
Column1.ReadOnly = .F., ;
Column1.Sparse = .F., ;
Column1.Name = "grcCode", ;
Column2.ControlSource = "v_TarOpt.cLib", ;
Column2.Width = 209, ;
Column2.ReadOnly = .F., ;
Column2.Name = "grcLib", ;
Column3.ControlSource = "v_TarOpt.yOption", ;
Column3.Width = 80, ;
Column3.ReadOnly = .F., ;
Column3.Format = "$", ;
Column3.InputMask = "9,999,999", ;
Column3.Name = "grcOptionPrix", ;
Column4.ControlSource = "ROUND(v_TarOpt.YOption * (1+ v_TvaVente.nTaux/100), 0)", ;
Column4.Width = 80, ;
Column4.ReadOnly = .T., ;
Column4.Format = "$", ;
Column4.InputMask = "9,999,999", ;
Column4.Name = "grcTvac"
ADD OBJECT taroptchildobj.coptionsgrid.grccode.grhcode AS header WITH ;
Caption = "Code", ;
Name = "grhCode"
ADD OBJECT taroptchildobj.coptionsgrid.grccode.txtcode AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ReadOnly = .T., ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "txtCode"
ADD OBJECT taroptchildobj.coptionsgrid.grccode.cbooption AS coptioncombobox WITH ;
Height = 22, ;
Left = 12, ;
TabIndex = 1, ;
Top = 300, ;
Width = 56, ;
ZOrderSet = 3, ;
BorderStyle = 0, ;
ReadOnly = .F., ;
Name = "cboOption"
ADD OBJECT taroptchildobj.coptionsgrid.grclib.grhlib AS header WITH ;
Caption = "Libellé", ;
Name = "grhLib"
ADD OBJECT taroptchildobj.coptionsgrid.grclib.txtlib AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ReadOnly = .F., ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "txtLib"
ADD OBJECT taroptchildobj.coptionsgrid.grcoptionprix.grhoptionprix AS header WITH ;
Caption = "Prix", ;
Name = "grhOptionPrix"
ADD OBJECT taroptchildobj.coptionsgrid.grcoptionprix.txtoptionprix AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ReadOnly = .F., ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "txtOptionPrix"
ADD OBJECT taroptchildobj.coptionsgrid.grctvac.grhtvac AS header WITH ;
Caption = "TVA comprise", ;
Name = "grhTvac"
ADD OBJECT taroptchildobj.coptionsgrid.grctvac.txttvac AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ReadOnly = .T., ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "txtTVAc"
PROCEDURE coptionsgrid.AfterRowColChange
LPARAMETERS nColIndex
LOCAL llLock
llLock = thisform.lockScreen
thisform.LockScreen = .T.
IF TYPE("Thisform.oToolbar") = "O" AND _TALLY > 1
LOCAL lnRecNo
lnRecNo = RECNO()
LOCATE
*-- If we're still on the same record, we were already on top ...
IF lnRecNo = RECNO()
thisform.lBOF = .T.
ELSE
thisform.lBOF = .F.
GO (lnRecNo)
ENDIF
GO BOTTOM
*-- If we're still on the same record, we were already at bottom ...
IF lnRecNo = RECNO()
thisform.lEOF = .T.
ELSE
thisform.lEOF = .F.
GO (lnRecNo)
ENDIF
thisform.oToolbar.Refresh()
ENDIF
thisform.LockScreen = llLock
ENDPROC
PROCEDURE cbooption.InteractiveChange
LOCAL lnOldSel
lnOldSel = SELECT()
SELECT OPTION
LOCAL lcValue
lcValue = LOOKUP(clib, this.Value, cid, "Primary")
IF lcValue # v_TarOpt.clib
REPLACE v_TarOpt.clib WITH lcValue
*this.Parent.Parent.Refresh()
ENDIF
SELECT (lnOldSel)
ENDPROC
ENDDEFINE
*
*-- EndDefine: taroptchildobj
**************************************************
**************************************************
*-- Class: coptioncombobox (c:\cdbk30\autosoft\libs\acustctl.vcx)
*-- ParentClass: ccombobox (c:\cdbk30\common30\libs\ccontrls.vcx)
*-- BaseClass: combobox
*-- A cComboBox for displaying the option code and option title
*
#INCLUDE "c:\cdbk30\common30\include\framincl.h"
*
DEFINE CLASS coptioncombobox AS ccombobox
RowSourceType = 3
Width = 60
Name = "coptioncombobox"
PROCEDURE Destroy
IF USED ("cOptions")
USE IN cOptions
ENDIF
ENDPROC
PROCEDURE Init
DODEFAULT()
this.RowSource = "SELECT cCode, cLib, cId " + ;
"FROM autosoft!option ORDER BY cCode INTO CURSOR cOptions"
this.BoundColumn = 3
this.ColumnCount = 2
this.ColumnWidths = STR(FSIZE("cCode", "cOptions") * 2 *;
FONTMETRIC(TM_AVECHARWIDTH, this.Fontname, this.Fontsize)) + ;
", " + ;
STR(FSIZE("cLib", "cOptions") * 1.2 *;
FONTMETRIC(TM_AVECHARWIDTH, this.Fontname, this.Fontsize))
ENDPROC
ENDDEFINE
*
*-- EndDefine: coptioncombobox
**************************************************
Ahora, si te sale bien, mandame un botella de Singani virtual... Me gustaría hacer un chuflay de vez en cuando!
José