Foxtable(狐表)用户栏目专家坐堂 → 读取符号前字符


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

主题:读取符号前字符

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
读取符号前字符  发帖心情 Post By:2017/9/11 15:22:00 [只看该作者]

刀具编号              刀具名称
CW123456(1      CW123456
CW2456(2
CW2558(1

只读取 符号 前字符,
如何实现啊

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/11 15:24:00 [只看该作者]

dim str as string = "CW123456(1)"
msgbox(str.split("(")(0))

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/9/12 9:32:00 [只看该作者]

老师,没有搞定。
另外还有一个报警,没有找到原因。
帮忙排查一下。

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/9/12 9:33:00 [只看该作者]

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


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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/9/12 9:33:00 [只看该作者]


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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/12 10:17:00 [只看该作者]

 贴出项目密码。上传数据库文件。
[此贴子已经被作者于2017/9/12 10:18:44编辑过]

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/9/12 11:04:00 [只看该作者]

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


用这个附件吧
[此贴子已经被作者于2017/9/12 11:08:08编辑过]

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/9/12 11:06:00 [只看该作者]

数据库上传不了,我改成内部数据上传如上贴
[此贴子已经被作者于2017/9/12 11:09:03编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/12 11:48:00 [只看该作者]

代码

 

If e.DataCol.name = "刀具编号" Then
    Dim str As String = e.DataRow("刀具编号")
    e.DataRow("刀具名称") = str.split("(")(0)
End If


 回到顶部