Dim t As Table = Tables("表A")dim str as string = t.DataTable.GetComboListString("第一列", t.filter)msgbox(str)