以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求指教，代码如何编写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79428)
--  作者：狐来江湖
--  发布时间：2015/12/31 11:05:00
--  求指教，代码如何编写

我想编写如下代码，实现将某一单元格的文本内容，添加到另一个单元格中，与该单元格中原有内容合并，追加到原有内容之后。

 

如下代码，但是没起作用。

 

求指教！

 

Dim r As Row = Tables("表A").Current
Dim Result As DialogResult
Result = Messagebox.Show("是否要开始新的服务记录?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.yes Then
    Dim br As Row = Tables("表B").AddNew()
    Dim brs As String = br("注意事项")
    If r IsNot Nothing Then
        Dim s As String = r("内容")
        brs =  brs & s
        br.Save()
    End If
Else
    Dim br As Row = Tables("表B").Current
    Dim brs As String = br("注意事项")
    If r IsNot Nothing Then
        Dim s As String = r("内容")
        brs =  brs & s
        br.Save()
    End If
End If
--  作者：大红袍
--  发布时间：2015/12/31 11:09:00
--  
Dim r As Row = Tables("表A").Current
Dim Result As DialogResult
Result = Messagebox.Show("是否要开始新的服务记录?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.yes Then
    If r IsNot Nothing Then
    Dim br As Row = Tables("表B").AddNew()
        br("注意事项") = r("内容")
        br.Save()
    End If
Else
    Dim br As Row = Tables("表B").Current
    If r IsNot Nothing Then
        br("注意事项") = br("注意事项") & r("内容")
        br.Save()
    End If
End If
--  作者：狐来江湖
--  发布时间：2015/12/31 11:19:00
--  
谢谢大红袍老师，明白了！