主题：代码原来在dotacolchanging不知道怎么修改成按钮点击触发

代码如下
If e.DataCol.Name = "设备ID号" Then 
     Dim fdr As DataRow = DataTables("续费表").Find("设备ID号 = '" & e.DataRow("设备ID号") & "'")
     If fdr Is Nothing Then 
        e.DataRow("是否使用")= False
        Else
        e.DataRow("是否使用")= True
     End If 
 End If