[求助] 按条件进行加载数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 按条件进行加载数据

共有2452人关注过本帖树形打印复制链接主题：[求助] 按条件进行加载数据

wumingrong1

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 按条件进行加载数据 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：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

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/10 15:21:00 [只看该作者]

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

主题：[求助] 按条件进行加载数据