Visual Basic

Regards,

Chatura Dilan

MyStructure structure = (MyStructure)sortedList["username1"];

(MyStructure[]) and sort it:
MyStructure[] structures = CalcStructures();
Array.Sort(structures, new MyStructComparator);
//now the array is sorted

public class MyStructComparator : IComparer {
   public int Compare(object obj1, object obj2) {
      return ((MyStructure)obj1).Department.CompareTo(((MyStructure)obj2).Department);
   }
}

Dim ipassinfo As New SortedList<br />
   Public Structure user<br />
       'Declare data members<br />
       Public username As String<br />
       Public department As String<br />
       Public domestictotal As Decimal<br />
   End Structure

fields = MyLine.Split(ControlChars.Tab) 'Or Convert.ToChar(Keys.Tab)<br />
<br />
<br />
                    'check to see if entrie already exists if not create it<br />
                    If ipassinfo(fields(2)) Is Nothing Then<br />
                        'loading the structure<br />
                        userinfo.username = fields(2)<br />
                        userinfo.department = "???"<br />
                        userinfo.domestictotal = fields(9)<br />
                        'adding the structure to the sortedlist under key username<br />
                        ipassinfo.Add((fields(2)), userinfo)<br />
                    Else<br />
                        ' adds charges to total if allready exists<br />
                        userinfo.domestictotal = userinfo.domestictotal + fields(9)<br />
                    End If

Dim userarray As user()
ReDim userarray(ipassinfo.Values.Count)

ipassinfo.Values.CopyTo(userarray, 0)
userarray.Sort(userarray, New MyStructComparator)
Dim u As user
For Each u In userarray
   'do something in sorted order
Next

Public Class MyStructComparator
   Implements IComparer
   Public Overridable Function Compare(ByVal x As Object,
       ByVal y As Object) As Integer Implements IComparer.Compare
            Return CType(x, user).department.CompareTo(CType(y, user).department)
   End Function
End Class

Mohammed Amine wrote:

as you know SQL Server have just a datetime type

Mohammed Amine wrote:

i want to recuperate date from database in a textbox i got both the date&time in the same textbox ,but i want to get just the date or just the time

Dim myForm As New Form3
myForm.MdiParent = Me.MdiParent
myForm.Show()