这个我仅仅有个思路：就是你在表A录入保存后触发代码，首先判断一下表B中是否有相应的设备，相应的备件

用select count(*)判断，如果没有，则在表B新增一行，并将A表当前行的日期赋值到B表的(2+1)第三行,

如果本身表B就已存在该设备及备件信息，则将A表当前行的日期赋值到B表的第(count(*)的结果+2)行

代码具体怎么写，哥们先看看帮助吧，我之前也没看帮助就去问别人，总觉得不好意思！

我马后炮，做个按钮，代码为：

DataTables("表B").DataRows.Clear()

Dim cls() As String = {"第一次","第二次","第三次","第四次"}
For Each nms() As String In DataTables("表A").GetUniqueValues("","备件","设备")
    Dim dr As DataRow = DataTables("表B").AddNew
    dr("备件") = nms(0)
    dr("设备") = nms(1)
    Dim drs As List(of DataRow) = DataTables("表A").Select("备件 = \'" & nms(0) & "\' And 设备 = \'" & nms(1) & "\'")
    For i As Integer  = 0 To math.Min(cls.Length,drs.Count) -1
        dr(cls(i)) = drs(i)("日期")
    Next
Next

需要的时候，单击这个按钮，就得到统计结果了。

方法和bin的一样，他用表事件，我用按钮，你根据需要选择。