主题：保留旧价格

我这次不用关联。

 

 

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

点击浏览该文件:管理项目253.rar

先看5楼，有问题再留言。

1、单价当然应该是双精度型，怎么能够为字符型？数据类型是一切功能的基础，不能乱的。

2、这个问题，最好先系统看一下帮助文件中的开发指南下的《编程基础》和《foxtable编程》，先学习一下，你才能理解别人写的代码，才能做到举一反三。

呵呵，其实这个和是否专业人士无关的，其实这个论坛的人，除了官方的技术人员，都是非专业人士的，Foxtable也是写给非专业人士使用的。

 

如果单价是字符型：

 

Select Case  e.DataCol.Name
    Case "编码","单价"
        Dim dr1 As DataRow= e.DataRow
        If dr1.IsNull("编码") = False AndAlso dr1.IsNull("单价") = False  Then
            Dim dr2 As DataRow = DataTables("表B").Find("编码 = '" & dr1("编码") & "' And 单价 = '" & dr1("单价") & "'")
            If dr2 Is Nothing Then
                dr2 = DataTables("表B").AddNew
                dr2("编码") = dr1("编码")
                dr2("单价") = dr1("单价")
            End If
        End If
End Select

 

2、不明白你有很多列是什么意思，请具体说明。

 

 

Select Case  e.DataCol.Name
    Case "第一列","第二列","第三列","第四列","第五列","第六列","第七列"
        Dim nms() As String = {"第一列","第二列","第三列","第四列","第五列","第六列","第七列"}
        Dim dr1 As DataRow= e.DataRow
        Dim flt As String
        For Each nm As String In nms
            If dr1.IsNull(nm) Then
                Return
            Else
                If flt > "" Then
                    flt = flt & " And "
                End If
                If e.DataTable.DataCols(nm).IsNumeric Then
                    flt = flt & nm & " = " & dr1(nm)
                Else
                    flt = flt & nm & " = '" & dr1(nm) & "'"
                End If
            End If
        Next
        Dim dr2 As DataRow = DataTables("表B").Find(flt)
        If dr2 Is Nothing Then
            dr2 = DataTables("表B").AddNew
            For Each nm As String In nms
                dr2(nm) = dr1(nm)
            Next
        End If
End Select