.NET (Core and Framework)

6-May-20 22:44

i have already a good Programm which shows my database in a Datagridview,

everything is Ok with it, now i would like to add Filter Option to my Datagridview like Excel Filter

i used : AdvanceDatagridview it's an advanced Datagridview with a lot of filter Option,

the problem here, i can not use this datagridview unless i bind it with a Datatable and i also when i did that t found a big problem because in my old code there is Datagridviewrow

and now so i tried to convert Datagridviewrow to datarow to import it in datatable and to use it but it did not work

my Old Code :

<pre> sSQL = "SELECT " &
                                        "ItemID, " &
                                        "PSC_tdItems.OrderID, " &
                                        "ArtikelID, " &
                                        "Menge, " &
                                        "Art, "
                                        "CodeID, " &

 MyCommand = New SqlCommand(sSQL, conFF)

      drW2P = MyCommand.ExecuteReader
      If drW2P.HasRows Then
        While drW2P.Read()
          nField_ItemID = 0
          nField_OrderID = 0              
          nField_Quantity = 0.0
          sField_Art = ""
          sField_pscArticleID = ""
          sField_CodeID = ""


If Not DBNull.Value.Equals(drW2P("ItemID")) Then
            nField_ItemID = Convert.ToInt32(drW2P("ItemID"))
          End If
If Not DBNull.Value.Equals(drW2P("OrderID")) Then
            nField_OrderID = Convert.ToInt32(drW2P("OrderID"))
          End If
If Not DBNull.Value.Equals(drW2P("Menge")) Then
            nField_Quantity = Convert.ToDouble(drW2P("Menge").ToString.Replace(".", ""))
          End If
If Not DBNull.Value.Equals(drW2P("Art")) Then
            sField_Art = drW2P("Art").ToString
          End If
If Not DBNull.Value.Equals(drW2P("ArticelNumber")) Then
        sField_mspArticleNumber = drW2P("ArticelNumber").ToString
      End If
If Not DBNull.Value.Equals(drW2P("CodeID")) Then
        sField_CodeID = drW2P("CodeID").ToString
      End If 
Try
            MyRow = New DataGridViewRow
            MyRow.CreateCells(dgvW2P)
            MyRow.SetValues("0",
                                                    imgNotOK.ToBitmap,
                                                    nField_ItemID,
                                                    nField_OrderID,
                                                    nField_Quantity
                                                    sField_Art,
                                                    sField_pscArticleID
                                                    sField_CodeID)
 dgvW2P.Rows.Add(MyRow)
          Catch ex As Exception
            ErrorLogging(True, "Sub FillW2PGrid: Add a line in the grid" & vbCrLf & ex.Message & vbCrLf & "SQL:" & sSQL & vbCrLf & ex.StackTrace.ToString, nErrorLevel_Error)
          Finally
            If Not MyRow Is Nothing Then
              MyRow.Dispose()
              MyRow = Nothing
            End If
          End Try
     End While
      End If

my new Code :

<pre>   sSQL = "SELECT " &
                                        "ItemID, " &
                                        "PSC_tdItems.OrderID, " &
                                        "ArtikelID, " &
                                        "Menge, " &
                                        "Art, "
                                        "CodeID, " &

 ' here are my new modification


Dim Dt As New DataTable
  Dt.Clear()
  Dim cmd As New SqlCommand

  If conFF.State = ConnectionState.Open Then
    conFF.Close()
  End If

  conFF.Open()
  cmd.Connection = conMspFF
  cmd.CommandType = CommandType.Text
  cmd.CommandText = (sSQL)

  Dim da As New SqlDataAdapter(cmd)
  da.Fill(Dt)

  bindingSource_data.DataSource = Dt
  dgvW2PNEW.DataSource = bindingSource_data
  dgvW2PNEW.Refresh()

      drW2PNEW = MyCommand.ExecuteReader

' the problem is here : i can not use HasRow with my new Datagridview

<pre> If drW2PNEW.HasRows Then
            While drW2PNEW.Read()
              nField_ItemID = 0
              nField_OrderID = 0              
              nField_Quantity = 0.0
              sField_Art = ""
              sField_pscArticleID = ""
              sField_CodeID = ""


    If Not DBNull.Value.Equals(drW2PNEW("ItemID")) Then
                nField_ItemID = Convert.ToInt32(drW2PNEW("ItemID"))
              End If
    If Not DBNull.Value.Equals(drW2PNEW("OrderID")) Then
                nField_OrderID = Convert.ToInt32(drW2PNEW("OrderID"))
              End If
    If Not DBNull.Value.Equals(drW2PNEW("Menge")) Then
                nField_Quantity = Convert.ToDouble(drW2PNEW("Menge").ToString.Replace(".", ""))
              End If
    If Not DBNull.Value.Equals(drW2PNEW("Art")) Then
                sField_Art = drW2PNEW("Art").ToString
              End If
    If Not DBNull.Value.Equals(drW2PNEW("ArticelNumber")) Then
            sField_mspArticleNumber = drW2PNEW("ArticelNumber").ToString
          End If
    If Not DBNull.Value.Equals(drW2PNEW("CodeID")) Then
            sField_CodeID = drW2PNEW("CodeID").ToString
          End If 
    Try
                MyRow = New DataGridViewRow
                MyRow.CreateCells(dgvW2PNEW)
                MyRow.SetValues("0",
                                                        imgNotOK.ToBitmap,
                                                        nField_ItemID,
                                                        nField_OrderID,
                                                        nField_Quantity
                                                        sField_Art,
                                                        sField_pscArticleID
                                                        sField_CodeID)
' here i get the error
 dgvW2PNEW.Rows.Add(MyRow)
              Catch ex As Exception
                ErrorLogging(True, "Sub FillW2PGrid: Add a line in the grid" & vbCrLf & ex.Message & vbCrLf & "SQL:" & sSQL & vbCrLf & ex.StackTrace.ToString, nErrorLevel_Error)
              Finally
                If Not MyRow Is Nothing Then
                  MyRow.Dispose()
                  MyRow = Nothing
                End If
              End Try
         End While
          End If

Richard MacCutchan6-May-20 23:00

6-May-20 23:00

This is a third party product so you need to contact the person who wrote it.

Member 147338666-May-20 23:37

6-May-20 23:37

sorry, but i am looking for a solution , if i could do that i will not post here my question

Richard MacCutchan7-May-20 0:02

7-May-20 0:02

A solution to what? Your question is far from clear.

Member 147338667-May-20 0:14

7-May-20 0:14

a solution for my problem , how to use this code with the new Datagridview, the probleme is with property hasrow, i add the data to the DataTable and use that as the binding source for the DataGridView.

Eddy Vluggen7-May-20 1:05

Eddy Vluggen

7-May-20 1:05

There's multiple gridviews out there with the same name; not even sure which one to look at. For the normal GridView, we have documentation. Not so much for the unknown advanced version.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.

Member 147338667-May-20 1:46

7-May-20 1:46

that is GitHub - davidegironi/advanceddatagridview: A .NET WinForm DataGridView with advanced capabilities[^]
which i used

Advanced TypeScript Programming Projects

Pete O'Hanlon7-May-20 1:49

Pete O'Hanlon

7-May-20 1:49

The most appropriate place to ask questions about github projects is on the github project itself. The chances of the contributors happening on your question here are very small. The place to ask your question is here[^].

Windows 1903 Jump Lists

Robert Heath29-Apr-20 19:25

Robert Heath

29-Apr-20 19:25

What changed in Win 1903 jump lists? My code develop with .net 3.5 gets an "The item you selected is unavailable" message. I've found a lot of registry hacks that don't fix the problem.
Thanks,
Bob

Re: Windows 1903 Jump Lists

Richard MacCutchan29-Apr-20 23:10

Re: Windows 1903 Jump Lists

29-Apr-20 23:10

Without some code and a lot more detail it is impossible to guess what your problem may be.

Eddy Vluggen29-Apr-20 23:29

Eddy Vluggen

29-Apr-20 23:29

Before assuming the fault is caused by "a change" in Windows, I'd suggest you take a look at the eventlog, and find an older computer that you know "isn't changed" and try it there.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.

how to use datatable as Datasource with Datagridview unless datagridviewrow

Member 1473386629-Apr-20 2:31

Re: how to use datatable as Datasource with Datagridview unless datagridviewrow

29-Apr-20 2:31

my idea is to use datatable as Datasource to my datagridview which is named : dgvW2PNew

so i tried to convert Datagridviewrow to datarow to import it in datatable just like that

can some one tell me if i am doing wrong or suggest some thing else to me

this is my code:

Try
       MyRow = New DataGridViewRow
       MyRow.CreateCells(dgvW2PNew)
       MyRow.SetValues("0",
                                               imgNotOK.ToBitmap,
                                               sField_CodeID,
                                               sField_ExtOrderID,
                                               sField_pscArticleID,
                                               nField_ItemID,
                                               nField_OrderID,
                                               nField_Quantity,
                                               sField_Art,
                                               sField_ArtIntern,
                                               sField_Ref,
                                               sField_InfoValue,
                                               sField_ShippingCompany,
                                               sField_DeliveryDate,
                                               sField_InsertDate,
                                               sField_ArtExtern,
                                               nField_ProductLength,
                                               nField_ProductWidth,
                                               nField_ProductGrammage,
                                               sField_PrintMaterial,
                                               sField_PrintColor,
                                               )

      dgvW2PNew.Rows.Add(MyRow)

       Dim dt As New DataTable
       dt.ImportRow(MyRow)

       '' bindingSource_data.DataSource = dt
       'dgvW2PNew.DataSource = dt

     Catch ex As Exception
       ErrorLogging(True, "Sub FillW2PGrid: Zeile im Grid ergänzen" & vbCrLf & ex.Message & vbCrLf & "SQL:" & sSQL & vbCrLf & ex.StackTrace.ToString, nErrorLevel_Error)
     Finally
       If Not MyRow Is Nothing Then
         MyRow.Dispose()
         MyRow = Nothing
       End If
     End Try

Richard MacCutchan29-Apr-20 3:20

There is no Unicode byte order mark. Cannot switch to Unicode.

29-Apr-20 3:20

You are doing it the wrong way round. Add the data to the DataTable and use that as the binding source for the DataGridView. See DataTable Class (System.Data) | Microsoft Docs[^] for explanation and sample code.

Michele Smith20-Apr-20 12:56

Michele Smith

20-Apr-20 12:56

Hello, I am receiving the error message:

There is no Unicode byte order mark. Cannot switch to Unicode

in this XML segment:

<?xml version="1.0" encoding="UTF-8"?>

-<OrderUpdateReply>


-<Error>



<ErrorDescription>There is no Unicode byte order mark. Cannot switch to Unicode.</ErrorDescription>

</Error>

</OrderUpdateReply>

It occurs on the final line of this method:

private async Task<string> QueryOrders(string key, string accountName)
        {
            string XMLstring = CalculateOrderQueryXML(key, accountName);
            StringContent stringcontent = new StringContent(XMLstring);
            stringcontent.Headers.ContentType.MediaType = "text/XML";
            HttpResponseMessage response = await http.PostAsync("https://www.mywebsite.com/shared/xml/orderquery.rest", stringcontent);

            /*string for response*/
            string ResponseString = await response.Content.ReadAsStringAsync();

            XmlDocument xml = new XmlDocument();
            xml.LoadXml(ResponseString);
    
            return xml.OuterXml;

        }

Re: There is no Unicode byte order mark. Cannot switch to Unicode.

Richard Deeming21-Apr-20 0:21

Richard Deeming

21-Apr-20 0:21

Either the remote service is expecting Unicode data, or your generated XML has specified that it's using Unicode.

Try sending the request with the Unicode encoding:

string xmlString = CalculateOrderQueryXML(key, accountName);
StringContent stringContent = new StringContent(xmlString, System.Text.Encoding.Unicode, System.Net.Mime.MediaTypeNames.Text.Xml);
using (HttpResponseMessage response = await http.PostAsync("https://www.mywebsite.com/shared/xml/orderquery.rest", stringContent))
{
    string responseString = await response.Content.ReadAsStringAsync();
    XmlDocument xml = new XmlDocument();
    xml.LoadXml(responseString);
    return xml.OuterXml;
}

If that doesn't work, then you'll need to check the result of your CalculateOrderQueryXML method.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Resource Error

Member 129880739-Apr-20 18:19

Member 12988073

9-Apr-20 18:19

Hello, I have an error in the dll resource

Spec.File.system.dll

Dim filePath As String
filePath = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Spec.File.system.dll"
IO.File.WriteAllBytes(filePath, My.Resources.Spec.File.system)

Process.Start(filePath)
System.Threading.Thread.Sleep(200)
End Sub
2daa1a6848e93373d6f08a0f50baea29-full.png | savepice.ru[^]

Re: Resource Error

Richard MacCutchan9-Apr-20 21:37