[asemshahen5]

PHP كود :

Public Function showtheraseed(ByVal CmbValue as string,TableName as string,WhereColumn as string,SumColumn as string)
        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("& SumColumn &") as sumofpur FROM "& TableName &" WHERE "& WhereColumn &" = " & 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,"adpurdet","itcod","invqu")