主题：组织结构图标注颜色问题

考虑使用专业报表绘制：http://www.foxtable.com/webhelp/topics/1222.htm、http://www.foxtable.com/webhelp/topics/1230.htm

或者扩展控件：http://www.foxtable.com/webhelp/topics/0811.htm

不可能无限大的

Dim Value2 As List(Of DataRow) = DataTables("表A").Select("[建设期数] = '第2期'", "顺序号")

Dim s2 As Integer = 5 

Dim t2 As Integer = 10

For i2 As Integer = 0 To Value2.count- 1

    If i2 <> 0 Then

        If i2 Mod 5 = 0 Then 

            s2 = 5 

            t2 = t2 + 75 

        Else 

            s2 = s2 + 115 

        End If

    End If 

    Dim dr3 As DataRow = Value2(i2)

    lbl2 = e.Form.CreateControl(dr3("楼幢号"), ControlTypeEnum.Button) 

    lbl2.Theme = "(none)" 

    ' lbl2.Text = nm2 '按钮标题原代码 

        lbl2.Text = dr3("顺序号") & vbcrlf & dr3("楼幢号") & dr3("楼层") & vbcrlf & dr3("单元") & "[" & dr3("户型") & "]"