主题：甘特图改进问题？

试试   写在表格的 AfterResizeRow 事件里

 

 

表格1

 

Dim tb1 As Table = e.Form.Controls("Table1").Table
Dim tb2 As Table = e.Form.Controls("Table2").Table

If e.Position < 0 Then
    tb2.Grid.Rows(0).Height = tb1.Grid.Rows(0)

    tb2.Grid.Rows(1).Height = tb1.Grid.Rows(1)

Else
    tb2.DefaultRowHeight = tb1.DefaultRowHeight

 

End If

 

 

表格2

Dim tb1 As Table = e.Form.Controls("Table1").Table
Dim tb2 As Table = e.Form.Controls("Table2").Table

If e.Position < 0 Then
     tb1.Grid.Rows(0).Height = tb2.Grid.Rows(0).Height

     tb1.Grid.Rows(1).Height =  tb2.Grid.Rows(1).Height
Else
    tb1.DefaultRowHeight = tb2.DefaultRowHeight

End If