发布网友 发布时间:2022-04-23 02:40
共3个回答
热心网友 时间:2023-10-12 02:58
sadf 即表名,也就是说必须打开有sadf命名的表后才能执行!
下面是解释:
include "mapbasic.def" 导入库
declare sub main 主函数
declare sub drawpoint 子函数
sub main 主函数开始
call drawpoint 跳转到子函数
end sub 主函数结束
sub drawpoint 子函数开始
dim x as float 定义浮点数X
dim y as float 定义浮点数Y
dim i as integer 定义整数I
i = 1 i等于1
fetch first from asdf 定义到表asdf的第一行
do until eot(asdf) 循环至asdf的最后一行
x = asdf.a x等于asdf的a列的值
y = asdf.b y等于asdf的b列的值
note x 弹出对话窗,显示X的值
update asdf set obj = CreatePoint(x, y) where rowid = i 更新asdf图形的画一个点(X为经度,Y为纬度)
i = i + 1 i加1
fetch next from asdf 定位到下一行
loop 循环
end sub 子函数结束
这回分得给我吧!打了这么多,累死!!!!!
热心网友 时间:2023-10-12 02:58
fsadfsdfffdsa
热心网友 时间:2023-10-12 02:59
asdfsdfa