Foxtable(狐表)用户栏目专家坐堂 → [求助] 标间条件批量增加行


  共有1631人关注过本帖树形打印复制链接

主题:[求助] 标间条件批量增加行

帅哥哟,离线,有人找我吗?
wumingrong1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 标间条件批量增加行  发帖心情 Post By:2018/4/16 11:13:00 [只看该作者]

以下命令、如果我想加一个判断,就是如果【OLT设备VLAN使用清单表】中已经存在与准备增加的行的【内层VLAN】相同的数据时;就不添加改行。命令该怎么修改?

比如:【OLT设备VLAN使用清单表】中的【内层VLAN】列已经有一行的数字为“6”;那么就只增加7行(1、2、3、4、5、7、8)


Dim r As Row = Tables("OLT设备VLAN规划清单表").current

If r("OLT网元名称") = ""  Or  r("业务类型") = ""  Or   r("外层VLAN") = ""  Or   r("内层VLAN起始") = ""  Or   r("内层VLAN截止") = ""   Then
    MessageBox.Show("请填写完整【OLT网元名称】【业务类型】【外层VLAN】【内层VLAN起始】【内层VLAN截止】内容!!!", "非常关键提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
    For i As Integer = 1  To   8
          
        ' For Each r1 As Row In Tables("OLT设备VLAN使用清单表").Rows
        '    If r1("内层VLAN") <> Format(i) Then

        Dim ndr As DataRow = DataTables("OLT设备VLAN使用清单表").AddNew
        ndr("区域名称") = r("区域名称")
        ndr("区域名称") = r("区域名称")
        ndr("OLT网元名称") = r("OLT网元名称")
        ndr("OLT网元IP地址") = r("OLT网元IP地址")
        ndr("OLT设备厂家") = r("OLT设备厂家")
        ndr("业务类型") = r("业务类型")
        ndr("外层VLAN") = r("外层VLAN")
        ndr("内层VLAN") = Format(i)
        
        '   Else
        '   End  If
        
        'Next
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 11:25:00 [只看该作者]

For i As Integer = 1 To 8
    Dim idx As Integer = Tables("OLT设备VLAN使用清单表").FindRow("内层VLAN='" & i & "'")
    If idx < 0 Then
        Dim ndr As DataRow = DataTables("OLT设备VLAN使用清单表").AddNew
        ndr("区域名称") = r("区域名称")
        ndr("区域名称") = r("区域名称")
        ndr("OLT网元名称") = r("OLT网元名称")
        ndr("OLT网元IP地址") = r("OLT网元IP地址")
        ndr("OLT设备厂家") = r("OLT设备厂家")
        ndr("业务类型") = r("业务类型")
        ndr("外层VLAN") = r("外层VLAN")
        ndr("内层VLAN") = i
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
wumingrong1
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2018/4/16 17:03:00 [只看该作者]

如果【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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 17:31:00 [只看该作者]

最基础的判断吧?

 

If idx Is Nothing Then

 

Else

 

End If


 回到顶部
帅哥哟,离线,有人找我吗?
wumingrong1
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2018/4/16 17:51:00 [只看该作者]

现在的情况是:【OLT设备VLAN使用清单表】中不存在与【集客业务工单清单表】当前行【OLT网元IP地址】【内层VLAN】相同的内容时,也会弹出提示( MessageBox.show("【OLT设备VLAN使用清单表】存在相同数据!!!", "非常关键提醒") )
Dim r As Row = Tables("集客业务工单清单表").current
Dim idx As DataRow = DataTables("OLT设备VLAN使用清单表").sqlFind(" OLT网元IP地址 ='" & r("IP") & "'  and  内层VLAN ='" & r("内层VLAN") & "' ")
If idx Is Nothing Then

 MessageBox.show("【OLT设备VLAN使用清单表】存在相同数据!!!", "非常关键提醒")

Else

    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名称")
    
    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

     
End If

[此贴子已经被作者于2018/4/16 17:51:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 17:53:00 [只看该作者]

Dim r As Row = Tables("集客业务工单清单表").current
Dim idx As DataRow = DataTables("OLT设备VLAN使用清单表").sqlFind(" OLT网元IP地址 ='" & r("IP") & "'  and  内层VLAN ='" & r("内层VLAN") & "' ")
If idx Is 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名称")
   
    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


 回到顶部