[求助]窗口显示单元格内容时右缩进 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口显示单元格内容时右缩进

共有2998人关注过本帖树形打印复制链接主题：[求助]窗口显示单元格内容时右缩进

有点青

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/20 10:44:00 [显示全部帖子]

参考代码

Dim str As String = "12345" & vbcrlf & "678910"
msgbox(str)
str = str.Replace(chr(10), "")
str = " " & str.Replace(chr(13), vbcrlf & " ")
msgbox(str)

有点青

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：573 积分：2961 威望：0 精华：0 注册：2016/10/27 14:33:00

Post By：2016/11/20 18:26:00 [显示全部帖子]

static ps As String = Nothing
Dim s As String = CurrentTable.Name & "." & CurrentTable.Cols(CurrentTable.ColSel).name
If ps <> s Then
    Dim str As String = CurrentTable.Value
    str = str.Replace(chr(10), "").replace("    ", "")
    str = "    " & str.Replace(chr(13), vbcrlf & "    ").trim()
    CurrentTable.Value = str
    e.Form.controls("TextBox1").BindingField = CurrentTable.Name & "." & CurrentTable.Cols(CurrentTable.ColSel).name
End If
ps = s

下一主题 >> << 上一主题

主题：[求助]窗口显示单元格内容时右缩进