数据内容替换

时　间:2012-07-24 13:07:36
作　者:hjs   ID：4770  城市：泸州
摘　要:提供思路，自行更换成自己需要的！
正　文:

Function SJTh(code As String, codezd As String, codelb As String, codecs As String) As String
'数据名称替换
'1-代码，2-文书
' sjth ("要替换的内容","要显示的字段","表","参数")

Dim dbs As Database  '定义引用数据库的变量。
Dim rst As Recordset '定义引用记录集的变量。
Dim strcode As String
Set dbs = CurrentDb()
Select Case codelb
Case "1"
strcode = "dM"
Set rst = dbs.OpenRecordset("select * from dm where lb='" & codecs & "'")

Case "2"

Case Else

End Select

SJTh = code
While Not rst.EOF
 SJTh = Replace(SJTh, rst(strcode), rst(codezd), , 1)
 rst.MoveNext
Wend

End Function