Dim cvs As String = Tables("订单").GetColVisibleWidth()Tables("产品.订单").SetColVisibleWidth(cvs)
这此代码在那个表的那个事件中写