Dim t As Table = e.Form.Controls("Table1").Table
Dim dt As DataTable = e.Form.Controls("Table1").Table.DataTable
dt.DataCols("日期").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = t
rgd.Build() '重新生成记录窗口