[rmnr]

اولا الدالة الموجوده في WebService

كود :

<WebMethod()>
Public Function SelectPCTakhen(DatePC As Date) As DataTable
    Try
        Dim da As New SqlDataAdapter("SELECT BarCodeNumber FROM PcTable WHERE DateofCome=@d", ConString) ' DataAdapter مع ConString لاحظ الإكتفاء بـ
        da.SelectCommand.Parameters.AddWithValue("@d",DatePC.Date)' Parameters لاحظ استخدام 
        Dim dt As New DataTable
        da.Fill(dt)
        Return dt
    Catch ex As Exception
        Throw New SoapException(ex.Message, SoapException.ServerFaultCode, Context.Request.Url.AbsoluteUri)
    End Try
End Function

ثانيا استدعاء الدالة 

كود :

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
    'استدعاء الدالة من الويب سيفر من خلال المتغير i
    Dim dt As DataTable = i.SelectPCTakhen(DateTimePicker1.Value.Date)
    If dt.Rows.Count > 0 Then
        DataGridView1.DataSource = dt' .Date لاحظ زيادة
    End If
End Sub