主题：[求助]拒绝重复

datacolchanging事件

 

If e.DataCol.Name = "名称" Then
     Dim dr  As  DataRow
     dr = e.DataTable.Find("名称 = '" & e.NewValue &  "' and 时间 = #" & e.DataRow("时间") & "#")
     If dr IsNot Nothing Then
         MessageBox.Show("此时间已存在相同名称!")
         e.Cancel =  True
     End  If
 End  If

 

一样这样写，限制条件加上。

 

dr = e.DataTable.Find("名称 = '" & e.NewValue &  "' and 时间 = #" & e.DataRow("时间") & "# and 关联列 = '" & e.DataRow("关联列") & "'")

导入的时候，判断重复这样写代码

 

http://www.foxtable.com/help/topics/2334.htm

 

Dim dr As DataRow = DataTables("订单").Find("编号 = '" & bh & "'")

列名、表名、对应的东西，全部要变。

 

如果不会写代码，就认认真真学习，或者上传具体例子别人把你写。

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

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

 

汗

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

看19楼，加上条件啊

 

Dim dr2 As DataRow = DataTables("股piao明细").find("交易日期 = '" & dr1("日期") & "' and 股piao名称 = '" & dr1("名称") & "'")

 

 

汗。Tables("表A").Filter = "第一列 >= '" & 变量1 & "' and 第一列 <= '" & 变量2 & "'"