以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在当前表中定位行进而修改该行列值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87200)
--  作者：czy66ds
--  发布时间：2016/7/5 15:46:00
--  在当前表中定位行进而修改该行列值
帮助中的一段代码：

例如我们需要在当前表中的公司名称列中，查找单位包括“湛江”二字的行：

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%湛江%\'") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行。
    End If
End With


如果我希望在定位到的行中修改某一列，例如地址的值的话该如何做？

[此贴子已经被作者于2016/7/5 15:46:29编辑过]
--  作者：大红袍
--  发布时间：2016/7/5 15:48:00
--  
With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%湛江%\'") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Select(r, .Cols("第一列").index)
    End If
End With
--  作者：czy66ds
--  发布时间：2016/7/5 15:55:00
--  
那么，把“第一列”的值改为A,这样写就可以了吗：
 .Select(r, .Cols("第一列").index) = “A”
--  作者：大红袍
--  发布时间：2016/7/5 15:56:00
--  
.Select(r, .Cols("A").index)
--  作者：czy66ds
--  发布时间：2016/7/5 16:02:00
--  
我是想把定位到的那行“第一列”单元格的值修改成比如“999”
--  作者：大红袍
--  发布时间：2016/7/5 16:03:00
--  
With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%湛江%\'") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
        .Current("第一列") = "AAA"
    End If
End With