请给我解说下下面的代码好吗。Private Sub cboField_Click() Dim iPeriod As Integer
Dim sField As String
Dim sTable As String iPeriod = InStr(cboField, ".") ----------------------------?
If iPeriod Then
' Separate combo box item into table
' and field names; remove brackets
sTable = Left$(cboField, iPeriod - 1)-------------------?
If Left$(sTable, 1) = "[" Then
sTable = Mid$(sTable, 2, Len(sTable) - 2)
End If
sField = Mid$(cboField, iPeriod + 1)---------------------?
If Left$(sField, 1) = "[" Then ---------------------?
sField = Mid$(sField, 2, Len(sField) - 2)------------?
End If
' Assign data control's RecordSource
' to selected table; bind image control
' to selected field
datCtl.RecordSource = sTable
imgPreview.DataField = sField
cmdNew.Enabled = True
cmdCancel.Enabled = True
datCtl.Refresh
End IfEnd Sub
Dim sField As String
Dim sTable As String iPeriod = InStr(cboField, ".") ----------------------------?
If iPeriod Then
' Separate combo box item into table
' and field names; remove brackets
sTable = Left$(cboField, iPeriod - 1)-------------------?
If Left$(sTable, 1) = "[" Then
sTable = Mid$(sTable, 2, Len(sTable) - 2)
End If
sField = Mid$(cboField, iPeriod + 1)---------------------?
If Left$(sField, 1) = "[" Then ---------------------?
sField = Mid$(sField, 2, Len(sField) - 2)------------?
End If
' Assign data control's RecordSource
' to selected table; bind image control
' to selected field
datCtl.RecordSource = sTable
imgPreview.DataField = sField
cmdNew.Enabled = True
cmdCancel.Enabled = True
datCtl.Refresh
End IfEnd Sub
If iPeriod Then
' Separate combo box item into table
' and field names; remove brackets
sTable = Left$(cboField, iPeriod - 1)-------------------将cboField的第一个字符到"."前的一个字符赋给sTable，如：“123456”
If Left$(sTable, 1) = "[" Then
sTable = Mid$(sTable, 2, Len(sTable) - 2)
End If
sField = Mid$(cboField, iPeriod + 1)---------------------将cboField从“.”后的所有字符赋给sField，如：“78”
If Left$(sField, 1) = "[" Then ---------------------如果sField的第一个字符为"["
sField = Mid$(sField, 2, Len(sField) - 2)------------从sField中第二个字符开始，截取Len(sField)-2个字符。如：sField = "[abcded"，则Mid$(sField, 2, Len(sField) - 2) = "abcde"
得到字符串cboField中第一个"."的位置
sTable = Left$(cboField, iPeriod - 1)-------------------?
得到字符串小数点左边的所有字符
sField = Mid$(cboField, iPeriod + 1)---------------------?
得到字符串小数点右边的所有字符
If Left$(sField, 1) = "[" Then ---------------------?
sField = Mid$(sField, 2, Len(sField) - 2)------------?
End If
如果字符串sField的第一个字符是"["
字符串sField就从sField第二个字符开始取全部字符（去掉第一个）
返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。语法 InStr([start, ]string1, string2[, compare])InStr 函数的语法具有下面的参数：部分 说明
start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。
设置 compare 参数设置为：常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。
返回值如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2 找到的位置
start > string2 0
说明InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。
InStr 函数示例
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1) ' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。MyPos = Instr(1, SearchString, "W") ' 返回 0。
========================================================
Left 函数
返回 Variant (String)，其中包含字符串中从左边算起指定数量的字符。语法Left(string, length)Left 函数的语法有下面的命名参数：部分 说明
string 必要参数。字符串表达式其中最左边的那些字符将被返回。如果 string 包含 Null，将返回 Null。
length 必要参数；为 Variant (Long)。数值表达式，指出将返回多少个字符。如果为 0，返回零长度字符串 ("")。如果大于或等于 string 的字符数，则返回整个字符串。
说明欲知 string 的字符数，使用 Len 函数。注意 LeftB 函数作用于包含在字符串中的字节数据。所以 length 指定的是字节数，而不是要返回的字符数。Left 函数示例
本示例使用 Left 函数来得到某字符串最左边的几个字符。Dim AnyString, MyStr
AnyString = "Hello World" ' 定义字符串。
MyStr = Left(AnyString, 1) ' 返回 "H"。
MyStr = Left(AnyString, 7) ' 返回 "Hello W"。
MyStr = Left(AnyString, 20) ' 返回 "Hello World"。=========================================================
Mid 函数
返回 Variant (String)，其中包含字符串中指定数量的字符。语法Mid(string, start[, length])Mid 函数的语法具有下面的命名参数：部分 说明
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。
说明欲知 string 的字符数，可用 Len 函数。注意 MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用 MidB的示例代码，请参阅示例主题中的第二个示例。Mid 函数示例
本示例使用 Mid 语句来得到某个字符串中的几个字符。Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。
MidWords = Mid(MyString, 5) ' 返回 "Funcion Demo"。
返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。语法Len(string | varname)Len 函数的语法有下面这些部分：部分 说明
string 任何有效的字符串表达式。如果 string 包含 Null，会返回 Null。
Varname 任何有效的变量名称。如果 varname 包含 Null，会返回 Null。如果 varname 是 Variant，Len 会视其为 String 并且总是返回其包含的字符数。
说明两个可能的参数必须有其一（而且只能有其一）。如为用户定义类型，Len 会返回其写至文件的大小。注意 LenB 函数作用于字符串中的字节数据，如同在双字节字符集(DBCS)语言中一样。所以 LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。如为用户自定义类型，LenB 返回在内存中的大小，包括元素之间的衬垫。对于使用 LenB的示例代码，请参阅示例主题中的第二个示例。注意 当在用户自定义数据类型中使用变长字符串时，Len 可能不能确定实际存储所需的字节数目。Len 函数示例
本示例使用 Len 函数来得知某字符串的长度（字符数）或某变量的大小（位数）。Type...End Type 程序区块定义一个自定义数据类型 CustomerRecord。如果该数据类型定义在对象类模块中，则必需以关键字 Private 开头（表示为私有）。若定义在常规模块中，Type 定义就可以为 Public。Type CustomerRecord ' 定义用户自定义的数据类型。
ID As Integer ' 将此定义放在常规模块中。
Name As String * 10
Address As String * 30
End TypeDim Customer As CustomerRecord ' 声明变量。
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' 设置变量初值。
MyLen = Len(MyInt) ' 返回 2。
MyLen = Len(Customer) ' 返回 42。
MyLen = Len(MyString) ' 返回 11。
MyLen = Len(MyCur) ' 返回 8。