16-09-2013, 06:58 PM
19-09-2013, 11:00 PM
عندك الخاصية Items.
20-09-2013, 12:52 AM
السلام عليكم و رحمة الله
جرب هذا الإجراء :
ملاحظة : استعمل Combobox عادي بدل DBCombobox
و الله هو الموفِق للخير.
جرب هذا الإجراء :
كود :
procedure TVente.Q_ArticlesAfterOpen( DataSet: TDataSet );
begin
if not( Q_Articles.IsEmpty ) then
begin
ComboBox1.items.Clear;
Q_Articles.First;
repeat
begin
ComboBox1.items.Add( Q_Articles.Fields[ 1 ].asstring );
Q_Articles.Next;
end;
until Q_Articles.Eof;
end
else
ComboBox1.items.Clear;
end;ملاحظة : استعمل Combobox عادي بدل DBCombobox
و الله هو الموفِق للخير.
21-09-2013, 04:33 PM
merci mon frére
21-09-2013, 10:08 PM
hmidadz كتب :merci mon frére
يا أخي على الأقل "حلبنا" إذا كان الكود يعمل أم لا او به أخطاء. :d
11-10-2013, 08:58 PM
يعبا عن طريق الاكسيس ثم توضع الاداة الكمبو بكس تبع الدي بي وستظهر معك جميع الايتمز التي كتبتها بالاكسيس