Foxtable(狐表)用户栏目专家坐堂 → [求助]数据读入问题


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

主题:[求助]数据读入问题

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


加好友 发短信
等级:幼狐 帖子:60 积分:525 威望:0 精华:0 注册:2018/11/1 21:27:00
[求助]数据读入问题  发帖心情 Post By:2018/11/19 21:02:00 [显示全部帖子]

老师,请指教,

附件中拉板资料是有订单拉板的部分列资料读取过来,但是我是菜鸟,不知道如何读取,拉板中客户编码,要由订单编号决定,有订单读取过来,本来想用查询,但是查询不能编辑,我需要再拉板表中处理完成情况,如果是否完成选择“TURE",自动生成完成时间,如何编程?谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:订单.table


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


加好友 发短信
等级:幼狐 帖子:60 积分:525 威望:0 精华:0 注册:2018/11/1 21:27:00
  发帖心情 Post By:2018/11/19 22:05:00 [显示全部帖子]

老师,拉板资料是从订单拉板的部分列资料读取过来,但是我是菜鸟,不知道如何读取过来,请指教!谢谢!

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


加好友 发短信
等级:幼狐 帖子:60 积分:525 威望:0 精华:0 注册:2018/11/1 21:27:00
  发帖心情 Post By:2018/11/20 21:21:00 [显示全部帖子]

老师,请教,我的意思是数据填充问题,FILLER

当切换到拉板时,用订单拉板数据去填充拉板表,已经填充的生成一个标记,(如锁定行),

再次切换到拉板时,只填充订单拉板新增加的数据。


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


加好友 发短信
等级:幼狐 帖子:60 积分:525 威望:0 精华:0 注册:2018/11/1 21:27:00
  发帖心情 Post By:2018/11/22 21:18:00 [显示全部帖子]

老师,我不是要这样的效果,我不想拉板表与订单拉板同步更新,因为订单拉板表是业务开开单用的,拉板表是给生产用的,

生产每天会对拉板表进行处理,设置完成,希望是用依条件填充数据主要是已经填充个的数据不用再次填充,即只有新数据才填充,

并且填充再拉板表的原有数据下面,请指教,谢谢!


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


加好友 发短信
等级:幼狐 帖子:60 积分:525 威望:0 精华:0 注册:2018/11/1 21:27:00
  发帖心情 Post By:2018/11/23 20:33:00 [显示全部帖子]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:订单1.table


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


加好友 发短信
等级:幼狐 帖子:60 积分:525 威望:0 精华:0 注册:2018/11/1 21:27:00
  发帖心情 Post By:2018/11/23 20:41:00 [显示全部帖子]

老师,参考帮助文件,但是出差,在项目事件MainTableChanged中加入了:我是项目内部数据源,不是外部数据源,如何改代码,谢谢!


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


加好友 发短信
等级:幼狐 帖子:60 积分:525 威望:0 精华:0 注册:2018/11/1 21:27:00
  发帖心情 Post By:2018/11/23 20:45:00 [显示全部帖子]

 

Dim cmd  As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * Fro m {订单拉板}"

dt = cmd.ExecuteReader()
For Each dr As  DataRow  In dt.DataRows
    If  DataTables("拉板1").Find("订单编号= '" & dr("订单编号") & "'") Is  Nothing  Then
        Dim nr  As  DataRow =  DataTables("拉板1").AddNew()
        For  Each dc  As  DataCol  In dt.DataCols
            nr(dc.name) = dr(dc.name)
        Next
    End  If


Next


 回到顶部