Foxtable(狐表)用户栏目专家坐堂 → [求助]换行符如何清除。


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

主题:[求助]换行符如何清除。

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


加好友 发短信
等级:小狐 帖子:358 积分:2707 威望:0 精华:0 注册:2015/4/12 12:13:00
[求助]换行符如何清除。  发帖心情 Post By:2022/12/5 9:11:00 [只看该作者]

J-1吉他咪:塑料上盖+下盖+按键(3个)+插嘴活动件+螺丝封盖(2个)+开关轴/ABS黑料/喷黑色(发射器塑料料下盖/丝印ON/OFF  INPUT/丝印银油;
接收机塑料下盖/丝印ON/OFF  OUTPUT/丝印银油)"


图片点击可在新窗口打开查看此主题相关图片如下:无标题20221205.png
图片点击可在新窗口打开查看

老师:内容如上红色字,在记事本中没 有看到有换行,在物料表编辑时也没有看到有,但在BOM明细中就看到有换行了。如何克服这种问题。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/5 9:36:00 [只看该作者]

比如:

dim s as string  = "123" & vbcrlf & "abc"
msgbox(s)
s = s.replace(vbcr,"").replace(vblf,"")
msgbox(s)

 回到顶部
帅哥哟,离线,有人找我吗?
dj68301367
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:2707 威望:0 精华:0 注册:2015/4/12 12:13:00
  发帖心情 Post By:2022/12/5 15:49:00 [只看该作者]

        Dim GGstr As String = e.NewValue
        GGstr = ggstr.replace(vbcr, "").replace(vblf, "")
        MessageBox.Show(ggstr)

老师代码如上红色字。msgbox 出来的结果是没有换行的,但实际在Table上是有换行的。我将字符串保存在文本上传,麻烦帮忙测试一下。

图片点击可在新窗口打开查看此主题相关图片如下:20221205.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:20221205.txt






 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/5 15:56:00 [只看该作者]

代码放在什么事件的?贴出完整代码

 回到顶部
帅哥哟,离线,有人找我吗?
dj68301367
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:2707 威望:0 精华:0 注册:2015/4/12 12:13:00
  发帖心情 Post By:2022/12/5 17:01:00 [只看该作者]

代码写在窗体表的DataColChanged
Dim cmd As new SQLCommand
cmd.C
Dim dr As DataRow = e.DataRow
Dim dt As DataTable = e.DataTable
Dim tb As Table = Tables(dt.Name)
Dim Gsdt As DataTable
Dim Nstr As String = e.NewValue
Select Case e.DataCol.Name
    Case "规格" 
        Dim GGstr As String = e.NewValue
        GGstr = ggstr.replace(vbcr, "").replace(vblf, "")
'        MessageBox.Show(ggstr)
        e.Form.Controls("Text规格").Text = ggstr
        Dim ggs() As String = GGstr.Split("/")
        If ggs.Length > 2 Then
            dr("品牌") = ggs(0)
            dr("客户型号") = ggs(1)
        End If 


        

 回到顶部
帅哥哟,离线,有人找我吗?
dj68301367
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:358 积分:2707 威望:0 精华:0 注册:2015/4/12 12:13:00
  发帖心情 Post By:2022/12/5 17:02:00 [只看该作者]

保存代码:
 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        cmd.CommandText = "sel  ect * from {物料表} where [_Identify] is null"
        Dim SVdt As DataTable = cmd.ExecuteReader
        Dim lm As String,sz As String,cmdstr As String
        If r.IsNull("Itid") Then
            cmd.CommandText = " sel  ect max(Itid) from {物料表} "
            Dim zs As Integer = cmd.ExecuteScalar
            r("Itid") = zs + 1
            r("Fid") = 1
            For Each dc As DataCol In svdt.DataCols
                If lm > "" Then lm &= ","
                lm &= "[" & dc.name & "]"
                If sz > "" Then sz &= ","
                sz &= "'" & r(dc.Name) & "'"
            Next
            If cmdstr > "" Then cmdstr &= ";"
            cmdstr &=  "In sert In to {物料表} (" & lm &") Values (" & sz & ")"
            lm = Nothing
            sz = Nothing
        Else
            r("Fid") = 1
            For Each dc As DataCol In svdt.DataCols
                If sz > "" Then sz &= ","
                sz &= dc.name & " ='" & r(dc.Name) & "'"
            Next
            If cmdstr > "" Then cmdstr &= ";"
            cmdstr &= " UPD ATE {物料表} SET " & sz & "WHERE itid =" & r("itid")
            sz = Nothing
        End If

        If cmdstr > "" Then
            cmd.Comm andText = cmdstr
            cmd.ExecuteNonQuery()
            MessageBox.Show("物料保存成功!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
            e.Form.Close
        End If
      

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/5 17:09:00 [只看该作者]

Select Case e.DataCol.Name
    Case "规格" 
        Dim GGstr As String = e.NewValue
        GGstr = ggstr.replace(vbcr, "").replace(vblf, "")
e.DataRow("规格" ) = GGstr 
'        MessageBox.Show(ggstr)
        e.Form.Controls("Text规格").Text = ggstr

 回到顶部