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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  编号唯一值不重复写入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102780)

--  作者：lsyunying
--  发布时间：2017/6/25 19:03:00
--  编号唯一值不重复写入

For Each r As Row In e.Form.Controls("table1").Table.Rows
Dim c As WinForm.Label = e.Form.Controls("Label9")
Dim d2 As Row = Tables("订单明细").AddNew
d2("客户文件名")= r("客户文件名")
d2("客户名称") =c.Text
d2("订单编号") = r("订单id")
Next

如果订单编号 = 窗口表订单id 就不给写入到订单明细里，应该怎么写呀？

--  作者：有点蓝
--  发布时间：2017/6/26 8:21:00
--
这个意思？

Dim c As WinForm.Label = e.Form.Controls("Label9")
For Each r As Row In e.Form.Controls("table1").Table.Rows
If r("订单id") <> c.Text
Dim d2 As Row = Tables("订单明细").AddNew
d2("客户文件名")= r("客户文件名")
d2("客户名称") =c.Text
d2("订单编号") = r("订单id")
End If
Next

--  作者：lsyunying
--  发布时间：2017/6/29 16:30:00
--
不是这个意思。是窗口表里面的内容不重复写入到订单明细表里

--  作者：有点色
--  发布时间：2017/6/29 16:35:00
--
Dim c As WinForm.Label = e.Form.Controls("Label9")
For Each r As Row In e.Form.Controls("table1").Table.Rows
    Dim d2 As DataRow = DataTables("订单明细").Find("订单编号 = \'" & r("订单编号"） & "\'")
    If d2 Is Nothing Then d2 = DataTables("订单明细").AddNew

    d2("客户文件名")= r("客户文件名")
    d2("客户名称") =c.Text
    d2("订单编号") = r("订单id")
Next