1、参考
控件.ComboList = DataTables("统计表1").GetComboListString("年")
2、选择后,代码修改一下
For Each Year As String In DataTables("统计表1").GetValues("年", "年 = '" & 控件.Text & "'")