主题：[分享]表格列标题提示

不少狐友希望提示能显示：

某列是否是表达式列，以及表达式的内容，这下好了，按照逛逛的方法，可以这样了：

Dim tb As Table = e.Form.Controls("Table1").Table
Dim grid As C1FlexGrid.C1FlexGrid = tb.Grid
AddHandler grid.MouseMove, AddressOf 标题_MouseMove
For i As Integer = 1 To tb.Cols.Count
    grid.SetUserData(0 ,i,tb.Cols(i - 1).DataCol.Expression)
Next

放在SystemIdle事件里面，主表、副表都起作用：

For Each t As Table In Tables
    Dim grid As C1FlexGrid.C1FlexGrid = t.Grid
    AddHandler grid.MouseMove, AddressOf 标题_MouseMove
    For i As Integer = 1 To t.Cols.Count
        grid.SetUserData(0 ,i,t.Cols(i - 1).DataCol.Expression)
    Next
Next