Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem with Requery
Message
De
09/07/1998 12:38:52
 
 
À
09/07/1998 12:21:16
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Divers
Thread ID:
00115770
Message ID:
00115798
Vues:
18
>>The view seems to work fine from the command window.
>>
>>Any ideas?
>>
>>Thanks,
>>
>>Dave
>
>Have you set the memo field as updateable and click on send sql updates in the view designer?
>
>BOb

Thanks for your reply , Bob.

The memo field properties seem to be set correctly. The contents of the edit box get saved to the base table. USEing the view from the command window retrieves all the data correctly, including the memo field. It is in the form that I am having the trouble.

The view is hand-coded. The memo field I am having trouble with is mComments. Here is all the source.

CREATE SQL VIEW lv_EquipList AS ;
SELECT ;
Equip.*, ;
Manuf.cmanufname, ;
Model.cModel, ;
IIF(EMPTY(cCompId),SPACE(50),PADR(;
IIF(ISNULL(Cpu.ccpu) OR EMPTY(Cpu.ccpu) OR Cpu.ccpu = 'N/A', 'Unkn Proc ', ALLTRIM(Cpu.ccpu) + ' ') + ;
IIF(ISNULL(Speed.nspeed) OR Speed.nspeed=0,'Unkn Speed ',LTRIM(STR(Speed.nspeed))+' MHz ') + ;
IIF(ISNULL(Ram.nram) OR Ram.nram=0, 'Unkn RAM ',LTRIM(STR(Ram.nram))+'MB RAM ') + ;
IIF(ISNULL(Opsystem.copsystem) OR EMPTY(Opsystem.copsystem) OR Opsystem.copsystem='N/A','UnKn OpSys ',TRIM(Opsystem.copsystem)+' ') + ;
IIF(ISNULL(HardDrv.nsize) OR HardDrv.nsize=0,'Unkn HD Size ',LTRIM(STR(HardDrv.nsize))+'MB HD'),;
50)) ;
AS cComputerName ;
FROM invent!Equip ;
LEFT OUTER JOIN invent!model ;
ON Equip.cmodelid = Model.cid ;
LEFT OUTER JOIN invent!manuf ;
ON Model.cmanufid = Manuf.cid ;
LEFT OUTER JOIN invent!computer ;
ON Equip.cCompID = Computer.cid ;
LEFT OUTER JOIN invent!CPU ;
ON Computer.cCPUID = CPU.cID ;
LEFT OUTER JOIN invent!Speed ;
ON Computer.cSpeedID = Speed.cID ;
LEFT OUTER JOIN invent!Ram ;
ON Computer.cRamID = Ram.cID ;
LEFT OUTER JOIN invent!OpSystem ;
ON Computer.cOpSysID = OpSystem.cID ;
LEFT OUTER JOIN invent!HardDrv ;
ON Computer.cHardDrvID = HardDrv.cID ;
WHERE Equip.cBuId = ?v_Bu.cId

DBSetProp('lv_EquipList', 'View', 'UpdateType', 1)
DBSetProp('lv_EquipList', 'View', 'WhereType', 3)
DBSetProp('lv_EquipList', 'View', 'FetchMemo', .T.)
DBSetProp('lv_EquipList', 'View', 'SendUpdates', .T.)
DBSetProp('lv_EquipList', 'View', 'UseMemoSize', 255)
DBSetProp('lv_EquipList', 'View', 'FetchSize', 100)
DBSetProp('lv_EquipList', 'View', 'MaxRecords', -1)
DBSetProp('lv_EquipList', 'View', 'Tables', 'invent!Equip')
DBSetProp('lv_EquipList', 'View', 'Prepared', .F.)
DBSetProp('lv_EquipList', 'View', 'CompareMemo', .T.)
DBSetProp('lv_EquipList', 'View', 'FetchAsNeeded', .F.)
DBSetProp('lv_EquipList', 'View', 'FetchSize', 100)
DBSetProp('lv_EquipList', 'View', 'Comment', "")
DBSetProp('lv_EquipList', 'View', 'BatchUpdateCount', 1)
DBSetProp('lv_EquipList', 'View', 'ShareConnection', .F.)

*!* Field Level Properties for lv_EquipList
* Props for the lv_EquipList.cid field.
DBSetProp('lv_EquipList.cid', 'Field', 'KeyField', .T.)
DBSetProp('lv_EquipList.cid', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cid', 'Field', 'UpdateName', 'invent!Equip.cid')
DBSetProp('lv_EquipList.cid', 'Field', 'DataType', "C(6)")
* Props for the lv_EquipList.cbuid field.
DBSetProp('lv_EquipList.cbuid', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cbuid', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cbuid', 'Field', 'UpdateName', 'invent!Equip.cbuid')
DBSetProp('lv_EquipList.cbuid', 'Field', 'DataType', "C(6)")
* Props for the lv_EquipList.ccompid field.
DBSetProp('lv_EquipList.ccompid', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.ccompid', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.ccompid', 'Field', 'UpdateName', 'invent!Equip.ccompid')
DBSetProp('lv_EquipList.ccompid', 'Field', 'DataType', "C(6)")
* Props for the lv_EquipList.ctype field.
DBSetProp('lv_EquipList.ctype', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.ctype', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.ctype', 'Field', 'UpdateName', 'invent!Equip.ctype')
DBSetProp('lv_EquipList.ctype', 'Field', 'DataType', "C(1)")
* Props for the lv_EquipList.cserialnum field.
DBSetProp('lv_EquipList.cserialnum', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cserialnum', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cserialnum', 'Field', 'UpdateName', 'invent!Equip.cserialnum')
DBSetProp('lv_EquipList.cserialnum', 'Field', 'DataType', "C(20)")
* Props for the lv_EquipList.cownedby field.
DBSetProp('lv_EquipList.cownedby', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cownedby', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cownedby', 'Field', 'UpdateName', 'invent!Equip.cownedby')
DBSetProp('lv_EquipList.cownedby', 'Field', 'DataType', "C(1)")
* Props for the lv_EquipList.cmanufid field.
DBSetProp('lv_EquipList.cmanufid', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cmanufid', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cmanufid', 'Field', 'UpdateName', 'invent!Equip.cmanufid')
DBSetProp('lv_EquipList.cmanufid', 'Field', 'DataType', "C(6)")
* Props for the lv_EquipList.cmodelid field.
DBSetProp('lv_EquipList.cmodelid', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cmodelid', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cmodelid', 'Field', 'UpdateName', 'invent!Equip.cmodelid')
DBSetProp('lv_EquipList.cmodelid', 'Field', 'DataType', "C(6)")
* Props for the lv_EquipList.minfo field.
DBSetProp('lv_EquipList.minfo', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.minfo', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.minfo', 'Field', 'UpdateName', 'invent!Equip.minfo')
DBSetProp('lv_EquipList.minfo', 'Field', 'DataType', "M")
* Props for the lv_EquipList.mtree field.
DBSetProp('lv_EquipList.mtree', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.mtree', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.mtree', 'Field', 'UpdateName', 'invent!Equip.mtree')
DBSetProp('lv_EquipList.mtree', 'Field', 'DataType', "M")

*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

* Props for the lv_EquipList.mcomments field.
DBSetProp('lv_EquipList.mcomments', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.mcomments', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.mcomments', 'Field', 'UpdateName', 'invent!Equip.mcomments')
DBSetProp('lv_EquipList.mcomments', 'Field', 'DataType', "M")

*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

* Props for the lv_EquipList.cadduser field.
DBSetProp('lv_EquipList.cadduser', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cadduser', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cadduser', 'Field', 'UpdateName', 'invent!Equip.cadduser')
DBSetProp('lv_EquipList.cadduser', 'Field', 'DataType', "C(10)")
* Props for the lv_EquipList.daddtime field.
DBSetProp('lv_EquipList.daddtime', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.daddtime', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.daddtime', 'Field', 'UpdateName', 'invent!Equip.daddtime')
DBSetProp('lv_EquipList.daddtime', 'Field', 'DataType', "T")
* Props for the lv_EquipList.lretired field.
DBSetProp('lv_EquipList.lretired', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.lretired', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.lretired', 'Field', 'UpdateName', 'invent!Equip.lretired')
DBSetProp('lv_EquipList.lretired', 'Field', 'DataType', "L")
* Props for the lv_EquipList.iunittype field.
DBSetProp('lv_EquipList.iunittype', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.iunittype', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.iunittype', 'Field', 'UpdateName', 'invent!Equip.iunittype')
DBSetProp('lv_EquipList.iunittype', 'Field', 'DataType', "I")
* Props for the lv_EquipList.ipcclass field.
DBSetProp('lv_EquipList.ipcclass', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.ipcclass', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.ipcclass', 'Field', 'UpdateName', 'invent!Equip.ipcclass')
DBSetProp('lv_EquipList.ipcclass', 'Field', 'DataType', "I")

* Props for the lv_EquipList.pcorder field.
DBSetProp('lv_EquipList.pcorder', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.pcorder', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.pcorder', 'Field', 'UpdateName', 'invent!Equip.pcorder')
DBSetProp('lv_EquipList.pcorder', 'Field', 'DataType', "C")

* Props for the lv_EquipList.sworder field.
DBSetProp('lv_EquipList.sworder', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.sworder', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.sworder', 'Field', 'UpdateName', 'invent!Equip.sworder')
DBSetProp('lv_EquipList.sworder', 'Field', 'DataType', "C")

* Props for the lv_EquipList.cpu_mghz field.
DBSetProp('lv_EquipList.cpu_mghz', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cpu_mghz', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cpu_mghz', 'Field', 'UpdateName', 'invent!Equip.cpu_mghz')
DBSetProp('lv_EquipList.cpu_mghz', 'Field', 'DataType', "C")

* Props for the lv_EquipList.memory field.
DBSetProp('lv_EquipList.memory', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.memory', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.memory', 'Field', 'UpdateName', 'invent!Equip.memory')
DBSetProp('lv_EquipList.memory', 'Field', 'DataType', "C")

* Props for the lv_EquipList.dOrdered field.
DBSetProp('lv_EquipList.dOrdered', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dOrdered', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dOrdered', 'Field', 'UpdateName', 'invent!Equip.dOrdered')
DBSetProp('lv_EquipList.dOrdered', 'Field', 'DataType', "D")

* Props for the lv_EquipList.dShipped field.
DBSetProp('lv_EquipList.dShipped', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dShipped', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dShipped', 'Field', 'UpdateName', 'invent!Equip.dShipped')
DBSetProp('lv_EquipList.dShipped', 'Field', 'DataType', "D")

* Props for the lv_EquipList.dEffective field.
DBSetProp('lv_EquipList.dEffective', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dEffective', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dEffective', 'Field', 'UpdateName', 'invent!Equip.dEffective')
DBSetProp('lv_EquipList.dEffective', 'Field', 'DataType', "D")

* Props for the lv_EquipList.dRetired field.
DBSetProp('lv_EquipList.dRetired', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dRetired', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dRetired', 'Field', 'UpdateName', 'invent!Equip.dRetired')
DBSetProp('lv_EquipList.dRetired', 'Field', 'DataType', "D")

* Props for the lv_EquipList.dLetterSent field.
DBSetProp('lv_EquipList.dLetterSent', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dLetterSent', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dLetterSent', 'Field', 'UpdateName', 'invent!Equip.dLetterSent')
DBSetProp('lv_EquipList.dLetterSent', 'Field', 'DataType', "D")

* Props for the lv_EquipList.cSource field.
DBSetProp('lv_EquipList.cSource', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cSource', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.cSource', 'Field', 'UpdateName', 'invent!Equip.cSource')
DBSetProp('lv_EquipList.cSource', 'Field', 'DataType', "C")

* Props for the lv_EquipList.cmanufname field.
DBSetProp('lv_EquipList.cmanufname', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cmanufname', 'Field', 'Updatable', .F.)
DBSetProp('lv_EquipList.cmanufname', 'Field', 'UpdateName', 'invent!manuf.cmanufname')
DBSetProp('lv_EquipList.cmanufname', 'Field', 'DataType', "C(30)")

* Props for the lv_EquipList.cmodel field.
DBSetProp('lv_EquipList.cmodel', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.cmodel', 'Field', 'Updatable', .F.)
DBSetProp('lv_EquipList.cmodel', 'Field', 'UpdateName', 'invent!model.cmodel')
DBSetProp('lv_EquipList.cmodel', 'Field', 'DataType', "C(20)")

* Props for the lv_EquipList.dSWOrdered field.
DBSetProp('lv_EquipList.dSWOrdered', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dSWOrdered', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dSWOrdered', 'Field', 'UpdateName', 'invent!Equip.dSWOrdered')
DBSetProp('lv_EquipList.dSWOrdered', 'Field', 'DataType', "D")

* Props for the lv_EquipList.dSWShipped field.
DBSetProp('lv_EquipList.dSWShipped', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dSWShipped', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dSWShipped', 'Field', 'UpdateName', 'invent!Equip.dSWShipped')
DBSetProp('lv_EquipList.dSWShipped', 'Field', 'DataType', "D")

* Props for the lv_EquipList.dSWEffective field.
DBSetProp('lv_EquipList.dSWEffective', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dSWEffective', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dSWEffective', 'Field', 'UpdateName', 'invent!Equip.dSWEffective')
DBSetProp('lv_EquipList.dSWEffective', 'Field', 'DataType', "D")

* Props for the lv_EquipList.dSWRetired field.
DBSetProp('lv_EquipList.dSWRetired', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dSWRetired', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dSWRetired', 'Field', 'UpdateName', 'invent!Equip.dSWRetired')
DBSetProp('lv_EquipList.dSWRetired', 'Field', 'DataType', "D")

* Props for the lv_EquipList.dSWLetterSent field.
DBSetProp('lv_EquipList.dSWLetterSent', 'Field', 'KeyField', .F.)
DBSetProp('lv_EquipList.dSWLetterSent', 'Field', 'Updatable', .T.)
DBSetProp('lv_EquipList.dSWLetterSent', 'Field', 'UpdateName', 'invent!Equip.dSWLetterSent')
DBSetProp('lv_EquipList.dSWLetterSent', 'Field', 'DataType', "D")

Thanks,

Dave
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform