AddItemsFromTable method problems....

NickDeMerchant — Tue, 06 Jul 2010 18:19:23 GMT

Hi there, I am looking at some VBscript and finding that the AddItemsFromTable method does not seem to be working as I am thinking it should.

I have a table that is referenced by DbfFileName. The value field is called Value and the descriptive field of which I want displayed in the cmb control is Desc.

When a particular strType is selected, a certain table is called. What I am finding is that only the value field values are being displayed in the control and not the Desc field values (descriptive text).

If anyone has seen this behaviour or sees any issues on the formatting please let me know. I have included a code snippet below.

Thanks,

Nick

------------------------------------

select case strType
case "SR", "MR", "HP", "HR", "LP", "EG", "EP"
SetPageEnabled "pgStatus", true
SetPageEnabled "pgCulvert", true
SetPageEnabled "pgCulvert2", true
SetPageEnabled "pgBridge", false
SetPageEnabled "pgBeaver", false
set pg = Layer.Forms("EDITFORM").Pages.Item("pgCulvert")
select case strType
case "SR"
   strLabel = "Diameter (in)"
   pg.Controls("chkSlope").Enabled = true
   pg.Controls("chkFish").Enabled = true
   pg.Controls("chkEmbedded").Enabled = true
   pg.Controls("chkRRBed").Enabled = false
   pg.Controls("chkNoGaps").Enabled = false
   pg.Controls("chkBankdist").Enabled = false
   'pg2.Controls("chkAppFoot").Enabled = false
      DbfFileName = DbfPath & "\streamroad_sr.dbf"
   msgbox dbfFileName
   Set objCboControl = Layer.Forms("EDITFORM").Pages.Item("pgCulvert").Controls("cmbDiam")
   objCboControl.clear
   Call ObjCboControl.AddItemsFromTable(DbfFileName, "Value", "Desc")
case "MR"
   strLabel = "Diameters (ex: 2/2) (cm)"'ft)"
   pg.Controls("chkSlope").Enabled = true
   pg.Controls("chkFish").Enabled = true
   pg.Controls("chkEmbedded").Enabled = true
   pg.Controls("chkRRBed").Enabled = false
   pg.Controls("chkNoGaps").Enabled = false
   pg.Controls("chkBankdist").Enabled = false
case "HP"
   strLabel = "End Area (sq.m)"'sqft)"
   pg.Controls("chkSlope").Enabled = false
   pg.Controls("chkFish").Enabled = false
   pg.Controls("chkEmbedded").Enabled = false
   pg.Controls("chkRRBed").Enabled = true
   pg.Controls("chkNoGaps").Enabled = true
   pg.Controls("chkBankdist").Enabled = true
   DbfFileName = DbfPath & "\streamroad_hp.dbf"
   Set objCboControl = Layer.Forms("EDITFORM").Pages.Item("pgCulvert").Controls("cmbDiam")
   objCboControl.clear
   Call ObjCboControl.AddItemsFromTable(DbfFileName, "Value", "Desc")

Re: AddItemsFromTable method problems....

Almarde_Ronde — Fri, 16 Jul 2010 09:34:40 GMT

Hello Nick,

My experience is that a combobox or list only shows 1 column, and the values in the list are set with the Values Field property. If you wish to display the descriptive text in the box, simply say something like

ObjCboControl.AddItemsFromTable DbfFileName, "Desc", "Desc"

("Desc" is actually a reserved word in ArcMap I believe, perhaps need to change the field name to prevent conflict?)

Hope that helps, Almar.

Re: AddItemsFromTable method problems....

RolfBroch — Tue, 20 Jul 2010 05:10:16 GMT

Have you tried to reveres the description and value fields. I remember reading something that if you have the limittolist property set it is reversed... Do not have access to any docs right now but try it out. Instead of using

AddItemsFromTable(DbfFileName, "Value", "Desc")
use
AddItemsFromTable(DbfFileName, "Desc", "Value")

topic Re: AddItemsFromTable method problems.... in ArcPad Questions

AddItemsFromTable method problems....

Re: AddItemsFromTable method problems....

Re: AddItemsFromTable method problems....