Foxtable(狐表)用户栏目专家坐堂 → [求助]多条件数据更新


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

主题:[求助]多条件数据更新

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/9/10 15:33:00 [显示全部帖子]

如果不想用关联:

 

http://www.foxtable.com/help/topics/1453.htm

 


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/9/10 15:43:00 [显示全部帖子]

你一楼都可以组合三列的条件,难道自动更新的时候,就不会组合了?
 
帮助是:

 

If e.DataCol.Name = "单价"
     Dim dr As DataRow = e.DataRow
    Dim Filter As String = "[品名] = '" & e.DataRow("品名") & "'"
    Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
    For Each dr As DataRow In drs
        dr("单价") = e.DataRow("单价")
    Next
End If

 

你改为:

If e.DataCol.Name = "单价"
    Dim Filter As String = "品名 = '" & e.datarow("品名") & "' And 型号 = '" & e.datarow("型号") & "' And 规格 = '" & e.datarow("规格") & "'"
    Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
    For Each dr As DataRow In drs
        dr("单价") = e.DataRow("单价")
    Next
End If

[此贴子已经被作者于2012-9-10 15:43:38编辑过]

 回到顶部