> John, > > Sorry the mailk was sent before I was done > > I think the problem is that you have dim'ed your variable two as an alias in > stead of an Integer Also remember that you have to read all the values from the dialog using ReadControlValue, when you use a handler, the "into variables" are not filled with the value before the Handler is finished and the dialog is closed
> Peter Horsbøll Møller > GIS Developer, MTM > Geographical Information & IT > > COWI A/S > Odensevej 95 > DK-5260 Odense S. > Denmark > > Tel +45 6311 4900 > Direct +45 6311 4908 > Mob +45 5156 1045 > Fax +45 6311 4949 > E-mail [EMAIL PROTECTED] > http://www.cowi.dk/gis > > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Crouse > Sent: Wednesday, December 21, 2005 6:26 AM > To: [email protected] > Subject: [MI-L] EditText Issues > > > I have attached code to a program I am working on. My problem is that I I > can't get the input in the EditText box into the Sub Procedure that I need to > do several queries on. I have tried to change the text to a value using the > "Val" command but when I test it using a Print statement, it always comes > back as a 0. Any suggestions? > > TIA, > > John > > Include "mapbasic.def" > Include "icons.def" > Include "menu.def" > > define x*8 > define y*8 > > Declare Sub main > Declare Sub fillcolumnlist > Declare Sub Process > Dim strTablelist(), strTabName, strColList() as string > Dim intTableid, intColnum, intCounter, intTabnum, intColumnid as Integer > Dim strBox1, strBox2 as string > Dim one, two, three, four as Alias > Dim matrix_table as string > > Sub main > > > intTabnum = Numtables() > redim strTableList(intTabnum) > > for intCounter = 1 to intTabnum > strTablelist(intCounter) =Tableinfo(intCounter, TAB_INFO_NAME) > next > > intColnum = NumCols(strTablelist(1)) > redim strColList(intColnum) > for intCounter = 1 to intColnum > strColList(intCounter) = ColumnInfo(strTablelist(1), "COL"+intCounter, > COL_INFO_NAME) > next > > intTableid = 1 > > Dialog > > Title "Risk Matrix" > Width 40x Height 53y > > Control GroupBox > Title "Step 1 - Select Table, Columns, and Ranges:" > Position 1x, 1y > Width 37x Height 13y > > Control StaticText > Title "Select Table:" > Position 2x, 2.5y > > Control PopupMenu > ID 1 > Position 12x, 2.5y > Title from variable StrTablelist > calling fillcolumnlist > Width 12x > into one > > Control StaticText > Title "Select Actual Value:" > Position 2x, 5.5y > > Control PopupMenu > ID 2 > Position 12x, 5.5y > Title from Variable strColList > Width 12x > into two > > Control StaticText > Title "Select Model Value:" > Position 2x, 8.5y > > Control PopupMenu > ID 3 > Position 12x, 8.5y > Title from Variable strColList > Width 12x > > Control StaticText > Title "Select # of Ranges:" > Position 2x, 11.5y > > Control PopupMenu > Title "10;15;20" > ID 4 > Value 3 > Position 12x, 11.5y > Width 12x > > Control GroupBox > Title "Select High Value for Range:" > Position 1x, 15y > Width 37x Height 34y > > Control StaticText > Title "Range 1:" > Position 2x, 16.5y > > Control StaticText > Title "Range 2:" > Position 2x, 18.5y > > Control EditText > Position 7.5x, 16.5y > ID 5 > Into strBox1 > Width 10x > > Control EditText > Position 7.5x, 18.5y > ID 6 > Into strBox2 > Width 10x > > Control OKButton > Position 12x, 50y > ID 25 > Calling Process > > Control CancelButton > Position 19x, 50y > ID 26 > End Sub > > Sub FillColumnlist > intTableid = ReadControlValue(1) > strTabname = Tableinfo(strTablelist(intTableid), TAB_INFO_NAME) > intColnum = NumCols(strTabname) > redim strColList(intColnum)> > for intCounter = 1 to intColnum > strColList(intCounter) = ColumnInfo(strTablelist(intTableid), > "COL"+intCounter, COL_INFO_NAME) > next > Alter Control 2 Title from Variable strColList > Alter Control 3 Title from Variable strColList > End Sub > > Sub Process > matrix_table = TableInfo(intTableid, TAB_INFO_NAME) > intColumnid = ReadControlValue(2) > two = ColumnInfo(strTableList(intTableid),"COL"+intColumnid,COL_INFO_NAME) > '**********At this point I would like to select the records from the table > that are above and/or below a certain value > 'like the example below*************** > 'Select * from matrix_table where two > strBox1 and two < strBox2 > End Sub > > > > > _______________________________________________ > MapInfo-L mailing list > [email protected] > http://www.directionsmag.com/mailman/listinfo/mapinfo-l > > _______________________________________________ MapInfo-L mailing list [email protected] http://www.directionsmag.com/mailman/listinfo/mapinfo-l
