Foxtable(狐表) → 用户栏目 → 专家坐堂 → excel导入数据后的问题


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

主题：excel导入数据后的问题
帅哥哟，离线，有人找我吗？
newsun2k
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：11133 威望：0 精华：0 注册：2014/8/13 16:19:00 		excel导入数据后的问题  发帖心情 Post By：2017/5/26 16:37:00 [显示全部帖子]

EXCEL导入数据后，有个字段有个类似全角空格
'1300334565 ',用replace也去不掉，
在sql中，用 = '1300334565 '检索不出来（值是直接从EXCEL中复制过来的）。
只能用like '1300334565%'才能检索出来。
怎么办？
求大神指导。
 回到顶部
帅哥哟，离线，有人找我吗？
newsun2k
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：11133 威望：0 精华：0 注册：2014/8/13 16:19:00 		  发帖心情 Post By：2017/5/27 11:53:00 [显示全部帖子]

嗯嗯，查出来 是chr(63).
直接执行  upd ate  表1 set 第一列 = replace(第一列,char(63),'')
好像不行啊。还在
 回到顶部
帅哥哟，离线，有人找我吗？
newsun2k
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：11133 威望：0 精华：0 注册：2014/8/13 16:19:00 		  发帖心情 Post By：2017/5/27 14:10:00 [显示全部帖子]

实在搞不定啊。
贴出来显示是空格。
sql，foxtable都试过了。
excel里面替换也不行
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:book1.xls
 回到顶部
帅哥哟，离线，有人找我吗？
newsun2k
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：11133 威望：0 精华：0 注册：2014/8/13 16:19:00 		  发帖心情 Post By：2017/5/27 14:12:00 [显示全部帖子]

excel里面可以了，导进去就不行了。

 回到顶部
帅哥哟，离线，有人找我吗？
newsun2k
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：11133 威望：0 精华：0 注册：2014/8/13 16:19:00 		  发帖心情 Post By：2017/5/27 15:35:00 [显示全部帖子]

你可以试试

 回到顶部
帅哥哟，离线，有人找我吗？
newsun2k
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：11133 威望：0 精华：0 注册：2014/8/13 16:19:00 		  发帖心情 Post By：2017/5/27 17:27:00 [显示全部帖子]

我放到excel里面执行：

Sub abc()
Dim s As String
s = Worksheets("Sheet1").Cells(1, 1).Value
Dim c As Integer
c = Asc(Right(s, 1))
MsgBox c           '63
Worksheets("Sheet1").Cells(2, 1).Value = Replace(s, Chr(63), "a")
End Sub
也不行。
奇怪啊。

你上面的代码，我改成：
For Each r As Row In Tables("表a").Rows
    Dim s As String = r("第一列")
    s = s(s.Length - 1)
    If Asc(s) = 63 Then
        Dim s1 As String = r("第一列")
        r("第一列") = s1.replace(s,"")
        r.save
    End If  
Next
应该是一样的，不知道起作用不，希望管用。
 回到顶部
帅哥哟，离线，有人找我吗？
newsun2k
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1495 积分：11133 威望：0 精华：0 注册：2014/8/13 16:19:00 		  发帖心情 Post By：2017/5/27 17:28:00 [显示全部帖子]

妈的，笨了。
Sub abc()
Dim s As String
s = Worksheets("Sheet1").Cells(1, 1).Value
Dim c As String
c = Right(s, 1)
Worksheets("Sheet1").Cells(2, 1).Value = Replace(s, c, "a")
End Sub
这样就好了。
FT里面也应该好了
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询