假设有一些学生的学号包含了班级如:
01403238
01403239
01403226
01405101
01405102
这里的前6位代表班级
如果数据库里还有很多班级而我只想在combobox 的下拉菜单中显示班级的名称怎么办?
014032
014051
01403238
01403239
01403226
01405101
01405102
这里的前6位代表班级
如果数据库里还有很多班级而我只想在combobox 的下拉菜单中显示班级的名称怎么办?
014032
014051
解决方案 »
- RichEdit的滚动问题
- 怎样读取GIS文件呢???
- 在线求教:数据结构升级的问题
- 谁向我要过QQ的面板的控件或者原代码,请近来
- 关于用InstallShield打包Delphi程序的问题?
- 存储过程中的数据转换问题?
- 如何将这张表进行行列转换?
- 那里有Formu one 6.0 或6.1 for delphi6.0
- 如何改变PageControl标签按钮的颜色
- 在做WORD处理时,如何才能用".EDITGOTO"语句?请给出详细的代码。
- 程序中如何屏蔽 alt+F4? 另外,如何将Tbitbutton和Tpanel设置为透明?
- 刚学delphi 想做一个web维护程序,新闻与图片问题,讨教各位,来者有分!!!
begin
Close;
SQL.Text:='select Left(班级名称 , 6) from 班级表 ;
Open;
Combox.Items.Clear;
while not Eof do
begin
if Combox.Items.IndexOf(Fields[0].AsString) = -1 then
Combox.Items.Add(Fields[0].AsString);
Next;
end;
end;
begin
Close;
SQL.Text:='select distinct Left(班级名称 , 6) from 班级表 ;
Open;
Combox.Items.Clear;
while not Eof do
begin
if Combox.Items.IndexOf(Fields[0].AsString) = -1 then
Combox.Items.Add(Fields[0].AsString);
Next;
end;
end;