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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 编号唯一值不重复写入

共有2022人关注过本帖树形打印复制链接主题：编号唯一值不重复写入

lsyunying

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

加好友

发短信

等级：婴狐帖子：22 积分：248 威望：0 精华：0 注册：2017/4/11 0:39:00

编号唯一值不重复写入 发帖心情

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：106665 积分：542508 威望：0 精华：9 注册：2015/6/24 9:21:00

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

lsyunying

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

加好友

发短信

等级：婴狐帖子：22 积分：248 威望：0 精华：0 注册：2017/4/11 0:39:00

Post By：2017/6/29 16:30:00 [只看该作者]

不是这个意思。是窗口表里面的内容不重复写入到订单明细表里

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

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

下一主题 >> << 上一主题

主题：编号唯一值 不重复写入

主题：编号唯一值不重复写入