Office中国论坛/Access中国论坛

标题: 请高手帮我解读一段Function函数 [打印本页]

作者: tom9cruise 时间: 2008-11-6 20:17
标题: 请高手帮我解读一段Function函数
小女子出于兴趣自学编程，好多东西不懂哦~~~

麻烦各位高手帮忙解答一下~~谢谢啦！^_^

下面是一段函数，共有14行，我把自己不懂的地方写在后面.

1. Pubic Function funGetDataStatus() As String

2.Dim objLinkTable As TableDef

3. For Each objLinkTable In Application.CurrentDb.TableDefs

4.       If obLinkTable.Name="EUC_BS_PL_FILE_SH" Then

5.             If objLinkTable.SourceTableName="EUC.M_BS_PL_FILE" Then

6.                   funGetDataStatus="MONTHLY"

7.                   Exit Function

8.             ElseIf objLinkTable.SourceTableName="EUC.BS_PL_FILE" Then

9.                      funGetDataStatus="DAILY"

10.                   Exit Function

11.             End If

12. End If

13.Next

14.End Function

Q1:第一行中“funGetDataStatus() As String”如何理解呢？一般不是写成“funGetDataStatus (○ As String）”这样的形式吗？这里是表示funGetDataStatus函数自身是一个字符型的变量吗？

Q2:第二行定义变量“objLinkTable”为“TableDef类型”是什么意思？有这个类型吗？

Q3:第五行“If objLinkTable.SourceTableName="EUC.M_BS_PL_FILE" ”是什么意思呢？特别是其中“EUC.M_BS_PL_FILE”当中的点是什么意思呀？（PS:EUC是我们用的ODBC数据库的名称)

以上~~~

麻烦啦！

作者: tmtony 时间: 2008-11-6 20:58
1。你的理解是对的
2。表类型，可找到数据库中包含的表，当然也包括链接表
3。判断链接表的源文件是否EUC.M_BS_PL_FILE，是另一个数据库或文件中的表，可以是MDB， ODBC，或Excel文件。

作者: chenwm1973 时间: 2008-11-6 21:32
Q1:第一行中“funGetDataStatus() As String”如何理解呢？
调用 funGetDataStatus 函数后返回的值是一个字符串。（As String）

Q2:第二行定义变量“objLinkTable”为“TableDef类型”是什么意思？有这个类型吗？
将 objLinkTable 定义为 “TableDef类型”

Q3:第五行“If objLinkTable.SourceTableName="EUC.M_BS_PL_FILE" ”是什么意思呢？特别是其中“EUC.M_BS_PL_FILE”当中的点是什么意思呀？（PS:EUC是我们用的ODBC数据库的名称)
“EUC.M_BS_PL_FILE”是EUC数据库中的M_BS_PL_FILE数据表或字段

这段代码的意思是
遍历当前目录下的数据表文件，逐个获得数据表文件名
根据取得文件的objLinkTable.SourceTableName属性来决定返回值: 或"MONTHLY"，或"DAILY"，二者之一

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