Dim d As Date = Date.Todaydim str as string = DataTables("来信登记").GetComboListString("收信人", "来信日期 = #" & d & "# ")
e.Form.Controls("Label1").text = str