Foxtable(狐表)用户栏目专家坐堂 → [求助][讨论]有关表属性关联的问题


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

主题:[求助][讨论]有关表属性关联的问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/4 16:04:00 [显示全部帖子]

If e.DataCol.Name = "宽" OrElse  e.DataCol.Name = "高" Then '发生变化的是宽吗?
    If e.DataRow.isnull("宽")=False AndAlso e.DataRow.isnull("高")=False Then
        '在镀锌阀成本参数找出宽
        Dim dr As DataRow
        dr = DataTables("镀锌阀成本参数").Find("宽 = " & "'" & e.DataRow("宽") & "' and 高='" & e.DataRow("高") & "'")
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("阀体单价")= dr("价格")
        Else
            '否则清除阀体单价的内容
            e.DataRow("阀体单价") = Nothing
        End If
    End If
End If

 回到顶部