以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎样让一个列自动更新？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11028)
--  作者：53814349
--  发布时间：2011/7/5 2:01:00
--  [求助]怎样让一个列自动更新？
  A（数据列）   B（数据列）          
单位1 单位1指标001           
               

需要实现：B列中输入 001 自动转换为：A列内容+指标+001

 

 
--  作者：狐狸爸爸
--  发布时间：2011/7/5 7:39:00
--  

B列使用表达式： [A] + \'指标001\'

--  作者：53814349
--  发布时间：2011/7/5 10:51:00
--  

狐爸，你好，那个B列是数据列，需要在B列中输入　如001　而自动变成　A+指标001

　　　　　　　　　　　　　　　　　　　　　　　如002　而自动变成　A+指标002
--  作者：狐狸爸爸
--  发布时间：2011/7/5 10:53:00
--  
做好表，输入示例数据，然后传上来。
--  作者：blackzhu
--  发布时间：2011/7/5 12:02:00
--  

If e.Col.Name = "B列" Then
    e.Row("B列") = "A"  &  e.row("b列")
End If


在 AfterEdit 里面设置
--  作者：明丰
--  发布时间：2011/7/5 13:10:00
--  
 

补充：

 

表属性AfterEdit设置

If e.Col.Name = "B" Then ‘\'如果是B列的内容变动

      If e.Row.IsNull("A") Then ‘\'如果A列为空

      e.Row("B") = Nothing ‘那么清除B列内容

  Else

         e.Row("B") = e.Row("A") & "指标" & e.Row("B") ‘否则B列等于 “A列+指标+B列”

    End If

End If
--  作者：53814349
--  发布时间：2011/7/5 13:58:00
--  

谢谢“Blackzho”和明丰，

按照明丰的思路，问题已经解决了，再次谢谢！