Foxtable(狐表)用户栏目专家坐堂 → 多行文本框自动编号问题


  共有2138人关注过本帖树形打印复制链接

主题:多行文本框自动编号问题

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/20 22:01:00 [显示全部帖子]

If e.Sender.Value > "" Then
    Dim str As String
    With e.Sender
        For i As Integer = 0 To .Lines.Length - 1  '分别显示该文本框每一行的内容
            str = str & i + 1 & "," & .Lines(i).trim(cstr(i+1), ",") & vbcrlf
        Next
        .Value = str.TrimEnd(vbcr,vblf)
    End With
End If

 回到顶部