与控件数组有关 估计Private Sub dco_MemType_Click(Area As Integer) 改成 Private Sub dco_MemType_Click() 看看
贴出错代码出来
