如果【OLT设备VLAN使用清单表】中存在与【集客业务工单清单表】当前行【OLT网元IP地址】【内层VLAN】相同的内容时，弹出提示；否则增加行并填入内容。一下命令该怎么修改？
Dim r As Row = Tables("集客业务工单清单表").current
Dim idx As DataRow = DataTables("OLT设备VLAN使用清单表").sqlFind(" OLT网元IP地址 ='" & r("IP") & "' and 内层VLAN ='" & r("内层VLAN") & "' ")
'Dim idx As Integer = Tables("OLT设备VLAN使用清单表").FindRow(" OLT网元IP地址 ='" & r("OLT网元IP地址") & "' and 内层VLAN ='" & r("区域名称") & "' ")
If idx IsNot Nothing Then
Dim nd As DataRow = DataTables("OLT设备VLAN使用清单表").AddNew
nd("OLT网元IP地址") = r("OLT网元IP地址")
nd("外层VLAN") = r("外层VLAN")
nd("内层VLAN") = r("内层VLAN")
nd("客户名称") = r("管线ONU名称")
MessageBox.show("完成【OLT设备VLAN使用清单表】数据增加工作!!!", "非常关键提醒")
Dim Result As DialogResult
Result = MessageBox.Show( "确定保存【OLT设备VLAN使用清单表】:请按 [是]" & vbcrlf & "放弃保存修改:请按 [否]", "非常关键提醒", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If Result = DialogResult.Yes Then
DataTables("OLT设备VLAN使用清单表").Save()
Else
End If
Else
MessageBox.show("【OLT设备VLAN使用清单表】存在相同数据!!!", "非常关键提醒")
End If
[此贴子已经被作者于2018/4/16 17:30:40编辑过]
加好友 
发短信
Post By：2018/4/16 11:13:00 [显示全部帖子]
