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

BBB左侧为A01,顶上为AA1,则它坐标为(300,1800);    

坐标有问题吧，是不是应该300,1500

BBB的坐标貌似有问题，你再看下，自己调整对应代码吧，感觉应该是1500或2000

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:00.table

修正一下代码

Dim dr As DataRow
Dim dt As DataTable = DataTables("坐标")
Dim str As String
Dim Dic As new Dictionary(of String,DataRow)
For Each dr In dt.DataRows
    dic.Add(dr("名称"),dr)
Next
For Each str In dic.Keys
    dr = dic(str)
    If dr.Isnull("左侧控件") AndAlso dr.Isnull("顶上控件") Then
        dr("X坐标") = 0
        dr("Y坐标") = 0
    ElseIf dr.Isnull("左侧控件") = False AndAlso dr.Isnull("顶上控件") Then
        dr("X坐标") = dic(dr("左侧控件"))("X坐标")  + dic(dr("左侧控件"))("宽")
        dr("Y坐标") = dic(dr("左侧控件"))("Y坐标") 
    ElseIf dr.Isnull("左侧控件") AndAlso dr.Isnull("顶上控件") = False Then
        dr("X坐标") = dic(dr("顶上控件"))("X坐标")
        dr("Y坐标") = dic(dr("顶上控件"))("Y坐标") + dic(dr("顶上控件"))("高")
    ElseIf dr.Isnull("左侧控件") = False AndAlso dr.Isnull("顶上控件") = False Then
        dr("X坐标") = dic(dr("左侧控件"))("X坐标") + dic(dr("左侧控件"))("宽")
        dr("Y坐标") = dic(dr("顶上控件"))("Y坐标") + dic(dr("顶上控件"))("高")
    End If
Next

这样再试试

Dim dr As DataRow
Dim dt As DataTable = DataTables("坐标")
Dim str As String
Dim Dic As new Dictionary(of String,DataRow)
For Each dr In dt.Select("","名称")        '如果有空行，改下条件For Each dr In dt.Select("名称 is not null","名称")
    dic.Add(dr("名称"),dr)
Next
For Each str In dic.Keys
    dr = dic(str)
    If dr.Isnull("左侧控件") AndAlso dr.Isnull("顶上控件") Then
        dr("X坐标") = 0
        dr("Y坐标") = 0
    ElseIf dr.Isnull("左侧控件") = False AndAlso dr.Isnull("顶上控件") Then
        dr("X坐标") = dic(dr("左侧控件"))("X坐标")  + dic(dr("左侧控件"))("宽")
        dr("Y坐标") = dic(dr("左侧控件"))("Y坐标") 
    ElseIf dr.Isnull("左侧控件") AndAlso dr.Isnull("顶上控件") = False Then
        dr("X坐标") = dic(dr("顶上控件"))("X坐标")
        dr("Y坐标") = dic(dr("顶上控件"))("Y坐标") + dic(dr("顶上控件"))("高")
    ElseIf dr.Isnull("左侧控件") = False AndAlso dr.Isnull("顶上控件") = False Then
        dr("X坐标") = dic(dr("左侧控件"))("X坐标") + dic(dr("左侧控件"))("宽")
        dr("Y坐标") = dic(dr("顶上控件"))("Y坐标") + dic(dr("顶上控件"))("高")
    End If
Next

don兄，根据名称排序只是在代码运行过程中排序，并不妨碍表中数据行的顺序啊？