If e.Col.Name = "浏览事件" Dim n As Integer = e.Row.Index Dim wd As String = "文档" & Format(n,"000") Tables("主界面_事件").DataSource = DataTables(wd) Tables("主界面_事件").SetColVisibleWidth("姓名|60|时间|40|事实|300")End If
这样行吗?