代码如下:
Dim tb As Table = e.Form.Controls("Table1").TableAddHandler tb.grid.Paint, AddressOf Grid_Painttb.Grid.Name = tb.Name 在窗体加载后事件中运行如下错误