写删除相同记录的命令语句

heyu

我现在有一个名为：rec.dbf 的表，内容字段分别是：card_no fdate ftime

由于打卡时，常有员工连续在同一分钟内刷N次卡，数据收集起来后，我想把表中相同内容的记录清除，请问：如何在命令框中写命令语句。

注：该表的路径：d:\d\1月考勤数据\rec

由于很急，请各位大师帮忙想办法

Rowen

帮助文件中有关 DELETE 方法的示例非常值得借鉴:

示例

本示例删除 Sheet1 的 A1:D10 单元格区域，并将其右侧单元格向左移位。

Worksheets("Sheet1").Range("A1:D10").Delete Shift:=xlShiftToLeft

本示例删除活动工作簿的 Sheet3 工作表，并且不显示确认对话框。

Application.DisplayAlerts = FalseWorksheets("Sheet3").DeleteApplication.DisplayAlerts = True

本示例在指定工作表的列中对数据进行排序，然后删除包含重复数据的行。

Worksheets("Sheet1").Range("A1:D10").Delete Shift:=xlShiftToLeft 本示例删除活动工作簿的 Sheet3 工作表，并且不显示确认对话框。

Application.DisplayAlerts = False Worksheets("Sheet3").Delete Application.DisplayAlerts = True 本示例在指定工作表的列中对数据进行排序，然后删除包含重复数据的行。

Sub DeleteColumnDupes(strSheetName As String, strColumnLetter As String) Dim strColumnRange As String Dim rngCurrentCell As Range Dim rngNextCell As Range strColumnRange = strColumnLetter & "1" Worksheets(strSheetName).Range(strColumnRange).Sort _ Key1:=Worksheets(strSheetName).Range(strColumnRange) Set rngCurrentCell = Worksheets(strSheetName).Range(strColumnRange) Do While Not IsEmpty(rngCurrentCell) Set rngNextCell = rngCurrentCell.Offset(1, 0) If rngNextCell.Value = rngCurrentCell.Value Then rngCurrentCell.EntireRow.Delete End If Set rngCurrentCell = rngNextCell Loop End Sub

[此贴子已经被作者于2005-6-11 19:44:07编辑过]

heyu

Rowen版主：

是我没说清楚，我是指在foxpro命令框中如何录入删除命令。员工的打卡记录最后转入dbf文档中了，我得直接通过在命令框中输入命令修改我要的数据。