| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助：replacefor语句写法 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85377) |
||||||||||||||||||
| -- 作者：lzzhx -- 发布时间：2016/5/24 14:52:00 -- 求助：replacefor语句写法 表A有两个字段
想把表A字段2的值为Aa\\aa\\12的记录的字段1的值改为Aa\\aa，如何写replacefor语句 |
||||||||||||||||||
| -- 作者：大红袍 -- 发布时间：2016/5/24 14:55:00 -- DataTables("表A").ReplaceFor("第一列", "Aa\\aa", "第二列 = \'Aa\\aa\\12\'") |
||||||||||||||||||
| -- 作者：lzzhx -- 发布时间：2016/5/24 14:55:00 -- 前面表述错误了，正确的是 表A有一个字段
想把表A字段2的值最后一位\\前的为Aa\\aa\\12的记录的字段1的值改为Aa\\aa，如何写replacefor语句 |
||||||||||||||||||
| -- 作者：大红袍 -- 发布时间：2016/5/24 15:00:00 -- For Each dr As DataRow In DataTables("表A").DataRows dr("第一列") = FileSys.GetParentPath(dr("第二列")) Next |
||||||||||||||||||
| -- 作者：lzzhx -- 发布时间：2016/5/24 15:15:00 -- 不好意思，前面的说法还是有点问题， 想把表A字段2的值最后一位\\前的为Aa\\aa\\12的记录的字段1的值改为Aa\\aa，如何写replacefor语句 不是直接改为Aa\\aa，而是要找出它的下级记录，在字段1里填上其它的值，不是Aa\\aa
|
||||||||||||||||||
| -- 作者：大红袍 -- 发布时间：2016/5/24 15:21:00 -- For Each dr As DataRow In DataTables("表A").DataRows Dim str As String = dr("第二列") Dim idx As Integer = str.LastIndexOf("\\") If idx >= 0 Then str = str.SubString(0, idx) If str = "Aa\\aa\\12" dr("第一列") = "Aa\\aa" End If End If Next |
||||||||||||||||||
| -- 作者：大红袍 -- 发布时间：2016/5/24 15:22:00 -- 看不懂你什么意思，上传实例，做出效果图啊。 |
||||||||||||||||||
| -- 作者：lzzhx -- 发布时间：2016/5/24 15:36:00 -- 表中有三列，第一列为ID列，是唯一的，第二列目前是空的，第三列是一个路径列，现在想根据路径列的内容，在第二列中填上按路径列指定的上级的第一列的值 |
||||||||||||||||||
| -- 作者：大红袍 -- 发布时间：2016/5/24 15:45:00 -- For Each dr As DataRow In DataTables("表A").DataRows Dim str As String = dr("第三列") Dim idx As Integer = str.LastIndexOf("\\") If idx >= 0 Then str = str.SubString(0, idx) Dim fdr As DataRow = DataTables("表A").find("第三列 = \'" & str & "\'") If fdr IsNot Nothing Then dr("第二列") = fdr("第一列") End If End If Next |
||||||||||||||||||
| -- 作者：lzzhx -- 发布时间：2016/5/24 16:12:00 -- 谢谢大红袍老师 |