以文本方式查看主题

-  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=148525)

--  作者:whtb999
--  发布时间:2020/4/9 15:00:00
--  字符串连接问题
If Tables("员工选择_Table1").Rows.Count > 0 Then
    
    For Each r1 As Row In Tables("员工选择_Table1").GetCheckedRows
        
        Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
        txt= txt "\'" & r1("员工姓名") &  "\',"  老师这句错在哪里,我找不错来,请老师帮忙
    Next
Else
    MessageBox.Show("该订单无未交项!")
End If

--  作者:狐狸爸爸
--  发布时间:2020/4/9 15:05:00
--  
        txt.Value= txt.Value &  "\'" & r1("员工姓名") &  "\',"  
--  作者:whtb999
--  发布时间:2020/4/9 15:16:00
--  
多谢老师!