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


  共有2039人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望: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
Next

 回到顶部