PDA

View Full Version : checkbox در datagrid



rezafars
چهارشنبه 05 اردیبهشت 1386, 13:22 عصر
با سلام
من می خوام داخل datagrid از checkbox استفاده کنم و در بانک هم یک فیلد منطقی ایجاد کنم و با بازیابی اطلاعات بتوانم با تغییر چک باکس اطلاعات بانک فالس و ترو را تغییر دهم در ضمن من این کد را با asp.net 2003 vb.net میخوام مرسی

fereshte22
چهارشنبه 05 اردیبهشت 1386, 14:49 عصر
سلام
این کد را امتحان کنید.در ضمن در 2003 به جای gridview از datagrid استفاده کنید.

این کد به این صورت عمل میکند که یک دکمه edit در grid ایجاد میکند که با ان میتوانیم false و true بودن chekbox را تغییر دهیم .نمیدونم شما همین را میخواستید؟


<asp:GridViewID="GridView2"runat="server"AutoGenerateColumns="False"DataKeyNames="number"AutoGenerateEditButton="True"DataSourceID="SqlDataSource2">
<Columns>
<asp:TemplateFieldHeaderText="active"SortExpression="active">
<EditItemTemplate>
<asp:CheckBoxID="CheckBoxactive1"runat="server"Checked=' <%# Bind("active") %> '/>
</EditItemTemplate>
<InsertItemTemplate>
<asp:CheckBoxID="CheckBoxactive2"runat="server"Checked=' <%# Bind("active") %> '/>
</InsertItemTemplate>
<ItemTemplate>
<asp:CheckBoxID="CheckBoxactive3"runat="server"Checked=' <%# Bind("active") %> '
Enabled="False"/>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>

rezafars
چهارشنبه 05 اردیبهشت 1386, 16:02 عصر
مرسی از راهنمایی شما

rezafars
چهارشنبه 05 اردیبهشت 1386, 16:06 عصر
البته من بیشتر کد این برنامه رو می خوام
For Each DGItem In DataGrid1.Items
chek = CType(DGItem.FindControl("chek"), WebControls.CheckBox)
If chek.Checked = True Then
d = True
sq = "update prod set shp=" + d.ToString + ""
datasa(sq)
Else
d = False
sq = "update prod set shp=" + d.ToString + ""
datasa(sq)

End If
Next

ولی این کد یه طوری ایراد دارره

rezafars
چهارشنبه 05 اردیبهشت 1386, 16:42 عصر
من کدشو پیدا کردم خیلی وقتمو گرفت ولی کارم راه افتاد

Dim chek As WebControls.CheckBox
Dim DBLC As DataBoundLiteralControl
Dim strIDs As String = ""
Dim c, d As Boolean
Dim DGItem As DataGridItem



For Each DGItem In DataGrid1.Items
chek = CType(DGItem.FindControl("chek"), WebControls.CheckBox)

If chek.Checked Then
c = True
DBLC = DGItem.FindControl("Itemc").Controls(0)
strIDs += DBLC.Text & ","
d = False
Else
d = True
End If
sq = "update prod set shp=" + d.ToString + " Where id IN (" & strIDs.Substring(0, strIDs.LastIndexOf(",")) & ")"
datasa(sq)

Next

con.Close()