主题：[求助]拒绝重复

老师真有点不好意思。

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

点击浏览该文件:禁止重复.table

那就内部数据库的小例子发上来，不一定要上传项目啊。

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

点击浏览该文件:管理项目1.table

哪个表怎么操作，怎么排除重复

老师，后上传的可以做数据源，真正数据源上传不了。

 

汗

此主题相关图片如下：360反馈意见截图161710028987115.png

Dim Cols1() As String = {"日期","名称","代码","现价"}
Dim Cols2() As String = {"交易日期","股piao名称","股piao代码","当天_收盘价"}
Dim drs As List(Of DataRow) = DataTables("自选股").Select("")

For j As Integer = 0 To drs.count - 1
    Dim dr1 As DataRow = drs(j)
    Dim dr2 As DataRow = DataTables("股piao明细").find("交易日期 = '" & dr1("日期") & "' and 股piao名称 = '" & dr1("名称") & "'")
    If dr2 Is Nothing Then
        dr2 = DataTables("股piao明细").AddNew()
    End If
    For i As Integer = 0 To Cols1.Length -1
        If  Tables("股piao明细").cols(cols2(i)).IsNumeric Then
            Dim d As Double
            If Double.TryParse(dr1(Cols1(i)),d) Then
                dr2(Cols2(i)) = d
            End If
        Else
            dr2(Cols2(i)) = dr1(Cols1(i))
        End If
    Next
Next

老师好，我忘了谢谢你。