以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求代码一个  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12174)
--  作者：布莱克朱
--  发布时间：2011/8/24 23:54:00
--  求代码一个

第一列      第二列

 

  A             B

  B             B

  B             B

 A             C

B             C

B               C

 

 

在第一行为A的情况下,第二和第三行都是B的时候,第二列复制A的数据,同样 弟四列   以下的一样
--  作者：xmj09663
--  发布时间：2011/8/25 0:14:00
--  
Dim r As String
For Each dr As DataRow In DataTables("表A").DataRows
    If dr("第一列") ="A" Then
        r = dr("第二列")
    Else If dr("第一列") ="B" Then
        dr("第二列") = r
    End If
Next