With DataTables("固定表") .DataCols(e.Form.Controls("DropBox1").text).Caption = e.Form.Controls("TextBox1").text
.BuildHeader()End With