主题：发现一个窗口加载的问题（已解决）

窗口中有一目录树和一个表
目录树的NodeMouseClick事件代码为：
Tables("RS_项目管理_Table1").Fill("Select * From {"& e.Node.Name &"}","rs",False)
但是我发现，如果其中有一个表是双层列标题，当选过此表后，再选其它的单层列标题的表时，仍会出现双层列，只不过是第二层列标题是空的，这一定是的BUG了，请看下图

此主题相关图片如下：双层列.jpg

一直都是这样的。

才发现，有无办法或是变通办法？

如果知道fill的是只有一层表头的话很容易解决，如：
Tables("窗口名_Table1").SetHeaderRowHeight(20,0)

有没有办法判断是多层表头还是单层表头？

这样试试：

Dim s As String
Tables("RS_项目管理_Table1").Fill("Select * From {"& e.Node.Name &"}","rs",False)
For Each dc As DataCol In DataTables(e.Node.Name).DataCols
    if dc.Caption <> ""
        s = s & "|" & dc.Caption
    Else
        s = s & "|" & dc.name
    End If
Next
if s.Contains("_") Then
    Tables("窗口1_Table1").SetHeaderRowHeight(20,0)
End If

目前只能是先这样了
If e.Node.Name = "家庭成员"
Tables("RS_项目管理_Table1").SetHeaderRowHeight(20,20)
Else
Tables("RS_项目管理_Table1").SetHeaderRowHeight(20,0)
End If

如果动态生成的表比较多，用6楼合适，就这两个表的话if更简单。

我这样改了一下，因为表是在后台，谢谢CZY版主，呵呵