主题：[求助]如何实现筛选临近坐标？

参考

http://www.foxtable.com/webhelp/scr/1647.htm

http://www.foxtable.com/webhelp/scr/0448.htm

具体问题，上传实例说明。

参考代码

Dim t As Table = Tables("表A")
Dim x = 200
Dim y = 200
Dim c = 5
Dim drs = t.DataTable.Select("")
Dim ary1(drs.count-1) As Integer
Dim ary3(drs.count-1) As Double
For i As Integer = 0 To drs.count-1
    Dim dr As DataRow = drs(i)
    ary1(i) = dr("_Identify")
    Dim s = dr("第一列")
    s = s.replace("(", "").replace(")", "")
    Dim ary = s.split(",")
    If ary.length = 2 Then
        ary3(i) = Math.Sqrt((x-ary(0))^2+(y-ary(1))^2)
    Else
        ary3(i) = Math.Sqrt((x)^2+(y)^2)
    End If
Next
array.sort(ary3, ary1)
Dim str As String = ""
For i As Integer = 1 To c
    str &= ary1(i-1) & ","
Next
t.filter = "_Identify in (" & str.trim(",") & ")"

参考

http://www.foxtable.com/webhelp/scr/0213.htm