[求助]如何根据相对位置确定其坐标? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each dr As DataRow In DataTables("坐标").Select("顶上控件 Is Null")
    Dim dr1 As DataRow = dr
    dr1("y坐标") = 0
    Do
        Dim dr2 As DataRow = DataTables("坐标").Find("顶上控件 = '" & dr1("名称") & "'")
        If dr2 IsNot Nothing
            dr2("y坐标") = dr("y坐标") + dr1("高")
            dr1 = dr2
        Else
            Exit Do
        End If
    Loop
Next
For Each dr As DataRow In DataTables("坐标").Select("左侧控件 Is Null")
    Dim dr1 As DataRow = dr
    dr1("x坐标") = 0
    Do
        Dim dr2 As DataRow = DataTables("坐标").Find("左侧控件 = '" & dr1("名称") & "'")
        If dr2 IsNot Nothing
            dr2("x坐标") = dr("x坐标") + dr1("宽")
            dr1 = dr2
        Else
            Exit Do
        End If
    Loop
Next

主题：[求助]如何根据相对位置确定其坐标?