请高手帮我解读一段Function函数

tom9cruise

小女子出于兴趣自学编程，好多东西不懂哦~~~

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

下面是一段函数，共有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

1。你的理解是对的
2。表类型，可找到数据库中包含的表，当然也包括链接表
3。判断链接表的源文件是否EUC.M_BS_PL_FILE， 是另一个数据库或文件中的表，可以是MDB， ODBC，或Excel文件。

chenwm1973

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"，二者之一