Newsgroup: italia.napoli.discussioni
Titolo: Tom-Software

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Diagnostics
Imports System.Configuration
Imports Utility
Partial Class GestCheck
    Inherits 
System.Web.UI.Page
    Public idconcess As String
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.
EventArgs) Handles Me.Load
        Page.Title = "Gestione check box"
        EseguiRicerca()
    End Sub
    Private Sub EseguiRicerca()
        Dim objCon As OleDbConnection
        Dim connectionstring As String = System.Configuration.
ConfigurationManager.ConnectionStrings("strCon").ConnectionString
        objCon = New OleDbConnection(connectionstring)
        Dim sql2 As OleDbDataAdapter
        Dim sSQL As String = String.Empty
        Dim sWHERE As String = String.Empty
        Dim TxtCodiceConces As String = Request.QueryString("loginInfoId")
        sSQL = "select id_motivo as idmotivo ,descrizione as 
CodiceConcessionario from Tbt_IdentificativoChiamata  order by id_motivo"
 
        objCon.Open()
        sql2 = New OleDbDataAdapter(sSQL & sWHERE, objCon)
        Dim querydataset As DataSet = New DataSet()
        sql2.Fill(querydataset)
        If querydataset.Tables(0).Rows.Count > 0 Then
            GridView1.DataSource = querydataset
            GridView1.DataBind()
        Else
            lblRicerca.Visible = True
            lblRicerca.Text = "Nessuna corrispondenza trovata"
            GridView1.Visible = False
        End If
    End Sub
    Protected Sub cmdRicerca_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles cmdElimina.Click
        EseguiRicerca()
    End Sub
    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e
As 
System.Web.UI.WebControls.GridViewRowEventArgs) Handles
GridView1.RowDataBound
        Dim oCmd As HtmlInputButton
        Dim oRiga As DataRowView
        Dim sCodice As String = String.Empty
        Dim sDescrizione As String = String.Empty
        oCmd = CType(e.Row.FindControl("cmdSelect"), HtmlInputButton)
        oRiga = CType(e.Row.DataItem, DataRowView)
        If Not oRiga Is Nothing Then
            sCodice = oRiga.Row("codiceconcessionario").ToString
            ''sDescrizione = oRiga.Row("CognomeChiamante").ToString
        End If
        If Not oCmd Is Nothing Then
            oCmd.Attributes.Add("onclick", "javascript:assegnaRiga('" & 
sCodice & "','" & sDescrizione & "');")
        End If
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
    End Sub
    Protected Sub GridView1_SelectedIndexChanging(ByVal sender As Object, 
ByVal e As System.Web.UI.WebControls.GridViewSelectEventArgs) Handles
GridView1.
SelectedIndexChanging
        GridView1.PageIndex = e.NewSelectedIndex
        EseguiRicerca()
    End Sub
    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object,
ByVal e 
As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.
PageIndexChanging
        GridView1.PageIndex = e.NewPageIndex
        EseguiRicerca()
    End Sub
    Protected Sub GridView1_RowDeleted(ByVal sender As Object, ByVal e As 
System.Web.UI.WebControls.GridViewDeletedEventArgs) Handles GridView1.
RowDeleted
    End Sub
    Protected Sub BtnAnnulla_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles cmdElimina.Click
    End Sub
    Protected Sub cmdRicerca0_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles cmdElimina.Click
        lbl_idconcessionario.Text = ""
        Dim objCon As OleDbConnection
        If txtRagioneSociale.Text <> "" Then
            Dim connectionstring As String = System.Configuration.
ConfigurationManager.ConnectionStrings("strCon").ConnectionString
            objCon = New OleDbConnection(connectionstring)
            Dim sql2 As String
            Dim mm As DateTime
            mm = Date.Now
            objCon.Open()
            Dim trans As OleDbTransaction
            trans = objCon.BeginTransaction
            Try
                sql2 = "delete from Tbt_IdentificativoChiamata where 
id_motivo= " & ViewState("idconcess") & ""
                Dim comm As OleDbCommand = New OleDbCommand
                comm.Connection = objCon
                'Inizia la transazione
                comm.Transaction = trans
                'prima query
                comm.CommandText = sql2
                comm.ExecuteNonQuery()
                'eseguo la transazione
                trans.Commit()
            Catch ex As SqlException
                'se si sono verificati errori faccio il rollback
                trans.Rollback()
                Response.Write(ex.ToString())
            Finally
                'chiudiamo sempre le connessioni!
                objCon.Close()
            End Try
            EseguiRicerca()
            txtRagioneSociale.Text = ""
        Else
            lbl_idconcessionario.Text = "Eseguire una selezione"
        End If
    End Sub
    Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As 
System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.
RowCommand
        GridView1.Visible = True
        If e.CommandName = "Select" Then
            Dim intRiga As Integer = e.CommandArgument
            ViewState("idconcess") = Me.GridView1.DataKeys(intRiga).Value
            ''   ViewState("idconcess") = GridView1.Rows(intRiga).Cells(1).
Text
            txtRagioneSociale.Text = Me.GridView1.Rows(intRiga).Cells(1).
Text
 
        End If
        If e.CommandName = "Page" Then
        End If
    End Sub
    Private Sub insertConcess()
    End Sub
    Private Sub modifica()
 
    End Sub
    Private Sub DeleteId_concessionario()
 
    End Sub
    Protected Sub cmdUpdate_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles cmdUpdate.Click
        lbl_idconcessionario.Text = ""
        Dim objCon As OleDbConnection
        If txtRagioneSociale.Text <> "" Then
            Dim connectionstring As String = System.Configuration.
ConfigurationManager.ConnectionStrings("strCon").ConnectionString
            objCon = New OleDbConnection(connectionstring)
            Dim mm As DateTime
            mm = Date.Now
            Dim sql1
            objCon.Open()
            Dim trans As OleDbTransaction
            trans = objCon.BeginTransaction()
            Try
                DeleteId_concessionario()
                sql1 = "UPDATE Tbt_IdentificativoChiamata SET Descrizione=
'" 
& DoQuotes(txtRagioneSociale.Text) & " ' where id_motivo =" & (ViewState
("idconcess")) & ""
                Dim comm As OleDbCommand = New OleDbCommand
                comm.Connection = objCon
                'Inizia la transazione
                comm.Transaction = trans
                'prima query
                comm.CommandText = sql1
                comm.ExecuteNonQuery()
                'eseguo la transazione
                trans.Commit()
            Catch ex As SqlException
                trans.Rollback()
                Response.Write(ex.ToString())
            Finally
                objCon.Close()
            End Try
            EseguiRicerca()
        Else
            lbl_idconcessionario.Text = "Eseguire una selezione"
        End If
    End Sub
    Protected Sub cmdInsert_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles cmdInsert.Click
        lbl_idconcessionario.Text = ""
        If txtRagioneSociale.Text <> "" Then
            Dim objCon As OleDbConnection
            Dim connectionstring As String = System.Configuration.
ConfigurationManager.ConnectionStrings("strCon").ConnectionString
            objCon = New OleDbConnection(connectionstring)
            Dim sql2 As String
            Dim mm As DateTime
            mm = Date.Now
            '' mm.Replace(".", ":")
            objCon.Open()
            Dim trans As OleDbTransaction
            trans = objCon.BeginTransaction()
            Try
                sql2 = "INSERT INTO Tbt_IdentificativoChiamata (
Descrizione)
values('" & txtRagioneSociale.Text & "')"
                Dim comm As OleDbCommand = New OleDbCommand
                comm.Connection = objCon
                'Inizia la transazione
                comm.Transaction = trans
                'prima query
                comm.CommandText = sql2
                comm.ExecuteNonQuery()
                'eseguo la transazione
                trans.Commit()
            Catch ex As SqlException
                'se si sono verificati errori faccio il rollback
                trans.Rollback()
                Response.Write(ex.ToString())
            Finally
                objCon.Close()
            End Try
            EseguiRicerca()
        Else
            lbl_idconcessionario.Text = "Inserire una descrizione"
        End If
    End Sub
    Protected Sub BtnAnnulla_Click1(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles BtnAnnulla.Click
        Response.Redirect("Default.aspx")
    End Sub
End Class
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Diagnostics
Imports System.Configuration
Imports Utility
Partial Class GestConcessRicerca
    Inherits 
System.Web.UI.Page
    Public Data As String
    Public Ora As String
    Public CodConcess As Integer
    Public punto1 As Integer
    Public punto2 As Integer
    Public P1 As Integer
    Public P2 As Integer
    Public punto3 As Integer
    Public setparam As Integer
    Public id_concessionario As Integer
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.
EventArgs) Handles Me.Load
        Page.Title = "Ricerca"
    End Sub
    Protected Sub BtnRicerca_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles BtnRicerca.Click
        bindata()
    End Sub
    Private Sub bindata()
        Dim i As Integer
        Dim DataInizio As String
        Dim DataFine As String
        If (txtStartDate.Text <> "" And txtEndDate.Text = "") Then
            txtEndDate.Text = txtStartDate.Text
        End If
        If (txtStartDate.Text = "" And txtEndDate.Text <> "") Then
            txtStartDate.Text = txtEndDate.Text
        End If
        Dim objCon As OleDbConnection
        Dim connectionstring As String = System.Configuration.
ConfigurationManager.ConnectionStrings("strCon").ConnectionString
        objCon = New OleDbConnection(connectionstring)
        Dim sql2 As OleDbDataAdapter
 
        'If (txtStartDate.Text = "") And (txtEndDate.Text = "") And 
(TxtCodiceConces2.Text = "") Then
        '    lblRicerca.Visible = True
        '    lblRicerca.Text = "Inserire un Parametro per la ricerca"
        '    Exit Sub
        'End If
        If txtStartDate.Text <> "" And txtEndDate.Text <> "" Then
            DataInizio = txtStartDate.Text
            DataFine = txtEndDate.Text
            Format(DataInizio, "dd/MM/yyyy")
            Format(DataFine, "dd/MM/yyyy")
        End If
        Dim TxtCodiceConces As String = Request.QueryString("loginInfoId")
        objCon.Open()
        ''   cod_concessionario like '%" & Me.TxtCodiceConces.Text.Replace
("'", "''") & "%'"
        '
        If (txtStartDate.Text <> "" And txtEndDate.Text <> "" And 
TxtCodiceConces2.Text <> "") Then
            sql2 = New OleDbDataAdapter("select
Numerofattura,RagioneSociale,
cognomechiamante,CodiceConcessionario,data_chiamata,ora_chiamata,
id_concessionario from Tbt_Concessionario where CodiceConcessionario=('" & 
DoQuotes((TxtCodiceConces2.Text)) & "') and Data_Chiamata >=('" &
DateToNumber
(DataInizio) & "') and Data_Chiamata <= ('" & DateToNumber(DataFine) &
"')", 
objCon)
        ElseIf (txtStartDate.Text <> "" And txtEndDate.Text <> "" And 
TxtCodiceConces2.Text = "") Then
            sql2 = New OleDbDataAdapter("select
Numerofattura,RagioneSociale,
cognomechiamante,CodiceConcessionario,data_chiamata,ora_chiamata,
id_concessionario from Tbt_Concessionario where  Data_Chiamata >=('" & 
DateToNumber(DataInizio) & "') and Data_Chiamata <= ('" & DateToNumber
(DataFine) & "')", objCon)
        ElseIf (txtStartDate.Text = "" And txtEndDate.Text = "" And 
TxtCodiceConces2.Text <> "") Then
            sql2 = New OleDbDataAdapter("select
Numerofattura,RagioneSociale,
cognomechiamante,CodiceConcessionario,data_chiamata,ora_chiamata,
id_concessionario from Tbt_Concessionario where CodiceConcessionario=('" & 
DoQuotes(TxtCodiceConces2.Text) & "')", objCon)
        ElseIf (txtStartDate.Text = "" And txtEndDate.Text = "" And 
TxtCodiceConces2.Text = "") Then
            sql2 = New OleDbDataAdapter("select
Numerofattura,RagioneSociale,
cognomechiamante,CodiceConcessionario,data_chiamata,ora_chiamata,
id_concessionario from Tbt_Concessionario  ", objCon)
        Else
        End If
        Dim querydataset As DataSet = New DataSet()
        Dim a As String
        sql2.Fill(querydataset)
        If querydataset.Tables(0).Rows.Count > 0 Then
            For i = 0 To querydataset.Tables(0).Rows.Count - 1
                querydataset.Tables(0).Rows(i).Item("ora_chiamata") = 
NumberToTime(querydataset.Tables(0).Rows(i).Item("ora_chiamata").ToString)
                querydataset.Tables(0).Rows(i).Item("data_chiamata") = 
NumberToDate(querydataset.Tables(0).Rows(i).Item("data_chiamata").ToString)
            Next i
            lblRicerca.Text = ""
            GridView1.Visible = True
            GridView1.DataSource = querydataset
            GridView1.DataBind()
        Else
            lblRicerca.Visible = True
            lblRicerca.Text = "Nessuna corrispondenza trovata"
            GridView1.Visible = False
        End If
    End Sub
    Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As 
System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.
RowCommand
        GridView1.Visible = True
        If e.CommandName = "Select" Then
            Dim intRiga As Integer = e.CommandArgument
 
            id_concessionario = Me.GridView1.DataKeys(intRiga).Value
            caricaCampi()
        End If
        If e.CommandName = "Page" Then
            bindata()
        End If
    End Sub
    Private Sub caricaCampi()
 
        Dim loginid As Integer
        loginid = 2
 
        Response.Redirect("Default.aspx?loginInfo=" + Convert.ToString
(loginid) + "&id_concessionario=" + Convert.ToString(id_concessionario))
    End Sub
    Protected Sub BtnAnnulla_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles BtnAnnulla.Click
        Response.Redirect("Default.aspx?")
    End Sub
    Protected Sub TxtConces_TextChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles TxtCodiceConces2.TextChanged
    End Sub
    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object,
ByVal e 
As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.
PageIndexChanging
        GridView1.PageIndex = e.NewPageIndex
        bindata()
    End Sub
    Protected Sub BtnPulisci_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles BtnPulisci.Click
        TxtCodiceConces2.Text = ""
        txtStartDate.Text = ""
        txtEndDate.Text = ""
        GridView1.Columns.Clear()
        GridView1.Visible = False
    End Sub
    Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles TxtCodiceConces2.TextChanged
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        Dim bb As String
        bb = Me.GridView1.DataKeyNames(0)
    End Sub
    Protected Sub GridView1_SelectedIndexChanging(ByVal sender As Object, 
ByVal e As System.Web.UI.WebControls.GridViewSelectEventArgs) Handles
GridView1.
SelectedIndexChanging
        Dim bb As String
        bb = Me.GridView1.DataKeyNames(0)
    End Sub
End Class
Imports System.Data
Imports System.Data.OleDb
Imports System.Diagnostics
Imports System.Configuration
Imports System
Partial Class RicercaConcessionario
    Inherits 
System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.
EventArgs) Handles Me.Load
        Page.Title = "Ricerca Codice Concessionario"
 
    End Sub
    Private Sub EseguiRicerca()
        Dim objCon As OleDbConnection
        Dim connectionstring As String = System.Configuration.
ConfigurationManager.ConnectionStrings("strCon").ConnectionString
        objCon = New OleDbConnection(connectionstring)
        Dim sSQL As String = String.Empty
        Dim sWHERE As String = String.Empty
        Dim sql2 As OleDbDataAdapter
        Dim TxtCodiceConces As String = Request.QueryString("loginInfoId")
        sSQL = "select  RagioneSociale as
CognomeChiamante,cod_concessionario 
as codiceconcessionario from AnagraficaConcessionari "
        If Me.TxtCodiceConces.Text.Length > 0 Then
            sWHERE &= " AND cod_concessionario like '%" &
Me.TxtCodiceConces.
Text.Replace("'", "''") & "%'"
        End If
        If Me.txtRagioneSociale.Text.Length > 0 Then
            sWHERE &= " AND RagioneSociale like '%" & Me.txtRagioneSociale.
Text.Replace("'", "''") & "%'"
        End If
        If sWHERE.Length > 0 Then
            sWHERE = " WHERE " & sWHERE.Substring(4)
        End If
        objCon.Open()
        sql2 = New OleDbDataAdapter(sSQL & sWHERE, objCon)
        Dim querydataset As DataSet = New DataSet()
        sql2.Fill(querydataset)
        If querydataset.Tables(0).Rows.Count > 0 Then
            GridView1.DataSource = querydataset
            GridView1.DataBind()
        Else
            lblRicerca.Visible = True
            lblRicerca.Text = "Nessuna corrispondenza trovata"
            GridView1.Visible = False
        End If
    End Sub
 
    Protected Sub cmdRicerca_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles cmdRicerca.Click
        EseguiRicerca()
    End Sub
    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e
As 
System.Web.UI.WebControls.GridViewRowEventArgs) Handles
GridView1.RowDataBound
        Dim oCmd As HtmlInputButton
        Dim oRiga As DataRowView
        Dim sCodice As String = String.Empty
        Dim sDescrizione As String = String.Empty
        oCmd = CType(e.Row.FindControl("cmdSelect"), HtmlInputButton)
        oRiga = CType(e.Row.DataItem, DataRowView)
        If Not oRiga Is Nothing Then
            sCodice = oRiga.Row("codiceconcessionario").ToString
            sDescrizione = oRiga.Row("CognomeChiamante").ToString
        End If
        If Not oCmd Is Nothing Then
            oCmd.Attributes.Add("onclick", "javascript:assegnaRiga('" & 
sCodice & "','" & sDescrizione & "');")
        End If
    End Sub
 
    Protected Sub GridView1_SelectedIndexChanging(ByVal sender As Object, 
ByVal e As System.Web.UI.WebControls.GridViewSelectEventArgs) Handles
GridView1.
SelectedIndexChanging
        GridView1.PageIndex = e.NewSelectedIndex
        EseguiRicerca()
    End Sub
    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object,
ByVal e 
As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.
PageIndexChanging
        GridView1.PageIndex = e.NewPageIndex
        EseguiRicerca()
    End Sub
End Class
Imports System.Data
Imports System.Data.OleDb
Imports System.Diagnostics
Imports System.Configuration
Partial Class RicercaConcessionarInserito
    Inherits 
System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.
EventArgs) Handles Me.Load
        Page.Title = "Ricerca Codice Concessionario"
    End Sub
    Private Sub EseguiRicerca()
        Dim objCon As OleDbConnection
        Dim connectionstring As String = System.Configuration.
ConfigurationManager.ConnectionStrings("strCon").ConnectionString
        objCon = New OleDbConnection(connectionstring)
        Dim sql2 As OleDbDataAdapter
        Dim sSQL As String = String.Empty
        Dim sWHERE As String = String.Empty
        Dim TxtCodiceConces As String = Request.QueryString("loginInfoId")
        sSQL = "select distinct RagioneSociale as CognomeChiamante,
codiceconcessionario as codiceconcessionario from Tbt_Concessionario "
        If Me.TxtCodiceConces.Text.Length > 0 Then
            sWHERE &= " AND codiceconcessionario like '%" & Me.
TxtCodiceConces.Text.Replace("'", "''") & "%'"
        End If
        If Me.txtRagioneSociale.Text.Length > 0 Then
            sWHERE &= " AND RagioneSociale like '%" & Me.txtRagioneSociale.
Text.Replace("'", "''") & "%'"
        End If
        If sWHERE.Length > 0 Then
            sWHERE = " WHERE " & sWHERE.Substring(4)
        End If
        objCon.Open()
        sql2 = New OleDbDataAdapter(sSQL & sWHERE, objCon)
        Dim querydataset As DataSet = New DataSet()
        sql2.Fill(querydataset)
        If querydataset.Tables(0).Rows.Count > 0 Then
            GridView1.Visible = True
            GridView1.DataSource = querydataset
            GridView1.DataBind()
        Else
            lblRicerca.Visible = True
            lblRicerca.Text = "Nessuna corrispondenza trovata"
            GridView1.Visible = False
        End If
    End Sub
    Protected Sub cmdRicerca_Click(ByVal sender As Object, ByVal e As
System.
EventArgs) Handles cmdRicerca.Click
        EseguiRicerca()
    End Sub
    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e
As 
System.Web.UI.WebControls.GridViewRowEventArgs) Handles
GridView1.RowDataBound
        Dim oCmd As HtmlInputButton
        Dim oRiga As DataRowView
        Dim sCodice As String = String.Empty
        Dim sDescrizione As String = String.Empty
        oCmd = CType(e.Row.FindControl("cmdSelect"), HtmlInputButton)
        oRiga = CType(e.Row.DataItem, DataRowView)
        If Not oRiga Is Nothing Then
            sCodice = oRiga.Row("codiceconcessionario").ToString
            sDescrizione = oRiga.Row("CognomeChiamante").ToString
        End If
        If Not oCmd Is Nothing Then
            oCmd.Attributes.Add("onclick", "javascript:assegnaRiga('" & 
sCodice & "','" & sDescrizione & "');")
        End If
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
    End Sub
    Protected Sub GridView1_SelectedIndexChanging(ByVal sender As Object, 
ByVal e As System.Web.UI.WebControls.GridViewSelectEventArgs) Handles
GridView1.
SelectedIndexChanging
        GridView1.PageIndex = e.NewSelectedIndex
        EseguiRicerca()
    End Sub
    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object,
ByVal e 
As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.
PageIndexChanging
        GridView1.PageIndex = e.NewPageIndex
        EseguiRicerca()
    End Sub
End Class
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Se il dataset � pieno allora binda i campi
altrimenti restituisce 
 "Nessuna corrispondenza trovata"
 
If querydataset.Tables(0).Rows.Count > 0 Then
            TxtTelefono1.Text =
querydataset.Tables(0).Rows(0).Item("desctelefono1").ToString()
            mette nel campo TxtTelefono1.Text il valore della colonna 
desctelefono1 e cosi via
            TxtTelefono2.Text =
querydataset.Tables(0).Rows(0).Item("desctelefono2").ToString()
            TxtCoDelchiama.Text =
querydataset.Tables(0).Rows(0).Item("CognomeChiamante").ToString()
            TxtRagSociCoConc.Text =
querydataset.Tables(0).Rows(0).Item("RagioneSociale").ToString()
            TxtRelChiamante.Text =
querydataset.Tables(0).Rows(0).Item("Relazione").ToString()
            TxtCodiceConces.Text =
querydataset.Tables(0).Rows(0).Item("CodiceConcessionario").ToString()
            TxtNumFattura.Text =
querydataset.Tables(0).Rows(0).Item("NumeroFattura").ToString()
            TxtDataChiamata.Text =
NumberToDate(querydataset.Tables(0).Rows(0).Item("data_chiamata").ToString())
+ " " +
NumberToTime(querydataset.Tables(0).Rows(0).Item("ora_chiamata").ToString())
            TxtNotaDescrittiva.Text =
querydataset.Tables(0).Rows(0).Item("Nota_descrittiva").ToString()
            lbl_idconcessionario.Text =
querydataset.Tables(0).Rows(0).Item("id_concessionario").ToString()
            ViewState("lbl_idconcessionario.Text") =
lbl_idconcessionario.Text
            ViewState("giorno") = TxtDataChiamata.Text
            SetReadonly()
            BtnSalva.Text = "Modifica"
        Else
            lblRicerca.Text = "Nessuna corrispondenza trovata"
        End If
Tom-Software ha scritto:


         End If
Tom-Software ha scritto:


In un ente pubblico, non dovete inserire persone di bassa cultura anche se
sono bravi informatici diventa un cortinaio,,,,un dottore non si permette
mai di offendere o di mettere delle nomee in giro come solo i delinquenti
senza coscienza sanno fare...non si permette di offendere una persona che
ha fatto tanti sacrifici per prendersi una laurea scientifica.....
solo i delinquenti non hanno coscienza...
la transazione ha scritto:
