以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 按条件进行加载数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74417)
--  作者：wumingrong1
--  发布时间：2015/9/10 14:25:00
--  [求助] 按条件进行加载数据
想在窗口中的AfterLoad中写命令、实现以下功能：


if 【表B】中的"IP地址"列存在与【表A】的当前行相同的内容  then


在【表B】筛选出与【表A】当前行的"IP地址"相同的行


else


Tables("表B").AddNew()

将【表A】当前行的"IP地址"填写到【表B】新增行的"IP地址"单元格中



end if
--  作者：Hyphen
--  发布时间：2015/9/10 14:53:00
--  

 

Dim ip As String =  Tables("表A").Current("IP地址")


Tables("表B").Filter = " IP地址 = \'" & ip & "\'"


If Tables("表B").Rows.Count  = 0 Then
    Dim dr As Row = Tables("表B").AddNew()
    dr("IP地址") = ip
End If
--  作者：大红袍
--  发布时间：2015/9/10 15:21:00
--  

楼主，你学这么长时间了，基本代码都不会写啊。

 

去看视频教程 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187