Hola a todos.....me pueden ayudar porfavor cone ste error!!!
Esta claro pero no se como solucionarlo... esta conectada a una bd access que tiene dos registros
Error de servidor en la aplicación '/segmante'.
--------------------------------------------------------------------------------
La columna '1' ya pertenece a DataTable.
Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.
Detalles de la excepción: System.Data.DuplicateNameException: La columna '1' ya pertenece a DataTable.
Error de código fuente:
Línea 49: DATEADD("d", 1 , diassum)
Línea 50: sinn = diassum
Línea 51: dt.Columns.Add(New DataColumn( h + 1 , GetType(String)))
Línea 52: dr(5) = dt.Rows(i).Item("HH")
Línea 53: 'dt.Rows.Add(dr)
Archivo de origen: C:\Inetpub\wwwroot\segmante\kk.aspx Línea: 51
y este es el codigo de la pagina
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Data" %>
<%@ Page Language="vb" Debug="true"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Function CreateDataSource() As ICollection
' Create sample data for the DataGrid control.
Dim dt As DataTable = New DataTable()
Dim dr As DataRow
'================================================= ===
'Rescato datos de la bd
Dim cnn As OleDbConnection
Dim cmd As OleDbDataAdapter
dim i, n, h As Integer
dim s As String
dim cntd as integer
dim diascal as date
dim diassum as date
dim sinn as date
s = "SELECT * FROM tabla_1_con ORDER BY [d]-[c] DESC;"
cnn = New OleDbConnection (ConfigurationSettings.appSettings("sm"))
cmd = New OleDbDataAdapter(s, cnn)
dt = New DataTable
cmd.Fill(dt)
n = dt.Rows.Count
'================================================= ===
' Populate the table with sample values.
If n = 0 then
Response.Write("<p>No hay registros.</p>")
Else
' Response.Write(n.ToString & " registros hallados.<br>")
For i = 0 To n - 1
dr = dt.NewRow()
dr(0) = dt.Rows(i).Item("A")
dr(1) = dt.Rows(i).Item("b")
dr(2) = dt.Rows(i).Item("c")
dr(3) = dt.Rows(i).Item("d")
dr(4) = dt.Rows(i).Item("dias")
cntd = dt.Rows(i).Item("dias")
diascal = dt.Rows(i).Item("c")
dt.Rows.Add(dr)
If cntd > 0 Then
For h = 0 To cntd -1
' dr = dt.NewRow()
' Define the columns of the table.
DATEADD("d", h , diassum)
DATEADD("d", 1 , diassum)
sinn = diassum
dt.Columns.Add(New DataColumn( h + 1 , GetType(String)))
dr(5) = dt.Rows(i).Item("HH")
'dt.Rows.Add(dr)
Next h
End If
Next
End If
Dim dv As DataView = New DataView(dt)
Return dv
End Function
Sub Item_Bound(ByVal sender As Object, ByVal e As DataGridItemEventArgs)
On Error Resume Next 'puede que la fecha de necesidad no est‚ introducida
e.Item.Cells(1).Visible = False
e.Item.Cells(5).Visible = False
e.Item.Cells(0).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(1).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(2).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(3).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(4).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(2).Text = CDate(e.Item.Cells(2).Text).ToString("dd/MM/yyyy") 'Fechas
e.Item.Cells(3).Text = CDate(e.Item.Cells(3).Text).ToString("dd/MM/yyyy") 'Fechas
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
' Load sample data only once, when the page is first loaded.
If Not IsPostBack Then
ItemsGrid.DataSource = CreateDataSource()
ItemsGrid.DataBind()
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title>P gina sin t*tulo</title>
</head>
<body>
<form id="form1" runat="server">
<asp:DataGrid id="ItemsGrid" runat="server" BorderColor="black" BorderWidth="1" CellPadding="3" ShowFooter="true" OnItemDataBound="Item_Bound">
<HeaderStyle BackColor="#00aaaa"> </HeaderStyle>
<FooterStyle BackColor="#00aaaa"></FooterStyle>
</asp:DataGrid>
</form>
</body>
</html>
De ante mano GRacias
