以是否查找到记录作为条件判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "销售订单号" Then

If e.NewValue Is Nothing Then

e.DataRow("主订单号") = e.DataRow("订单号")

Else

Dim zw As DataRow

zw = DataTables("本表").Find("[订单号] = '" & e.NewValue & "'")（自身所在的这个表）

If zw IsNot Nothing Then

e.DataRow("主订单号") = e.DataRow("销售订单号")

Else

e.DataRow("主订单号") = e.DataRow("订单号")

End If

如果销售订单列空白，就等于本表的订单号，否则在订单号列找到，就等于这条记录所在的销售订单号，否则就等于订单号

主题：以是否查找到记录作为条件判断