主题：请教不同设备不同备件的使用周期统计

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

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的一样，他用表事件，我用按钮，你根据需要选择。