主题：当前行的行高，根据该单元格的内容所需，自动调整行高，当鼠标离开该单元格时，改行恢复默认行高？

参考

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

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

调整代码，写到你所需要的事件，即可

比如，afterselChanged事件，写代码

e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight

写到你主表的afterSelChanged事件即可。

如果要判断表名，加入代码

If e.table.name = "窗口1_Table1" Then

    '原来代码

End If

If e.OldRange.RowSel >= e.Table.Rows.count Then
    e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
End If

加如代码测试弹出你的表名称

msgbox(e.Table.name & " " & CurrentTable.name)
If e.Table.name = CurrentTable.name Then
    msgbxo(2)
    If e.Table.name = "仓管表窗口_入库明细表" Then
        If e.OldRange.RowSel >= e.Table.Rows.count Then
            e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
        End If
    Else
        If e.OldRange.RowSel >= e.Table.Rows.count Then
            e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
        End If
    End If
End If

If e.Table.name = CurrentTable.name Then
    If e.Table.name = "仓管表窗口_入库明细表" Then
        If e.OldRange.RowSel < e.Table.Rows.count Then
            e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
        End If
    Else
        If e.OldRange.RowSel < e.Table.Rows.count Then
            e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
        End If
    End If
End If

排序之前，beforesort，执行

vars("stop") = true

aftersort，执行

vars("stop") = false

afterselchanged事件，执行

If vars("stop") = false andalso e.Table.name = CurrentTable.name Then
    If e.Table.name = "仓管表窗口_入库明细表" Then
        If e.OldRange.RowSel < e.Table.Rows.count Then
            e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
        End If
    Else
        If e.OldRange.RowSel < e.Table.Rows.count Then
            e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
        End If
    End If
End If