主题：跨表删除行

If e.DataCol.Name = "撤回报价" AndAlso e.DataRow("撤回报价") = True Then
    Dim nma() As String = {"图号"} 'A表数据来源列
    Dim nmb() As String = {"图号"} 'B表数据接收列
    Dim dr As DataRow = DataTables("报价管理系统").RemoveFor
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

 

 

这样写为什么不对

RemoveFor是移除：http://www.foxtable.com/webhelp/topics/0408.htm，移除只是看不到，数据还在

此主题相关图片如下：228.png


此主题相关图片如下：236.png


此主题相关图片如下：5014.jpg

两个问题 1、 能不能帮我改一下代码2、再就是按完这个开发板后  电脑就经常蓝屏  这是什么问题呢  

If e.DataCol.Name = "撤回报价" AndAlso e.DataRow("撤回报价") = True Then
    Dim dr As DataRow = DataTables("报价管理系统").Find("图号 = '" & e.DataRow("图号") & "'")
    If dr IsNot Nothing Then
        dr.Delete()
    End If
End If

If e.DataCol.Name = "撤回报价" AndAlso e.DataRow("撤回报价") = True Then

为啥看你们写的代码  就觉得那么简洁呢   我写的不是不对就是像老太太的棉裤腰 

此主题相关图片如下：51435.png

If e.DataCol.Name = "传递报价" AndAlso e.DataRow("传递报价") = True Then
    e.DataRow("录入时间") = Date.Today()
    e.DataRow("业务员") = User.Name
Else
    e.DataRow("业务员") = Nothing
    e.DataRow("录入时间") = Nothing
End If
我写的这个代码  为啥不运行呢

此主题相关图片如下：850.png


此主题相关图片如下：1823.png

这个三角号也没有了  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (6).foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目16.zip

3If 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
End If

 

 

1/Select Case e.DataCol.Name
    Case "传递报价", "撤回报价"
        If e.NewValue = True Then
            Dim nms() As String = {"传递报价", "撤回报价"}
            For Each nm As String In nms
                If nm <> e.DataCol.Name AndAlso e.DataRow(nm) = True Then
                    e.DataRow(nm) = False
                End If
            Next
        End If
End Select

此主题相关图片如下：40.png


此主题相关图片如下：750.png

三个问题：

1、已经做了逻辑列排他选择   但为啥不执行

2、订单号提醒 我也没写相关代码  但是不知道怎么出现

3、业务员内容 为啥没有复制过去