专家坐堂-不关联表在表A设置一个报价结束按钮通过这个按钮控制表B是自动输入表A里面的内容Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不关联表在表A设置一个报价结束按钮通过这个按钮控制表B是自动输入表A里面的内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128225)

--  作者：宁老师SQE
--  发布时间：2018/12/1 15:49:00
--  不关联表在表A设置一个报价结束按钮通过这个按钮控制表B是自动输入表A里面的内容

不关联表在表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

--  作者：有点蓝
--  发布时间：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
--  发布时间：2018/12/1 16:55:00
--
为什么代码能看懂但是叫我写或者改就那么费劲老是错误呢

--  作者：有点蓝
--  发布时间：2018/12/1 17:11:00
--
还要理解代码表示的逻辑，明白为啥要这样用，不仅仅是看得懂。基础的用法用多自然就熟了