Foxtable(狐表)用户栏目专家坐堂 → 不关联表在表A设置一个报价结束按钮 通过这个按钮控制表B是自动输入表A里面的内容


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

主题:不关联表在表A设置一个报价结束按钮 通过这个按钮控制表B是自动输入表A里面的内容

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


加好友 发短信
等级:幼狐 帖子:108 积分:824 威望:0 精华:0 注册:2018/11/23 15:18:00
不关联表在表A设置一个报价结束按钮 通过这个按钮控制表B是自动输入表A里面的内容  发帖心情 Post By:2018/12/1 15:49:00 [只看该作者]

不关联表在表A设置一个报价结束按钮 通过这个按钮控制表B是自动输入表A里面的内容   DataColChanged这样写写错在哪里呢

If e.DataCol.Name = "报价结束" AndAlso e.DataRow("报价结束") = True Then
    Dim nma() As String = {"产品代号","报价_供应商","报价_供应商联系人","报价_联系电话"} 
    Dim nmb() As String = {"产品代号","供应商","供应商联系人","供应商联系电话"} 
    Dim dr As DataRow = DataTables("新产品开发阶段表").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
Else
    If e.DataCol.Name = "报价结束" AndAlso e.DataRow("报价结束") = False Then
        Dim dr As DataRow = DataTables("新产品开发阶段表").Find("nmb() = '" & e.DataRow("nma()") & "'")
        If dr IsNot Nothing Then
            dr.Delete()
        End If
    End If
End If



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/1 16:35:00 [只看该作者]

If e.DataCol.Name = "报价结束"
    If e.DataRow("报价结束") = True Then
        Dim nma() As String = {"产品代号","报价_供应商","报价_供应商联系人","报价_联系电话"}
        Dim nmb() As String = {"产品代号","供应商","供应商联系人","供应商联系电话"}
        Dim dr As DataRow = DataTables("新产品开发阶段表").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    Else
        Dim dr As DataRow = DataTables("新产品开发阶段表").Find("产品代号 = '" & e.DataRow("产品代号") & "'")
        If dr IsNot Nothing Then
            dr.Delete()
        End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
宁老师SQE
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:824 威望:0 精华:0 注册:2018/11/23 15:18:00
  发帖心情 Post By:2018/12/1 16:55:00 [只看该作者]

为什么代码能看懂  但是叫我写或者改就那么费劲老是错误呢


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/1 17:11:00 [只看该作者]

还要理解代码表示的逻辑,明白为啥要这样用,不仅仅是看得懂。基础的用法用多自然就熟了

 回到顶部