[asemshahen5]

جرب عمله فانكشن :

PHP كود :

Public Function showtheraseed(ByVal CmbValue as integer)
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()
        Dim command As New SqlCommand
        command = New SqlCommand
        command.Connection = conn
        Dim purin, purback, salin, salback As Double
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()
        command.Connection = conn
        command.CommandType = CommandType.Text
        command.CommandText = "SELECT sum(invqu) as sumofpur FROM adpurdet WHERE itcod = " & CmbValue 
        Dim dr1 As SqlDataReader
        If dr1 IsNot Nothing Then dr1.Close()
        dr1 = command.ExecuteReader
        Dim dt1 As New DataTable
        dt1.Load(dr1)
        If dt1.Rows.Count = 0 Then
            purin = 0
        Else
            If IsDBNull(dt1.Rows(0).Item("sumofpur")) Then
                purin = 0
            Else
                purin = (dt1.Rows(0).Item("sumofpur"))
            End If
        End If
        return purin
end Function 


كود الاستدعاء :

PHP كود :

Txtpurin.Text = showtheraseed(ComboBox2.SelectedValue) 


على فرض ان purin هي القيمة التي تريد ان يعود بها الفانكشن .