代码名称:利用fileopendgl函数打开表

作者/收集者:zixing

开发环境:MapBasic

代码:

declare sub main
sub main
dim filename as string
dim tablename as string
filename = fileopendlg("","","tab","打开表")
if filename="" then
exit sub
else
tablename=pathtotablename$(filename)
open table tablename
map from tablename
end if
end sub