11-07-16, 03:22 AM
السلام عليكم
ارجو التعديل على الكود بحيث يتجاهل الأرقام 0 و 1 و 2 في عملية الترتيب التصاعدي
ارجو التعديل على الكود بحيث يتجاهل الأرقام 0 و 1 و 2 في عملية الترتيب التصاعدي
كود :
Dim rs As ADODB.Recordset
Set rs = Adodc1.Recordset
If rs.Sort <> DataGrid1.Columns(الكمية).DataField & " DESC" Then
rs.Sort = DataGrid1.Columns(الكمية).DataField & " DESC"
End If