--
Dim na As WinForm.ComboBox = e.Form.Controls("Textname")
Dim da As WinForm.DateTimePicker = e.Form.Controls("DTdate")
Dim dt1 As Date = Date.Today.AddDays(-7)
Dim dt2 As Date = Date.Today.AddDays(1)
Dim Filters As String
Filters = "[项目名称] = \'" & Vars("xmmc") & "\'and [员工姓名] = \'" & User.Name & "\'and 日志日期 >= \'" & dt1 & "\' And 日志日期 <= \'" & dt2 & "\'"
DataTables("工作日志").LoadFilter = Filters
DataTables("工作日志").Load()
Tables("工作日志").Sort = "日志编号,日志日期 DESC"
na.ComboList = DataTables("工作日志").SQLGetComboListString("员工姓名")
na.Value = user.name
da.Value = Date.Today