主题：动态绑定多列显示到textbox1

老师，有一个审批窗口，textbox1为审批意见汇总，textbox2为当前审批意见。窗口的afterload代码入下：

Dim r As Row  = Tables("开piao申请").Current
If r("审批状态") = "" OrElse r("审批状态") = "待分公司负责人审批" Then
    e.Form.Controls("TextBox1").text =Nothing
ElseIf r("审批状态") =  "待财务部审批" Then
    e.Form.Controls("TextBox1").text= "分公司审批意见:" & _
    r("分公司审批人") & "-" & r("分公司审批日期") & "-" & r("分公司审批意见")
ElseIf r("审批状态") = "待总经理审批" Then
    e.Form.Controls("TextBox1").text= "分公司审批意见:" & _
    r("分公司审批人") & "-" & r("分公司审批日期") & "-" & r("分公司审批意见") & vbcrlf & "财务部审批意见:" & _
    r("财务部审批人") & "-" & r("财务部审批日期") & "-" & r("财务部审批意见")
End If

确定按钮代码如下：

Dim r As Row = Tables("开piao申请").Current
If r("审批状态") = "待分公司负责人审批" Then
    If _UserPost <> "分公司负责人" Then
        MessageBox.Show("你没有审批权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    Else
        r("分公司审批意见") = e.Form.Controls("TextBox2").text
        r("分公司审批人")= _UserXingMing
        r("分公司审批日期") = Date.Now
        r("审批状态")="待财务部审批"
        r.save
    End If
    Return
End If

If r("审批状态") = "待财务部审批" Then
    If _UserPost <> "财务部经理" Then
        MessageBox.Show("你没有审批权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    Else
        r("财务部审批意见") = e.Form.Controls("TextBox2").text
        r("财务部审批人")= _UserXingMing
        r("财务部审批日期") = Date.Now
        r("审批状态")="待总经理审批"
        r.save
    End If
    Return
End If

If r("审批状态") = "待总经理审批" Then
    If _UserPost <> "总经理" Then
        MessageBox.Show("你没有审批权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    Else
        r("总经理审批意见") = e.Form.Controls("TextBox2").text
        r("总经理审批人")= _UserXingMing
        r("总经理审批日期") = Date.Now
        r("审批状态")="已审批完成"
        r.save
    End If
End If

审批完成后需要重新打开窗口才能看到自己的审批意见，怎么让他审批完就能看到自己的审批意见呢？

好像这样解决了

Dim r As Row = Tables("开piao申请").Current
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
If r("审批状态") = "待分公司负责人审批" Then
    If _UserPost <> "分公司负责人" Then
        MessageBox.Show("你没有审批权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    Else
        r("分公司审批意见") = e.Form.Controls("TextBox2").text
        r("分公司审批人")= _UserXingMing
        r("分公司审批日期") = Date.Now
        r("审批状态")="待财务部审批"
        r.save
        t1.Value = "分公司审批意见:" & _UserXingMing & "-" & Date.Today & "-" & t2.Value
        t1.WriteValue
        t2.Value = Nothing
    End If
    Return
End If

If r("审批状态") = "待财务部审批" Then
    If _UserPost <> "财务部经理" Then
        MessageBox.Show("你没有审批权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    Else
        r("财务部审批意见") = e.Form.Controls("TextBox2").text
        r("财务部审批人")= _UserXingMing
        r("财务部审批日期") = Date.Now
        r("审批状态")="待总经理审批"
        r.save
        t1.Value = t1.Value &  vbcrlf & "财务部审批意见:" & _UserXingMing & "-" & Date.Today & "-" & t2.Value
        t1.WriteValue
        t2.Value = Nothing
    End If
    Return
End If

If r("审批状态") = "待总经理审批" Then
    If _UserPost <> "总经理" Then
        MessageBox.Show("你没有审批权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    Else
        r("总经理审批意见") = e.Form.Controls("TextBox2").text
        r("总经理审批人")= _UserXingMing
        r("总经理审批日期") = Date.Now
        r("审批状态")="已审批完成"
        r.save
        t1= t1.Value &  vbcrlf & "总经理审批意见:" & _UserXingMing & "-" & Date.Today & "-" & t2.Value
        t2.Value = Nothing
    End If
End If