- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教插入行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73641)
-- 发布时间：2015/8/24 9:47:00
-- 请教插入行
袍老大：好！如实例。请问如何实现在表a中第一列为d的下面插入一行，表b的所有第一列为d的下面都插入一行？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.zip |
-- 发布时间：2015/8/24 11:37:00
--
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
-- 发布时间：2015/8/24 11:45:00
--
谢谢了，就凭这句代码，下午坚决割肉!
-- 发布时间：2015/8/24 12:09:00
--
反向遍历
Dim p As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
If p > 0 Then
Dim v = Tables(e.DataTable.Name).Rows(p-1)("第一列")
Dim indexb = Tables("表B").Rows.Count - 1
If Tables("表B").Rows(indexb)("第一列") = v Then
Tables("表B").Rows.AddNew()
End If
For idxb As Integer = indexb-1 To 0 Step -1
If Tables("表B").Rows(idxb)("第一列") = v Then
Tables("表B").Position = idxb + 1
Tables("表B").Rows.InsertNew()
End If
Next
End If
-- 发布时间：2015/8/24 12:10:00
--
谢谢了，就凭这句代码，下午坚决割肉!
下行趋势不变，应该是第五浪，也是最后一浪。如果破3000点，看2500点附近有没有形成底的可能。底部演变很漫长，暂时可以长时间不碰股市的。
-- 发布时间：2015/8/24 12:20:00
--
听您的，以后
-- 发布时间：2015/8/24 12:25:00
--
附加题 ，加点味精！
-- 发布时间：2015/8/24 14:25:00
--
大师：别看k线了，看问题请教。
-- 发布时间：2015/8/24 14:27:00
--
附加题 ，加点味精！
表B必须用一列就其主键，如 _Identify
类似参考 http://www.foxtable.com/help/topics/2490.htm
-- 发布时间：2015/8/24 14:30:00
--
来一叠小菜品尝如何？