Foxtable(狐表)用户栏目专家坐堂 → [求助][原创]跨表录入数据


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

主题:[求助][原创]跨表录入数据

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/28 11:40:00 [只看该作者]

Select Case e.DataCol.name
    Case "设备编号","保管部门","设备名称","所属系统","单价","品牌"
        If e.DataRow("设备编号") <> Nothing AndAlso e.DataRow("保管部门") <> Nothing Then
            Dim dr As DataRow = DataTables("仓库台账").Find("设备编号 = '" & e.DataRow("设备编号") & "' and 保管部门 = '" & e.DataRow("保管部门") & "'")
            If dr Is Nothing Then
                dr = DataTables("仓库台账").AddNew()
            End If
            dr("设备名称") = e.DataRow("设备名称")
            dr("设备编号") = e.DataRow("设备编号")
            dr("所属系统") = e.DataRow("所属系统")
            dr("单价") = e.DataRow("单价")
            dr("保管部门") = e.DataRow("保管部门")
            dr("品牌") = e.DataRow("品牌")
           
        End If
End Select

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


加好友 发短信
等级:小狐 帖子:385 积分:2918 威望:0 精华:0 注册:2018/1/15 15:01:00
  发帖心情 Post By:2018/2/28 11:56:00 [只看该作者]

谢谢老师。

 回到顶部
总数 32 上一页 1 2 3 4