multi_listbox.mb

很多的MAPINFO的常见问题下载后可以学习很有帮助

include "mapbasic.def"
include "menu.def"

declare sub main
declare sub sub1
declare sub sub2
declare sub sub3
declare sub WinClosedHandler

global mul_sel_list() as string'定义一个字符串数组，

sub main
	dim i as smallint
	redim mul_sel_list(tableinfo(capitals,tab_info_nrows))

	create menu "showmulselrows" as 
	   "showrows" calling sub1,
	   "exit" calling sub3	
	alter menu bar 
  	   add "showmulselrows"

	'将capitals 表中name字段的值加入到MulListBox 中。
	fetch first from capitals
	for i=1 to tableinfo(capitals,tab_info_nrows)
		mul_sel_list(i)=capitals.name
		fetch next from capitals
	next

end sub

sub sub1
	dialog
	   title "show multi selected records"
	   control multilistbox
		title from variable mul_sel_list
		value 1
		ID 9999
		position 17,15
	   control okbutton
		calling sub2
		position 10,100
	   control cancelbutton
		position 70,100
end sub

sub sub2
	dim k as smallint
Set ProgressBars Off
	commit table capitals as "mulseltab"
	open table "mulseltab"
	delete from mulseltab
	commit table mulseltab
	pack table mulseltab data
set ProgressBars on

	fetch first from capitals
set ProgressBars off
set map redraw off	
	do
		k=readcontrolvalue(9999)
		   if k=0 then
			  exit do
		     else 
			  select * from capitals where capitals.name = mul_sel_list(k) into mul_sel_tab
  		        insert into mulseltab select * from mul_sel_tab
		   end if
	loop while not eot(capitals)
set map redraw on
set ProgressBars on
	browse * from mulseltab
end sub

sub sub3
	end program
end sub

sub WinClosedHandler
	if windowinfo(frontwindow(),win_info_type)=WIN_BROWSER and windowinfo(frontwindow(),win_info_table)="mulseltab" then
		drop table mulseltab
		drop table mul_sel_tab
	end if
end sub