主题：求助：replacefor语句写法

表A有两个字段

字段1	字段2
	Aa\aa\12
	Aa\aa\12\13
	Aa\aa\11

想把表A字段2的值为Aa\aa\12的记录的字段1的值改为Aa\aa，如何写replacefor语句

DataTables("表A").ReplaceFor("第一列", "Aa\aa", "第二列 = 'Aa\aa\12'")

前面表述错误了，正确的是

For Each dr As DataRow In DataTables("表A").DataRows
    dr("第一列") = FileSys.GetParentPath(dr("第二列"))
Next

不好意思，前面的说法还是有点问题，

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

看不懂你什么意思，上传实例，做出效果图啊。

表中有三列，第一列为ID列，是唯一的，第二列目前是空的，第三列是一个路径列，现在想根据路径列的内容，在第二列中填上按路径列指定的上级的第一列的值

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

谢谢大红袍老师