表的AfterLoadTableSetting事件:
With e.Table
If .Name = "表A" Then
For Each r As Row In .Rows
If r("第一列") = "已退网" Then
r.Remove()
End If
Next
End If
End With
退网车辆按钮代码:
With DataTables("表A")
Dim dr As DataRow = .Find("第一列 = '已退网'")
If dr Is Nothing Then
.AppendLoad("第一列 = '已退网'")
End If
End With
[此贴子已经被作者于2017/3/7 13:51:32编辑过]