Foxtable(狐表) → 用户栏目 → 专家坐堂 → 非关联表同步的条件问题


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

主题：非关联表同步的条件问题
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/5 15:06:00 [显示全部帖子]

Select Case e.DataCol.name '如果项目甄批意见勾选参加投标,项目主表参加投标勾选后,投标主表增加行
    Case "信息编号"
        Dim dr1 As DataRow = DataTables("投标主表").Find("信息编号 = '" & e.OldValue & "'")
        If dr1 Is Nothing Then
            dr1 = DataTables("投标主表").AddNew()
            dr1("信息编号") = e.DataRow("信息编号")
            dr1("项目名称") = e.DataRow("项目名称")
        Else
            dr1("信息编号") = e.DataRow("信息编号")
        End If
    Case "项目名称"
        Dim dr1 As DataRow = DataTables("投标主表").Find("信息编号 = '" & e.DataRow("信息编号") & "'")
        If dr1 IsNot Nothing Then
            dr1(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
    Case "参加投标"
        Dim dr1 As DataRow = DataTables("投标主表").Find("信息编号 = '" & e.DataRow("信息编号") & "'")
        If dr1 Is Nothing Then
            dr1 = DataTables("投标主表").AddNew()
        End If
        dr1("信息编号") = e.DataRow("信息编号")
        dr1("项目名称") = e.DataRow("项目名称")
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/5 16:51:00 [显示全部帖子]

Select Case e.DataCol.name '如果项目甄批意见勾选参加投标,项目主表参加投标勾选后,投标主表增加行
    Case "信息编号"
        Dim dr1 As DataRow = DataTables("投标主表").Find("信息编号 = '" & e.OldValue & "'")
        If dr1 IsNot Nothing Then
            dr1("信息编号") = e.DataRow("信息编号")
        End If
    Case "项目名称"
        Dim dr1 As DataRow = DataTables("投标主表").Find("信息编号 = '" & e.DataRow("信息编号") & "'")
        If dr1 IsNot Nothing Then
            dr1(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
    Case "参加投标"
        If e.DataRow("参加投标") = True Then
            Dim dr1 As DataRow = DataTables("投标主表").Find("信息编号 = '" & e.DataRow("信息编号") & "'")
            If dr1 Is Nothing Then
                dr1 = DataTables("投标主表").AddNew()
            End If
            dr1("信息编号") = e.DataRow("信息编号")
            dr1("项目名称") = e.DataRow("项目名称")
        End If
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/5 17:32:00 [显示全部帖子]

代码在4楼。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 5 次数据查询