- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码原来在dotacolchanging不知道怎么修改成按钮点击触发 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108819)
-- 发布时间：2017/10/30 13:54:00
-- 代码原来在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
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
-- 发布时间：2017/10/30 14:23:00
--
dim dr as datarow = tables("表A").current.datarow
Dim fdr As DataRow = DataTables("续费表").Find("设备ID号 = \'" & dr("设备ID号") & "\'")
If fdr Is Nothing Then
dr("是否使用")= False
Else
dr("是否使用")= True
End If