Is there a way to use the ASP version (System.Web.UI.WebControls.Datgrid) of the datagrid in a windows form in VB.Net? I have created an ASP presentation layer but the user is requesting a Windows form as well.

While I am on this in VB6 you use the 'command' function to read arguments issued when the program was started, how do you do that in VB.Net?

Hey,

The Windows form version of the DataGrid has it's differences than the ASP.NET version, which no it is not possible, that I know of. You could potentially go the other way (host a VB.NET control in an ASP.NET web form).

Don't know the answer to the other.

Brian

Thanks, I was afraid of that. :( My big issue with the Windows form grid is that in the web form I am accepting a collection from the next layer, and the windows form does not appear to allow collections it wants a DataView only. I am still looking into the old 'command' function.

Hey,

It should allow collections, it should allow different kinds of collections, such as an array, a datatable, etc. Did you find a resource that says otherwise?

Brian

No I did not find anything that said that, but when I bind the collection to the datagrid I get blank rows. Here is the code I am using to bing the collection and the map of the collection.


    'Message collection object
    ' MsgDate As Date
    ' Phone As String
    ' Length As int16
    ' Status As String
    ' VMKey as string
    ' FileLoc As String
    ' PromptFile As Boolean
    ' RecordID As Int64

    Private Sub GetMsgs()
        Dim Success As Boolean
        Dim msgStart As Double
        Dim msgEnd As Double
        colFilter = New Collection
        colVM = New Collection


  Cursor.Current = Cursors.WaitCursor

        If Not (IsNumeric(txtLen1.Text)) Then
            txtLen1.Text = 0
        End If

        If Not (IsNumeric(txtLen2.Text)) Then
            txtLen2.Text = 0
        End If

        If Not (IsDate(txtDate1.Text)) Then
            txtDate1.Text = ""
        End If

        If Not (IsDate(txtDate2.Text)) Then
            txtDate1.Text = ""
            txtDate2.Text = ""
            eDate = ""
        Else
            eDate = Convert.ToDateTime(txtDate2.Text).AddDays(1).ToStr ing
        End If

        msgStart = Convert.ToDouble(txtLen1.Text)
        msgEnd = Convert.ToDouble(txtLen2.Text)
        colFilter.Add(MakeCollection)

        Success = DVoice.FetchMessages(colFilter, colVM)

        If Success = True Then
            grdVM.CaptionText = "Found " & Format(colVM.Count, "###,###,##0") & " undeleted messages."
            Call BindGrid()
        Else
            grdVM.CaptionText = "No messages found. "
        End If

        Cursor.Current = Cursors.Arrow
    End Sub

    Private Sub butFetchRecords_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butFetchRecords.Click
        Call GetMsgs()
    End Sub

    Public Sub BindGrid()
        VMCount = 1
        grdVM.DataSource = colVM
    End Sub