在ACCESS中实现从科目代码到名称的转换（已解决）

wzw117 · 发表于 2009-8-4 14:47

我在access中建立了一个DNS，从SQL财务数据库中取数据进行分析。
为了便于查看科目代码的含义，我就想实现从科目代码到科目名称的转换
请见图示

科目代码转换

相关的文件请下载查看

显示全部科目代码名称.rar (157.42 KB, 下载次数: 33) 。
请教各位了。

已经解决，请参见5楼的附件，感谢sgrshh29
一个参数的函数代码在9楼。

[ 本帖最后由 wzw117 于 2009-8-20 22:15 编辑 ]

waves9383 · 发表于 2009-8-4 15:12

SELECT code.id, code.code, (code.code+code.code_name) as code_name, code.grade, code.direct FROM code

wzw117 · 发表于 2009-8-4 15:24

原帖由 waves9383 于 2009-8-4 15:12 发表
SELECT code.id, code.code, (code.code+code.code_name) as code_name, code.grade, code.direct FROM code

感谢您的关注和帮助，但是您的做法还没有达到我的要求。code.code+code.code_name 只能出现“221001004已交增值税”的结果，而不是code效果示例中的“221001004_应交税费/应交增值税/已交增值税”。

wzw117 · 发表于 2009-8-19 14:01

没有知道的朋友啊？
快来帮帮忙啊。

sgrshh29 · 发表于 2009-8-19 16:13

需要用自定义函数.

显示全部科目代码名称.rar (162.71 KB, 下载次数: 59)

gteng · 发表于 2009-8-20 17:16

我感觉是不是表建得有问题啊，
要是我就将code分成3个字段来显示和管理了。

wzw117 · 发表于 2009-8-20 22:09

原帖由 sgrshh29 于 2009-8-19 16:13 发表
需要用自定义函数.
569596

呵呵。谢谢啊。高手就是高手啊。

我又改了下。变成了1个参数了。更好用了。

Option Compare Database
Public Function getcodename(code As String) As String
f1 = Mid(code, 1, 3)
f2 = Mid(code, 4, 3)
f3 = Mid(code, 7, 3)
If f1 <> "" And f2 = "" And f3 = "" Then '只有一级科目
getcodename = f1 & "_" & DLookup("code_name", "code", "code='" & f1 & "'")
ElseIf f1 <> "" And f2 <> "" And f3 = "" Then '有一级和二级科目
getcodename = f1 & f2 & "_" & DLookup("code_name", "code", "code='" & f1 & "'") & "\" & DLookup("code_name", "code", "code='" & f1 & f2 & "'")
ElseIf f1 <> "" And f2 <> "" And f3 <> "" Then '三级科目都有
getcodename = f1 & f2 & f3 & "_" & DLookup("code_name", "code", "code='" & f1 & "'") & "\" & DLookup("code_name", "code", "code='" & f1 & f2 & "'") & "\" & DLookup("code_name", "code", "code='" & f1 & f2 & f3 & "'")
End If
End Function

wzw117 · 发表于 2009-8-20 22:12

原帖由 gteng 于 2009-8-20 17:16 发表
我感觉是不是表建得有问题啊，
要是我就将code分成3个字段来显示和管理了。

分成3个？还分啊。
就这我都觉得表够多了。

这个应用是放在查询中的。
code表就5个必要字段啊。还怎么分？

break2000u · 发表于 2009-9-15 16:56

不错，学习了。。。

		自动登录	找回密码
密码			免费注册

[求助] 在ACCESS中实现从科目代码到名称的转换（已解决）