表的datecolChanged 事件：
If e.DataCol.Name = "绑定标志" Then
If e.DataRow("资产类型")="电脑" And e.DataRow.IsNull("资产卡片号")=False And e.DataRow("资产卡片号")<>"N" Then
Dim dr As DataRow = DataTables("电脑终端管理表").SQLFind("资产卡片号='" & e.DataRow("资产卡片号") & "'")
If dr Is Nothing Then
e.DataRow("绑定标志")=False
' e.Style = "服务器被删除"
Else
e.DataRow("绑定标志")=True
End If
Else If e.DataRow("资产类型")="其它" And e.DataRow.IsNull("资产卡片号")=False And e.DataRow("资产卡片号")<>"N" Then
Dim dr As DataRow = DataTables("其它终端管理表").SQLFind("资产卡片号='" & e.DataRow("资产卡片号") & "'")
If dr Is Nothing Then
e.DataRow("绑定标志")=False
' e.Style = "服务器被删除"
Else
e.DataRow("绑定标志")=True
End If
Else If e.DataRow("资产类型")="交换机" And e.DataRow.IsNull("资产卡片号")=False And e.DataRow("资产卡片号")<>"N" Then
Dim dr As DataRow = DataTables("网络交换机管理表").SQLFind("资产卡片号='" & e.DataRow("资产卡片号") & "'")
If dr Is Nothing Then
e.DataRow("绑定标志")=False
' e.Style = "服务器被删除"
Else
e.DataRow("绑定标志")=True
End If
Else If e.DataRow("资产类型")="服务器" And e.DataRow.IsNull("资产卡片号")=False And e.DataRow("资产卡片号")<>"N" Then
Dim dr As DataRow = DataTables("服务器管理表").SQLFind("资产卡片号='" & e.DataRow("资产卡片号") & "'")
If dr Is Nothing Then
e.DataRow("绑定标志")=False
' e.Style = "服务器被删除"
Else
e.DataRow("绑定标志")=True
End If
End If
End If '绑定标志
表的drawcell事件中：
If e.Row("绑定标志") = False Then '如果提醒间隔超出设定,且任务没完成,也没关闭,则刷红
e.Style = "资产未绑定"
End If
表的窗口中增加一按钮，代码为：
Dim Result As DialogResult
Result = MessageBox.Show("重置列将会耗时较长,是否确定重置?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables("资产管理表").DataCols("绑定标志").RaiseDataColChanged() '重置列
End If
[此贴子已经被作者于2019/1/17 10:06:08编辑过]
加好友 
发短信
Post By：2019/1/17 10:06:00 [只看该作者]
