Private Sub Form_Load()
Data3.RecordSource = "pc_info"
Data3.Refresh
redim server(data3.recordset.count)'此处出错,二义性调用!
end sub

解决方案 »

  1.   

    你的recordset.count读出数据了吗?还是为空?
      

  2.   

    Private Sub Form_Load()
    Data3.RecordSource = "pc_info"
    Data3.Refresh
    redim server(din i as integer)
    end sub 
      

  3.   

    redim server(data3.recordset.count-1) as boolean
      

  4.   

    redim server(i) as boolean
    就好的了啊
      

  5.   

    好象不能定义成 public 吧
    因为你定义的是一个可变的数组
      

  6.   

    redim server(i) as boolean 不行的,不能再定义数据的boolean