以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动填充数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89026)
--  作者：mark96
--  发布时间：2016/8/13 22:37:00
--  自动填充数据
请问怎么能在在第二列的单元格中填入某个字符加对应第一列的数据？请问代码是什么？
例如第一列第一行数据是“001”，第二列的第一行数据填充为“B001”；第一列第二行数据是“002”，第二列的第二行数据填充为“B002”
--  作者：cbt
--  发布时间：2016/8/14 8:43:00
--  
For Each dr As Row In Tables("表A").Rows
    If dr.IsNull("第一列")= False Then
        dr("第二列") = "B" & dr("第一列")
    End If
Next
--  作者：大红袍
--  发布时间：2016/8/14 11:36:00
--  

DataColChanged事件

 

If e.DataCol.Name = "第一列" Then
    If e.DataRow.IsNull("第一列") Then
        e.DataRow("第二列") = Nothing
    Else
        e.DataRow("第二列") = "B" & e.DataRow("第一列")
    End If
End If