进销存：年底盘点，形成多套系统。如何获得想要的表名。谢谢。 Access(100)

系统有三个表：第一个表：进货报表第二个表：销售报表第三个表：库存报表年底盘点，将盘点的数据记录为年初初始数值。得出新的三个表：第一个表：进货报表20100508第二个表：销售报表20100508第三个表：库存报表20100508现在库中就有6个表。再执行一次,年底盘点，将盘点的数据记录为年初初始数值。又得出新的三个表：第一个表：进货报表20111201第二个表：销售报表20111201第三个表：库存报表20111201现在库中就有9个表。我想在ComboBox1.Items里显示三行记录，第一行：进货报表第二行：进货报表20100508第二行：进货报表20111201这样只要选择ComboBox1就可以进入想要的系统了。--------------------------------------------------------现在我懂得获取Access所有表名,现在怎么判断把想要的表加入ComboBox1.Items里面。顺便问一个函数，如<进货报表20100508>得出：20100508。（忘了）谢谢了。

var MyStringList: TStrings; i: integer; TableName:string;begin MyStringList := TStringList.Create; TableName:='进货报表'; try DataModule3.ADOConnection1.GetTableNames(MyStringList, False); with MyStringList do begin // i := count; for i := 0 to Count - 1 do //MyStringList.Count begin if CompareText(copy(MyStringList.Strings,1,8), TableName) = 0 then //不分大小写 begin //copy取值，前8个字符 ComboBox17.Items.Add( MyStringList.Strings); //插入名名 end; end; end; finally MyStringList.Free; end;

接受答案了.