.net2003 datagrid中 chekbox单选

 

<script language="javascript"> 
    Function SetCheckBoxState()function SetCheckBoxState()
　　 {
　　 var dom=document.all;
　　 var el=event.srcElement;
　　 if(el.tagName=="INPUT"&&el.type.toLowerCase()=="checkbox")
　　 {
　　 for(i=0;i<dom.length;i++)
　　 {
　　 if(dom[i].tagName=="INPUT"&&dom[i].type.toLowerCase()=="checkbox")
　　 {
　　 dom[i].checked=false;
　　 }
　　 }
　　 }
　　 el.checked=!el.checked;
　　 }
    </script>

 

 Private Sub dg_saledata_ItemDataBound()Sub dg_saledata_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dg_saledata.ItemDataBound
        If e.Item.ItemIndex < 0 Then
            Exit Sub
        End If
        If (e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem) Then
            Dim cbx As CheckBox = DirectCast(e.Item.FindControl("chkExport"), CheckBox)
            cbx.Attributes.Add("OnClick", "SetCheckBoxState()")
            e.Item.Attributes.Add("onmouseover", "currentcolor=this.style.backgroundColor;this.style.backgroundColor='48d1cc'")
            e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor=currentcolor")
        End If
    End Sub