如何进行字段分割？求助高手。

szhgwec

工作单位		公司	部（处、分公司）	组（科）
沙头角公司.销售一组		沙头角公司		销售一组
深圳湾公司.销售五组		深圳湾公司		销售五组
文锦渡公司.财务组
蛇口公司.采购部.采购一组		蛇口公司	采购部	采购一组
文锦渡公司.销售二组		文锦渡公司		销售二组
盐田公司.财务组		盐田公司		财务组
罗湖公司.监督组		罗湖公司		监督组
机场公司.快件组		机场公司		快件组
文锦渡公司.技术组		文锦渡公司		技术组
皇岗公司.销售部.销售三组		皇岗公司	销售部	销售三组
蛇口公司.广告部.三组		蛇口公司	广告部	三组
皇岗公司.规划部.设计科		皇岗公司	规划部	设计科
深圳湾公司.接待科		深圳湾公司		接待科
蛇口公司.赤湾分公司.综合组		蛇口公司	赤湾分公司	综合组

即：把左表的一个字段，分割成右表的3个字段。
说明：左表的3级单位之间是用一个点来分隔的，有的有二级单位（部），
    有的没有二级单位，直接就是三级单位（组、科）。

koutx

当工作单位只有两个点时，根据什么判断第二个是二级部还是三级科组？

tz-chf

当工作单位只有两个点时，根据什么判断第二个是二级部还是三级科组？
koutx 发表于 2009-2-11 11:58

问题很清楚。你没看清题意

Trynew

Public Function GetDep(strIn As String, i As Integer) As Variant
Select Case i
Case 1
    GetDep = Split(strIn, ".")(0)
Case 2
    GetDep = IIf(UBound(Split(strIn, ".")) = 1, Null, Split(strIn, ".")(1))
Case 3
    GetDep = Split(strIn, ".")(UBound(Split(strIn, ".")))
End Select
End Function
建一个自定义函数就行了

koutx

SELECT 表5.工作单位, Left([工作单位],InStr([工作单位],".")-1) AS 公司, IIf(InStr(Right([工作单位],Len([工作单位])-InStr([工作单位],".")),".")>0,Left(Right([工作单位],Len([工作单位])-InStr([工作单位],".")),InStr(Right([工作单位],Len([工作单位])-InStr([工作单位],".")),".")-1),Right([工作单位],Len([工作单位])-InStr([工作单位],"."))) AS 部处, IIf(InStr(Right([工作单位],Len([工作单位])-InStr([工作单位],".")),".")>0,Right(Right([工作单位],Len([工作单位])-InStr([工作单位],".")),Len(Right([工作单位],Len([工作单位])-InStr([工作单位],".")))-InStr(Right([工作单位],Len([工作单位])-InStr([工作单位],".")),"."))) AS 组科
FROM 表5;

koutx

4# Trynew
又学了一招，但是否还有点美中不足如下图：假若工作单位是“一公司.三部”则二级单位就到了三级单位去了。有请4楼续示。谢了

ly

4# Trynew  
又学了一招，但是否还有点美中不足如下图：假若工作单位是“一公司.三部”则二级单位就到了三级单位去了。有请4楼续示。谢了
34999
koutx 发表于 2009-2-11 14:25

我的建议，不足之处请笑纳：
窃以为，使用数据库应精于设计规划，而非用程序代码来解决。若我设计此表，就以“。”来区分三级单位，如一级单位。二级单位。三级单位表示，若某级单位没有就空着。如‘一级单位。。三级单位’，表示没有二级单位，或‘一级单位。二级单位。’表示没有三级单位，但是“。”不能少。这样直接可用函数取值。

chaojianan

虽然不会，但赞同7楼，数据库设计时，精力应在规划上。
最初的表没有搞好，用代码解救，一个字[累]

koutx

7# ly
赞成，建议楼主可将一个.replace成。。

蓝天8390

象我附件中这种结构该怎样分割呢,请赐教.