Foxtable(狐表)用户栏目专家坐堂 → [求助] 怎么把两数组的值,赋给另一值


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

主题:[求助] 怎么把两数组的值,赋给另一值

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


加好友 发短信
等级:童狐 帖子:272 积分:2189 威望:0 精华:0 注册:2013/9/26 1:49:00
[求助] 怎么把两数组的值,赋给另一值  发帖心情 Post By:2014/5/14 16:12:00 [只看该作者]

Dim dtt As DataTable = DataTables("入库单明细2_入库明细表")
Dim Total As Integer
Dim Customers As List(Of String)
Customers = dtt.GetValues("商品编号")
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dth As DataTable
cmd.CommandText = "Select 入库数量,商品编号 From {商品信息} "
dt = cmd.ExecuteReader
Dim Products As List(Of String)
For Each Customer As String In Customers
    Products = dt.GetValues("入库数量","商品编号 =  '" & customer & "'")
    Total = dtt.Compute("Sum(数量)", "[商品编号] = '" & Customer & "'")
 
    cmd.CommandText = "Select [_Identify],入库数量 From {商品信息} Where 商品编号 = '" &  Customer & "'"
    dth = cmd.ExecuteReader(True) 
    For Each dr As DataRow In dth.DataRows
        For Each dttt As Integer In products
            'Output.Show(Customer & ":" & dttt + Total )   '这个显示正常,能得到正常数值,这个计算出  : dttt 为入库明细表数量 +  Total后台商品信息表入库数量  两个相加为最新库存量
            dr("入库数量") = dttt + Total              '现要把相加的最新库存量,更新到后台数据,这个问题要怎么处理,
            cmd.ExecuteScalar  '更新后台总数量
        Next
        dt.Save()
    Next
Next 
[此贴子已经被作者于2014-5-14 16:14:18编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/5/14 16:13:00 [只看该作者]

最后执行  dth.Save 就好了.代码没看出有问题.

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


加好友 发短信
等级:童狐 帖子:272 积分:2189 威望:0 精华:0 注册:2013/9/26 1:49:00
  发帖心情 Post By:2014/5/14 16:18:00 [只看该作者]

大哥,牛,搞定,就缺个dth.save,  NND,搞死我了

 回到顶部