اشکال این کد چیه داده ترو میکنه ولی فالس نمی شه

[rezafars]

من می خوام با چک باس ترو و فالس بودن رکورد را در دیتاگرید تغییر بدم ولی با این مشکل مواجه شدم

[Keramatifar]

کدوم مشکل من که هیچی نمیبینم:متعجب:

[rezafars]

Dim chek As WebControls.CheckBox
Dim DBLC As DataBoundLiteralControl
Dim strIDs As String = ""
Dim c, d, b As Boolean
Dim DGItem As DataGridItem
For Each DGItem In DataGrid1.Items
chek = CType(DGItem.FindControl("chek"), WebControls.CheckBox)
c = chek.Checked
If c = True Then
DBLC = DGItem.FindControl("Itemc").Controls(0)
strIDs += DBLC.Text & ","
d = True
sq = "update prod set shp=" + d.ToString + " Where id IN (" & strIDs.Substring(0, strIDs.LastIndexOf(",")) & ")"
datasa(sq)
ElseIf c = False Then
d = False
sq = "update prod set shp=" + d.ToString + " Where id IN (" & strIDs.Substring(0, strIDs.LastIndexOf(",")) & ")"
datasa(sq)
Else
sq = "update prod set shp=" + c.ToString + " Where id IN (" & strIDs.Substring(0, strIDs.LastIndexOf(",")) & ")"
datasa(sq)
End If
Next
con.Close()

[babi_wd]

لطفا کد ها رو در تگ کد قرار بدین تا خونده بشه
از این چی سر دربیاریم؟؟؟!!!