主题：[求助]跪求只要输入首拼就能模糊查找列表项目的参考代码

 加一列 拼音列，然后在Datacolchanged事件写代码

If e.DataCol.Name = "第一列" Then
    If e.NewValue = Nothing Then
        e.DataRow("拼音") = Nothing
    Else
        e.DataRow("拼音") = GetPy(e.NewValue, True)
    End If
End If