If CType(dgtDrawTemp.Items(i).FindControl("chkSelected"), CheckBox).Checked Then
修改为:
If CType(dgtDrawTemp.Items(i).cell(chkselected所在dgtdrawtemp的列数).FindControl("chkSelected"), CheckBox).Checked Then
修改为:
If CType(dgtDrawTemp.Items(i).cell(chkselected所在dgtdrawtemp的列数).FindControl("chkSelected"), CheckBox).Checked Then
If CType(dgtDrawTemp.Items(i).Cells(0).FindControl("chkSelected"), CheckBox).Checked Then我的chkSelected是第一列。但还是只执行else部分??
dim chk as checkbox
chk=ctype(dgtDrawTemp.Items(i).cell(0).FindControl("chkSelected"), checkbox)
if chk.checked= true then
....
else
....
end if
调试看看没有有找到那个CHECKBOX
我改成这样,为什么还是只执行else部分??????
For i = 0 To dgtDrawTemp.Items.Count - 1
If CType(dgtDrawTemp.Items(i).FindControl("chkSelected"), CheckBox).Checked Then '判断是否选择了复选框
Response.Write("Checked")
strSQL = "UPDATE z_draw_temp SET flag='2',reject_='"
strSQL += strRe
strSQL += "' WHERE product_id='"
strSQL += objDataSetProductID.Tables(0).Rows(i).Item("product_id") + "' AND "
strSQL += "ctrl_no ='"
strSQL += Request("message")
strSQL += "'"
strFlag = objWebform1.UpdateData(strSQL)
Else
Response.Write("NoChecked")
strSQL = "UPDATE z_draw_temp SET flag='3',reject_='"
strSQL += strRe
strSQL += "' WHERE product_id='"
strSQL += objDataSetProductID.Tables(0).Rows(i).Item("product_id") + "' AND "
strSQL += "ctrl_no ='"
strSQL += Request("message")
strSQL += "'"
strFlag = objWebform1.UpdateData(strSQL)
End If
Next