主题：急！！！菜单设置修改后，运行错误

1、currentChanged事件

 

Dim r As Row = e.Table.Current

If r is Nothing Then return

Tables("下表").filter = "姓名 = '" & r("姓名") & "'"

 

2、要加入两个panel，然后把两个表放入panel里面，panel控制好其高度或停靠或锚定。最后把table停靠设置成fill即可。

 重新打开项目，按住Ctrl不放，然后去把菜单的主菜单的事件代码删掉，就行。