Subject Combobox
From bob McKinney <jrmckinney4831@gmail.com>
Date Sat, 17 Sep 2022 10:46:28 -0400
Newsgroups dbase.getting-started

Hi All:  I 'm having a problem with comboboxes being used for lookups.  In my datamodule all of the lookup tables
have the SQL set to [ Select * from "table name"]   (Customer", Country, whatever).  On a form the combox is datalinked to [ State ID ] -  (Country ID, typeofbus ID, terms ID, or whatever).
  
1st Problem: On this test form I can't get the combobox to load.  The dropdown is blank.
2nd Problem: On another form, I don't know what I did to load the comboxes but I did.  I selected a state,
( Country,Terms, Whatever) ,It not only loads the rowset's state field  that you are working with, it also changes
every rowset State field in the whole table.  (like the old code While not EOF()  )  Not too helpful.

As you see below, I created a "Test Form" whith all the fields effected by the above problems
*****************

** END HEADER -- do not remove this line
//
// Generated on 09/17/2022
//
parameter bModal
local f
f = new Test1Form()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class Test1Form of BASESBCFORM from Basesb.cfm
   set procedure to :SB_Datamodulesb:Customer.dmd additive
   set procedure to C:\Users\19546\Documents\dBASE\dBASE2019\dBLClasses\SEEKER.CC addit
   with (this)
      height = 352.0
      left = 591.0
      top = 149.0
      width = 481.0
   endwith

   this.CUSTOMERDATAMODULE1 = new CUSTOMERDATAMODULE()
   this.CUSTOMERDATAMODULE1.parent = this
   with (this.CUSTOMERDATAMODULE1)
      left = 314.0
      top = 265.0
      width = 100.0
      height = 37.0
   endwith

   this.MYENTRYFIELDSB1 = new MYENTRYFIELDSB(this)
   with (this.MYENTRYFIELDSB1)
      dataLink = form.customerdatamodule1.customer1.rowset.fields["company"]
      height = 22.0
      left = 3.0
      top = 97.0
      width = 188.0
   endwith

   this.MYTOOLBARSB11 = new MYTOOLBARSB1(this)
   with (this.MYTOOLBARSB11)
      left = 40.0
      top = 37.0
      width = 430.0
      height = 34.0
   endwith

   this.MYCOMBOBOXSB1 = new MYCOMBOBOXSB(this)
   with (this.MYCOMBOBOXSB1)
      dataLink = form.customerdatamodule1.state1.rowset.fields["state id"]
      height = 22.0
      left = 4.0
      top = 143.0
      width = 116.0
   endwith

   this.MYCOMBOBOXSB2 = new MYCOMBOBOXSB(this)
   with (this.MYCOMBOBOXSB2)
      dataLink = form.customerdatamodule1.country1.rowset.fields["country id"]
      height = 22.0
      left = 5.0
      top = 175.0
      width = 116.0
   endwith

   this.MYCOMBOBOXSB3 = new MYCOMBOBOXSB(this)
   with (this.MYCOMBOBOXSB3)
      dataLink = form.customerdatamodule1.typebus1.rowset.fields["typebus id"]
      height = 22.0
      left = 0.0
      top = 210.0
      width = 116.0
   endwith

   this.MYCOMBOBOXSB4 = new MYCOMBOBOXSB(this)
   with (this.MYCOMBOBOXSB4)
      dataLink = form.customerdatamodule1.terms1.rowset.fields["termsid"]
      height = 22.0
      left = 4.0
      top = 242.0
      width = 116.0
   endwith

   this.rowset = this.customerdatamodule1.customer1.rowset

endclass
****************

I hope I my Info is understood.   Any help appreciated......Bob