Foxtable(狐表)用户栏目专家坐堂 → 按顺序添加。


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

主题:按顺序添加。

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


加好友 发短信
等级:二尾狐 帖子:512 积分:3919 威望:0 精华:0 注册:2012/6/26 13:23:00
按顺序添加。  发帖心情 Post By:2017/10/19 9:30:00 [只看该作者]

        Dim Cols1() As String = {"工序","流程"}
        Dim Cols2() As String = {"工序","流程"}
        For Each dr1 As DataRow In DataTables("产品生产流程").Select("名称=  '" & dr6("流程") &"' And 状态=  '" & "是" &"'")
            Dim dr2 As DataRow = DataTables("工艺要求表").AddNew()
            For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
            dr2("规格型号") = dr6("规格型号")
            dr2("产品编号") = dr6("产品编号")
            dr2("拟制人") = _UserName
            dr2("日期") = Date.Today()
            Next
        Next

这个A表自动添加到B表,顺序乱了,没有按顺序添加,要如何设置才可以。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/19 12:26:00 [只看该作者]

For Each dr1 As DataRow In DataTables("产品生产流程").Select("名称='" & dr6("流程") &"' And 状态='是'", "_Sortkey, _Identify")

 回到顶部