表事件影响的,没有行的时候AddNew增加一行,会触发一些表事件,包括AfterSelChange,由于新增行没有值,导致控件内容被清空
systemready = False
Dim dr As DataRow = DataTables("表A").AddNew
systemready = True
dr("日期") = e.Form.Controls("datetimepicker1").value
dr("姓名") = e.Form.Controls("ComboBox1").text
msgbox(dr("姓名"))
dr("课题") = e.Form.Controls("textbox1").text