Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]后台数据填充错位


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

主题：[求助]后台数据填充错位
帅哥哟，离线，有人找我吗？
liuyixin662
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：4414 威望：0 精华：0 注册：2012/11/28 16:03:00 		[求助]后台数据填充错位  发帖心情 Post By：2016/11/18 12:01:00 [只看该作者]

查询后台数据填充错位

请各位大师帮助修改一下查询按钮代码
 回到顶部
帅哥哟，离线，有人找我吗？
liuyixin662
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：4414 威望：0 精华：0 注册：2012/11/28 16:03:00 		  发帖心情 Post By：2016/11/18 12:02:00 [只看该作者]

查询错位
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:查询.zip
 回到顶部
帅哥哟，离线，有人找我吗？
liuyixin662
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：4414 威望：0 精华：0 注册：2012/11/28 16:03:00 		  发帖心情 Post By：2016/11/18 12:02:00 [只看该作者]

错位
图片点击可在新窗口打开查看此主题相关图片如下：错位.bmp
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/18 14:48:00 [只看该作者]

Dim f As New Filler
f.SourceTable = dt
f.SourceCols = "开piao_日期,开piao_号码" '指定数据来源列
f.DataTable = DataTables("应付款尚未收piao明细表")
f.DataCols = "开piao_日期,开piao_号码" '指定数据接收列
f.Append = False
f.Fill() '填充数据
 回到顶部
帅哥哟，离线，有人找我吗？
liuyixin662
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：4414 威望：0 精华：0 注册：2012/11/28 16:03:00 		  发帖心情 Post By：2016/11/18 15:41:00 [只看该作者]

老师你好,在应付款采购收piao明细表录入数据时,填充的数据与明细不符,条件是 对应到相应的结算明细号,月份,供应商编号行.

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/18 16:11:00 [只看该作者]

那就不能用填充了，按相应的结算明细号,月份,供应商编号行查找到对应的行再赋值

 回到顶部
帅哥哟，离线，有人找我吗？
liuyixin662
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：4414 威望：0 精华：0 注册：2012/11/28 16:03:00 		  发帖心情 Post By：2016/11/18 16:23:00 [只看该作者]

老师问题解决了,应取消下列代码
Dim f As New Filler
f.SourceTable = dt
f.SourceCols = "开piao_日期,开piao_号码" '指定数据来源列
f.DataTable = DataTables("应付款尚未收piao明细表")
f.DataCols = "开piao_日期,开piao_号码" '指定数据接收列
f.Append = False
f.Fill() '填充数据

 

增加下列代码

            For Each dr As DataRow In drs_out
        If DataTables("应付款尚未收piao明细表").find("结算明细号 = '" & dr("结算明细号") & "' And 供应商名称 = '" & dr("供应商名称") & "'") Is Nothing Then
            Dim nr = Tables("应付款尚未收piao明细表").AddNew
            nr("材料编号") = dr("材料编号")
            nr("材料名称") = dr("材料名称")
            nr("规格型号") = dr("规格型号")
            nr("结算明细号") = dr("结算明细号")
            nr("供应商名称") = dr("供应商名称")
            nr("供应商编号") = dr("供应商编号")
      增加      nr("月份") = dr("月份")
     增加        nr("开piao_号码") = dr("开piao_号码")
        End If
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
liuyixin662
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：4414 威望：0 精华：0 注册：2012/11/28 16:03:00 		  发帖心情 Post By：2016/11/19 6:08:00 [只看该作者]

问题还是存在,不能获取相应的fa piao号码
 回到顶部
帅哥哟，离线，有人找我吗？
liuyixin662
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：534 积分：4414 威望：0 精华：0 注册：2012/11/28 16:03:00 		  发帖心情 Post By：2016/11/19 6:10:00 [只看该作者]

按相应的结算明细号,月份,供应商编号行查找到对应的行再赋值,后台代码如何写

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/19 9:43:00 [只看该作者]

Dim cmd As New SQLCommand
cmd.CommandText = "SｅLECT * From {应付款采购收piao明细表} WHERE 供应商编号 NOT  IN (SｅLECT DISTINCT 供应商编号  From {应付款尚未收piao明细表})"
Dim dt As DataTable = cmd.ExecuteReader()
Dim dr100 As DataRow
For Each dr99 As DataRow In dt.DataRows
    dr100 = DataTables("应付款尚未收piao明细表").Find("结算明细号='" & dr99("结算明细号") & "' and 月份='" & dr99("月份") & "' and 供应商编号='" & dr99("供应商编号") & "'")
    If dr100 IsNot Nothing Then
        dr100("开piao_日期") = dr99("开piao_日期")
        dr100("开piao_号码") = dr99("开piao_号码")
    End If
Next

'Dim f As New Filler
'f.SourceTable = dt
'f.SourceCols = "开piao_日期,开piao_号码" '指定数据来源列
'f.DataTable = DataTables("应付款尚未收piao明细表")
'f.DataCols = "开piao_日期,开piao_号码" '指定数据接收列
'f.Append = False
'f.Fill() '填充数据
'
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询