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


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

主题:引用数据

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107864 积分:548683 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/30 20:33:00 [显示全部帖子]

参考:http://www.foxtable.com/webhelp/scr/1451.htm

表B,datacolchanged事件

If e.DataCol.Name = "投料卷号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("投料厚度") = Nothing
        e.DataRow("投料宽度") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("表A").Find("[投料卷号] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then 
            e.DataRow("投料厚度") = dr("厚度")
            e.DataRow("投料宽度") = dr("宽度")
        End If
    End If
End If

 回到顶部