Dim Filter21 As String Filter21 = "[姓名] = '" & e.DataRow("姓名") & "'and [日期] = '" & e.DataRow("日期") & "'" MessageBox.Show(8) If DataTables("员工工资表").Find(Filter21) Is Nothing Then '如果对应的订单明细没有加载过 DataTables("员工工资表").AppendLoad(Filter21) '则追载此订单的订单明细 End If MessageBox.Show(7)