代码原来在dotacolchanging不知道怎么修改成按钮点击触发 Post By:2017/10/30 13:54:00 [显示全部帖子]
代码如下 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