Office中国论坛/Access中国论坛

标题: 请教如何提取一字段中的指定值 [打印本页]

---

作者: aioliadl    时间: 2012-2-14 15:56
标题: 请教如何提取一字段中的指定值
[attach]48335[/attach][attach]48335[/attach]

请教各位高手，有什么办法能够提取出每一行数据总经理的前一个职位是谁来？（例如最后一行的总经理前一个人是总监），由于是外链的SQL数据库，因此数据格式不可修改，且此审核流程的形式和位数不等，所以请大伙给想想办法吧！

[attach]48336[/attach]

---

作者: roych    时间: 2012-2-14 16:18
用Split函数（详见附件）：

1. Function GetPosition(strFull As String, strFind As String, StrSplit As String)
   
2. Dim str2
   
3. str2 = Split(Left(strFull, InStr(1, strFull, strFind) - 2), StrSplit)
   
4. GetPosition = str2(UBound(str2))
   
5. End Function

复制代码

使用说明：
GetPosition "ysd_shlc", "总经理", "-"
[attach]48337[/attach]

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3