- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]后台数据填充错位 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93015)
-- 发布时间：2016/11/18 12:01:00
-- [求助]后台数据填充错位
查询后台数据填充错位
请各位大师帮助修改一下查询按钮代码
-- 发布时间：2016/11/18 12:02:00
--
查询错位
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:查询.zip |
-- 发布时间：2016/11/18 12:02:00
--
错位
此主题相关图片如下：错位.bmp
-- 发布时间：2016/11/18 14:48:00
--
Dim f As New Filler
f.SourceTable = dt
f.SourceCols = "开票_日期,开票_号码" \'指定数据来源列
f.DataTable = DataTables("应付款尚未收票明细表")
f.DataCols = "开票_日期,开票_号码" \'指定数据接收列
f.Append = False
f.Fill() \'填充数据
-- 发布时间：2016/11/18 15:41:00
--
老师你好,在应付款采购收票明细表录入数据时,填充的数据与明细不符,条件是 对应到相应的结算明细号,月份,供应商编号行.
-- 发布时间：2016/11/18 16:11:00
--
那就不能用填充了，按相应的结算明细号,月份,供应商编号行查找到对应的行再赋值
-- 发布时间：2016/11/18 16:23:00
--
老师问题解决了,应取消下列代码
Dim f As New Filler
f.SourceTable = dt
f.SourceCols = "开票_日期,开票_号码" \'指定数据来源列
f.DataTable = DataTables("应付款尚未收票明细表")
f.DataCols = "开票_日期,开票_号码" \'指定数据接收列
f.Append = False
f.Fill() \'填充数据
增加下列代码
For Each dr As DataRow In drs_out
If DataTables("应付款尚未收票明细表").find("结算明细号 = \'" & dr("结算明细号") & "\' And 供应商名称 = \'" & dr("供应商名称") & "\'") Is Nothing Then
Dim nr = Tables("应付款尚未收票明细表").AddNew
nr("材料编号") = dr("材料编号")
nr("材料名称") = dr("材料名称")
nr("规格型号") = dr("规格型号")
nr("结算明细号") = dr("结算明细号")
nr("供应商名称") = dr("供应商名称")
nr("供应商编号") = dr("供应商编号")
增加 nr("月份") = dr("月份")
增加 nr("开票_号码") = dr("开票_号码")
End If
Next
-- 发布时间：2016/11/19 6:08:00
--
问题还是存在,不能获取相应的发票号码
-- 发布时间：2016/11/19 6:10:00
--
按相应的结算明细号,月份,供应商编号行查找到对应的行再赋值,后台代码如何写
-- 发布时间：2016/11/19 9:43:00
--
Dim cmd As New SQLCommand
cmd.CommandText = "SｅLECT * From {应付款采购收票明细表} WHERE 供应商编号 NOT IN (SｅLECT DISTINCT 供应商编号 From {应付款尚未收票明细表})"
Dim dt As DataTable = cmd.ExecuteReader()
Dim dr100 As DataRow
For Each dr99 As DataRow In dt.DataRows
dr100 = DataTables("应付款尚未收票明细表").Find("结算明细号=\'" & dr99("结算明细号") & "\' and 月份=\'" & dr99("月份") & "\' and 供应商编号=\'" & dr99("供应商编号") & "\'")
If dr100 IsNot Nothing Then
dr100("开票_日期") = dr99("开票_日期")
dr100("开票_号码") = dr99("开票_号码")
End If
Next
\'Dim f As New Filler
\'f.SourceTable = dt
\'f.SourceCols = "开票_日期,开票_号码" \'指定数据来源列
\'f.DataTable = DataTables("应付款尚未收票明细表")
\'f.DataCols = "开票_日期,开票_号码" \'指定数据接收列
\'f.Append = False
\'f.Fill() \'填充数据
\'