主题：请教插入行

DataRowAdded事件

Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
If idx > 0 Then
    Dim r As Row = Tables(e.DataTable.Name).Rows(idx-1)
    idx = Tables("表B").FindRow("第一列 = '" & r("第一列") & "'")
    Do While idx > -1
        If idx = Tables("表B").Rows.Count - 1 Then
            Tables("表B").AddNew
        Else
            Tables("表B").Position = idx + 1
            Tables("表B").InsertNew
        End If
       
        idx = Tables("表B").FindRow("第一列 = '" & r("第一列") & "'", Tables("表B").Position+1)
    Loop
End If

下行趋势不变，应该是第五浪，也是最后一浪。如果破3000点，看2500点附近有没有形成底的可能。底部演变很漫长，暂时可以长时间不碰股市的。

表B必须用一列就其主键，如 _Identify

类似参考 http://www.foxtable.com/help/topics/2490.htm

参考帮助文档去做，最基本的内容。

回复17楼

Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
If idx > 0 Then
    Dim r As Row = Tables(e.DataTable.Name).Rows(idx-1)
    Dim fdr As DataRow = DataTables("表B").Find("第一列 = '" & r("第一列") & "'", "_Identify desc")
    If fdr IsNot Nothing Then
        idx = Tables("表B").FindRow(fdr)
        If idx > -1
            If idx = Tables("表B").Rows.Count - 1 Then
                Tables("表B").AddNew
            Else
                Tables("表B").Position = idx + 1
                Tables("表B").InsertNew
            End If
        End If
    End If
End If