Foxtable(狐表) → 用户栏目 → 专家坐堂 → 更新数据


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

主题：更新数据
帅哥哟，离线，有人找我吗？
北狐
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		更新数据  发帖心情 Post By：2019/8/14 10:56:00 [只看该作者]

Dim cwrb As New SQLCommand   '可复核的销售单号
Dim rb As DataTable
cwrb.CommandText = " 从内部表查询按条件过滤出可复核的销售单号"
rb = cwrb.ExecuteReader()


Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C  '数据库为SQL2008
cmd.CommandText = " 查询 smartID,checked From {销售单} Where smartID = (" & rb & ")" '注意要包括主键列
dt = cmd.ExecuteReader(True) '注意可选参数设置为True
For Each dr As DataRow In dt.DataRows
    dr("checked") = True
Next
dt.Save()

以上代码执行错误
需求为：根据内部表查询出来可复核的销售单号，更新后台数据中同单号的数据行的checked字段
请问老师是那里错了或者有其他方法实现根据内部表的查询结果更新后台数据
[此贴子已经被作者于2019/8/14 11:03:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

cmd.CommandText = " 查询 smartID,checked From {销售单} Where smartID = (" & rb.GetComboListString("smartID").Replace("|",",") & ")" 

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


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2019/8/14 12:50:00 [只看该作者]

老师改后报错如下
.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
',' 附近有语法错误。

以下是代码
Dim cwrb As New SQLCommand   '可复核的销售单号
Dim rb As DataTable
cwrb.CommandText = "查询 本单单号 From {销售主表} where 是否检查=True and 本单单号 NOT in (查询  本单单号 From {单据检查异常情况})"
rb = cwrb.ExecuteReader()


Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C  '数据库为SQL2008
cmd.CommandText = "查询 smartID,checked From {销售单} Where smartID = (" & rb.GetComboListString("本单单号").Replace("|",",") & ")"  '注意要包括主键列
dt = cmd.ExecuteReader(True) '注意可选参数设置为True
For Each dr As DataRow In dt.DataRows
    dr("checked") = True
Next
dt.Save()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/14 13:43:00 [只看该作者]

cmd.CommandText = "查询 smartID,checked From {销售单} Where smartID = ('" & rb.GetComboListString("本单单号").Replace("|","','") & "')"

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


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2019/8/14 14:18:00 [只看该作者]

代码替换后，不报错，但后台数据库的数据没有更新

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


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/14 14:23:00 [只看该作者]

把SQL放到后台数据库查询有没有符合条件的数据

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


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2019/8/14 14:29:00 [只看该作者]

没有符合的数据出来,用内部表试了，也没数据出来
[此贴子已经被作者于2019/8/14 14:30:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/14 14:36:00 [只看该作者]

说明查询条件有问题

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


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2019/8/14 14:40:00 [只看该作者]

查询 smartID,checked From {销售单} Where smartID ='XS1811-0068'  （这个可以查询到）
查询 smartID,checked From {销售单} Where smartID =('XS1811-0068,XS1905-1406,XS1906-0048')  （这个查询不到）
查询 smartID,checked From {销售单} Where smartID =('XS1811-0068','XS1905-1406','XS1906-0048') （这个查询不到）
查询 smartID,checked From {销售单} Where smartID in ('XS1811-0068','XS1905-1406','XS1906-0048')  （这个能查询到）
下面对应的要怎么改，自己改成这样还是不行
cmd.CommandText = "查询 smartID,checked From {销售单} Where smartID in ('" & rb.GetComboListString("本单单号").Replace("|","','") & "')"
[此贴子已经被作者于2019/8/14 17:43:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
北狐
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00 		数据更新  发帖心情 Post By：2023/6/6 18:16:00 [只看该作者]

Jb18.AddExp("系统单号", "R04_MaterialsAllocation.smartID", True)
Jb18.AddExp("单内序号", "1")
Jb18.AddExp("工费单号", "R04_MaterialsAllocation.smartID", True)
Jb18.AddExp("领料单号", "R04_MaterialsAllocation.smartID", True)
'Jb18.AddExp("产品成色", "''")
Jb18.AddExp("比较成色", "R02_SilverStyle.materialName", True)
Jb18.AddExp("比较银重", "-sum(isnull(weight,0))")
Jb18.AddExp("产品件数", "0")
Jb18.AddExp("产品净银重", "0 * 0.00001")
Jb18.AddExp("备注", "R04_MaterialsAllocation.outboundWarehouseName", True)
'Jb18.AddExp("实领料成色", "R02_SilverStyle.materialName ", True)
Jb18.AddExp("实领料银重", "-sum(isnull(weight,0))")
Jb18.AddExp("实工费", "0 * 0.00001")
If e.Sender.Name = "Button3" Then 
    Jb18.Filter = "convert(nvarchar(10),R04_MaterialsAllocation.smartDate,121)>='" & StartDate & "' And convert(nvarchar(10), R04_MaterialsAllocation.smartDate,121)<='" & LastDay & "' and R02_Customer. customerCode='" & cmdCustomerCode & "' And R04_MaterialsAllocation.audited = 'true'" '加载数据时用
Else
    If e.Sender.Name = "Button06" Then
        Jb18.Filter = "R02_Customer. customerCode='" & cmdCustomerCode & "'  and R04_MaterialsAllocation.smartID in " & s & " and R04_MaterialsAllocation.audited='true'" '审核时用
    End If
End If


'组合jb1  '采购入库的产品净银重
jb1.Merge(jb2) '组合jb2  '领料出库领料重
jb1.Merge(jb3) '组合jb3  '半成品入库的产品净银重
jb1.Merge(jb4) '组合jb4  '报废退货单的产品净银重
jb1.Merge(jb5) '组合jb5  '报废退货单的领料重
jb1.Merge(jb6) '组合jb6  '半成品入库的实工费
jb1.Merge(jb7) '组合jb7  '委外入库的实工费
jb1.Merge(jb8) '组合jb8  '返修入库的实工费
jb1.Merge(jb9) '组合jb9  '报废退货的实工费
jb1.Merge(jb10) '组合jb10 '付款单的实工费
jb1.Merge(jb11) '组合jb11 '往来费用单的实工费
jb1.Merge(jb12) '组合jb12 '材料入库的实工费
jb1.Merge(jb13) '组合jb13 '采购成品入库的实工费
jb1.Merge(jb14) '组合jb14 '材料入库的领料重
jb1.Merge(jb15) '组合jb15 '调拨出库领料重
jb1.Merge(jb16) '组合jb16 '返修退厂的实工费
jb1.Merge(jb17) '组合jb17 '旧料回收的领料重
jb1.Merge(jb18) '组合jb18 ''调拨入库领料重
Dim dt As DataTable
dt = jb1.Build(True)






Dim sCols() As String = {"系统单号", "单内序号", "类型", "单据类型", "比较成色", "比较银重", "比较工费", "供应商代码", "供应商名称", "本单日期", "工费单号", "领料单号", "实工费", "产品件数", "产品净银重", "实领料银重", "备注"}
Dim dCols() As String = {"ID", "number", "kind", "tableName", "contrastmaterialName" , "contrastweight", "contrastAmount", "customerCode", "customerName", "smartDate", "factoryID", "sourceID", 

For Each dr As DataRow In dt.DataRows
    
    '填充数据
    If DataTables("R03_payable_Detail").Find("customerCode= '" & dr("供应商代码") & "' and kind = '" & dr("类型") & "' and ID = '" & dr("系统单号") & "'And number = '" & dr("单内序号") & "' And c And c And c ") Is Nothing Then
        Dim nr As DataRow = DataTables("应付副表本地表").AddNew()
        For i As Integer = 0 To sCols.Length - 1
            nr(dCols(i)) = dr(sCols(i))
        Next
     
    End If
Next
老师，以上代码，在填充数据代码段耗时很长，导致界面闪退，有什么方法优化吗？上面查询结果也只有100多行

[此贴子已经被作者于2023/6/6 18:21:06编辑过]
 回到顶部
总数 19 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.06592 秒, 4 次数据查询