DataRowAdded代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DataRowAdded代码

共有2123人关注过本帖树形打印复制链接主题：DataRowAdded代码

wyz20130512

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

等级：六尾狐帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2016/11/6 20:53:00 [显示全部帖子]

Dim r As DataRow = e.DataRow

Dim b As DataRow = DataTables("客户资料").Find("[联系电话] = '" & r("发件电话") & "'")

If b IsNot Nothing Then

Dim t As String = b("客户名称")

MessageBox.Show(t)

End If

是判断一下是否找到满足条件的行。

主题：DataRowAdded代码