查找老单字段索引值方法

'表头字段i从0开始

For i = 0 To UBound(m_BillTransfer.HeadCtl)

    If UCase(m_BillTransfer.HeadCtl(i).FieldName) = UCase("FDate") Then

        djrqcol = i

        Exit For

    End If

    If UCase(m_BillTransfer.HeadCtl(i).FieldName) = UCase("FHeadSelfS0152") Then

        tscol = 47

        Exit For

    End If

Next

'表体字段i从1开发

For i = 1 To UBound(m_BillTransfer.EntryCtl)