不关联表在表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
加好友 
发短信
Post By：2018/12/1 15:49:00 [只看该作者]
