我想设计选择某个日期只打开这个日期的出勤表，如下编码运行后，可实行，但打开后再选择另一个日期后，先前的日期出勤表仍然显示在上面，这应该如何修改，使之前选择的日期出勤表不再显示出来，只出现最后选择那个日期的出勤表。

Dim dr1 As DataRow = DataTables("出勤表").Find("日期 = \'" & e.Form.Controls("DateTimePicker1").Value & "\'")
If dr1 IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
Forms("出勤表").show()
DataTables("出勤表").loadFilter = "日期=  \'" & e.Form.Controls("DateTimePicker1").Value & "\'"
Tables("出勤表").DataTable.Load()
Else
Dim nms As List(of String) = DataTables("员工档案").GetUniqueValues("部门工段 = \'生产部\'","姓名")
For Each nm As String In nms
    Dim dr As DataRow = DataTables("出勤表").AddNew()
    dr("姓名") = nm
    dr("日期") = e.Form.Controls("DateTimePicker1").Value
    dr("部门工段") = "生产部"
    dr("出勤") = 8
    dr("月份") = year(e.Form.Controls("DateTimePicker1").Value) & month(e.Form.Controls("DateTimePicker1").Value)
Next
End If

如果你要移除以前的行，可以看看：

http://www.foxtable.com/help/topics/0408.htm

例如：

DataTables("订单").RemoveFor("True")