第二个参数为空 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 第二个参数为空

共有3488人关注过本帖树形打印复制链接主题：第二个参数为空

zhangjian222200

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1536 积分：10849 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2021/2/7 16:14:00 [只看该作者]

Dim drs As List(of DataRow)

drs = DataTables("物品信息").SQLSelect("SEL ECT 设置查询_纬度 Fr om {会员资料} W here [设置查询_纬度] <> ''")

msgbox(drs.Count) ’查询结果是0，ft里如何使用sql代码？

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/7 16:16:00 [只看该作者]

drs = DataTables("会员资料").SQLSelect("设置查询_纬度 is not null and (5000 > round(2 * asin(sqrt(。。。。。。。。。。。。

zhangjian222200

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1536 积分：10849 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2021/2/7 16:39:00 [只看该作者]

Dim latitude1 = 1500

Dim longitude1 = 3000

Dim drs As List(of DataRow)

drs = DataTables("会员资料").SQLSelect("设置查询_纬度 is not null and (5000 > round(2 * asin(sqrt(power(sin((latitude1 - ([设置查询_纬度] * PI / 180.0)) / 2), 2) + cos(latitude1) * cos([设置查询_纬度] * PI / 180.0) * power(sin((longitude1 * PI / 180.0 - [设置查询_经度] * PI / 180.0) / 2), 2)))*6378.137))",20,"注册日期 Desc") ’这一句无论如何也找不到资料行，参楼上，都去掉math，但，这里的latitude1与longitude1，都是变量，如何处理？

'drs = DataTables("会员资料").SQLSelect("设置查询_纬度 is not null",20,"注册日期 Desc") ’这一句可以找到行

msgbox(drs.Count)

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/7 16:40:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1284.htm

zhangjian222200

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1536 积分：10849 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2021/2/7 17:09:00 [只看该作者]

Dim latitude1 = 1500

Dim longitude1 = 3000

Dim drs As List(of DataRow)

drs = DataTables("会员资料").SQLSelect("设置查询_纬度 is not null" And 5000 < round(2 * asin(sqrt(power(sin(("'" & latitude1 & "'" - ([设置查询_纬度] * pi / 180.0)) / 2), 2) + cos("'" & latitude1 & "'") * cos([设置查询_纬度] * pi / 180.0) * power(sin(("'" & longitude1 & "'" * pi / 180.0 - [设置查询_经度] * pi / 180.0) / 2), 2)))*6378.137)"'",20,"注册日期 Desc")

msgbox(drs.Count)

此主题相关图片如下：000.png

这个字符串+表达式，实在搞不定，麻烦瞧瞧

[此贴子已经被作者于2021/2/7 17:16:58编辑过]

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/7 17:19:00 [只看该作者]

麻烦看帮助仔细一点

表达式中的日期用符号#括起来，数值则不需要任何符号括起来，这些和代码中的格式是一样的，唯一不同的是字符串用单引号括起来。

例如：

Tables("订单").Filter = "[产品] = 'PD01'"  '字符用单引号括起来
Tables("订单").Filter = "[日期] = #3/17/1999#"  '日期用#括起来
Tables("订单").Filter = "[折扣] = 0.1"  '数值直接使用

自己使用msgbox调试一下，弹出拼接后的sql，看看哪里不合理，也可以放到数据库里执行看效果

zhangjian222200

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1536 积分：10849 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2021/2/7 18:05:00 [只看该作者]

看了很多次，数值直接使用了，没有日期，应该是字符单引号问题，

但是，怎么调都显示没有定义round

Dim latitu de1 = 1500

Dim longi tude1 = 3000

Dim drs As List(of DataRow)

drs = DataTables("会员资料").SQLSelect("设置查询_纬度 is not null" And 5000 < round(2 * asin(sqrt(power(sin((latitude1 - ([设置查询_纬度] * pi / 180.0)) / 2), 2) + cos(latitude1) * cos([设置查询_纬度] * pi / 180.0) * power(sin((longitude1 * pi / 180.0 - [设置查询_经度] * pi / 180.0) / 2), 2)))*6378.137),20,"注册日期 Desc")

msgbox(drs.Count)

此主题相关图片如下：000.png