主题：[求助]拒绝重复

看27楼，判断是否重复，再确定是否addnew

Tables("表名").AllowDelete = True

1、Syscmd.Filter.BetWeen()

 

2、可以自己做一个类似的窗口

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

Dim 上限 As String = e.Form.Controls("").Text
Dim 下限 As String = e.Form.Controls("").Text

If 上限 <> "" Then
    Filter &= " And 第一列 <= " & 上限
End If

If 下限 <> "" Then
    Filter &= " And 第一列 >= " & 下限
End If

 

Dim Filter As String = "1=1"
With e.Form.Controls("cmbProduct")
    Filter = filter & " And 名称 = '" & .Value & "'"
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 日期 <= #" & .Value & "#"
    End If
End With
Dim sx As String = e.Form.Controls("上限").Text
Dim xx As String = e.Form.Controls("下限").Text
If sx <> "" Then
    Filter &= " And 涨幅 <= " & sx
End If
If xx <> "" Then
    Filter &= " And 涨幅 >= " & xx
End If

Tables("数据库更新").Filter = Filter

 

 

 

那就不要改成数据列，依旧用你的字符列，导入以后，编写datacolchanged事件再修改赋值给另一列数值列；

 

不会做就上传具体例子。

For Each c As object In e.Form.Controls
    If TypeOf c Is Winform.Table Then
        If DataTables.Contains(c.Table.name) Then
            For i As Integer = 0 To 4
                c.Table.Cols(i).AllowEdit = False
            Next
        End If
    End If
Next

窗口AfterLoad事件

For Each c As object In e.Form.Controls
    If TypeOf c Is Winform.Table Then
        If DataTables.Contains(c.Table.name) Then
            c.Table.cols.Frozen = 5
        End If
    End If
Next