在线等，一个很简单的错误提示

Question

Public Function Fun_FL(tmp_fnu As String, tmp_fqty As Double) As Boolean
 Dim i As Integer
 Dim EntryCtl As Variant
 For i = 1 To UBound(m_Billtransfer.EntryCtl(2).DInterID)
 If tmp_fnu = m_Billtransfer.GetGridText(i, 4) Then
   m_Billtransfer.SetGridText i, 13, tmp_fqty
   Fun_FL = True
 End If
 Next i
 
End Function
代码调试到UBound(m_Bill.EntryCtl(2).DInterID)提示 对象变量或WITH 块未声明
麻烦大家帮我出出主意
Billtransfer改对象在其他SUB 中已经初始化过的

Answer 1

你确认 m_Billtransfer.EntryCtl(2).DInterID 是个数组吗？

Answer 2

把声明那部分CODE贴出来看看~~看提示似乎不应该是个数字类型的数组

Answer 3

UBound(m_Billtransfer.EntryCtl(2).DInterID)看上去确实有问题。
m_Billtransfer.EntryCtl(2).DInterID怎么看也不像数组。