请问代码中红色部分的意思是什么。
Public Function MultiUse(sql As String, cnDb As ADODB.Connection, Optional ByVal dbCommandTimeOut As Integer = 30, Optional ByVal blShowErr As Boolean = True) As ADODB.Recordset
Dim oldMP As Integer
Dim ErrCnt As Integer
Dim Rs As New ADODB.Recordset
Dim rsTemp As New ADODB.Recordset
Dim Check_Db_Link_Flag As Boolean
TryAgain:
On Error GoTo ErrAdoSQLRecordSet
If InStr(1, sql, "@") > 0 Then
Check_Db_Link_Flag = Check_DB_Link(sql, cnDb) If Not Check_Db_Link_Flag Then
rsTemp.Fields.Append "EMPTY", adChar, 10 rsTemp.Open
Set MultiUse = rsTemp
Exit Function
End If
End If
[解决办法]
Check_DB_Link(...)是个函数,返回一个逻辑值
Check_Db_Link_Flag = Check_DB_Link(sql, cnDb)只是个简单的函数调用而已
rsTemp.Fields.Append "EMPTY", adChar, 10
添加了一个叫 "EMPTY"的字段, 字符型, 长度10
