vb6我得到编译错误：未定义方法或数据成员请给我解决方案

我最好的猜测是，您使用的成员实际上没有在nsdUnit中定义，或者您拼错了名称。例如，

ClearColumn

实际上是方法名还是ClearColumns？另一个看起来可疑的位是

。SetDropDownTitle=“Units Record”

。

SetDropDownTitle

是一个属性（如赋值运算符的语法所示）还是一个方法？

您的问题不仅仅是一段代码。比如说，告诉我们你在哪一行得到了错误？知道nsdUnit的数据类型也很方便。

Private Sub InitNSD()
    'For Vendor
    With nsdUnit
        .ClearColumn
        .AddColumn "Unit ID", 1794.89
        .AddColumn "Unit", 2264.88
        .Connection = CN.ConnectionString

        '.sqlFields = "VendorID, Company, Location"
        .sqlFields = "UnitID, Unit"
        .sqlTables = "Unit"
        .sqlSortOrder = "Unit ASC"

        .BoundField = "UnitID"
        .PageBy = 25
        .DisplayCol = 2

        .setDropWindowSize 7000, 4000
        .TextReadOnly = True
        .SetDropDownTitle = "Units Record"
    End With

End Sub