[求助]拒绝重复 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，按钮删除在窗口中以加载的数据同时删除对应数据源的数据

窗口删除数据后调用Datatable.Save

Tables("交易明细_Table1").DataTable.datarows.clear

上面代码报错，不存在"交易明细_Table1"

窗口表只能在窗口打开的时候使用

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

求调用系统数值筛选窗口的代码

[此贴子已经被作者于2015/11/21 16:53:48编辑过]

老师，怎样让复制按钮点击后只工作一次

Dim Cols1() As String = {"代码","名称","涨幅","现价","总手","现手","昨收","开盘","最高","最低","买价","卖价","涨速","量比","所属行业","市盈(动)","市净率","买量","卖量","委比","振幅","换手","涨跌","金额","均笔额","笔数","手笔","外盘","内盘","总市值","流通值","日期"}

Dim Cols2() As String = {"代码","名称","涨幅","现价","总手","现手","昨收","开盘","最高","最低","买价","卖价","涨速","量比","所属行业","市盈(动)","市净率","买量","卖量","委比","振幅","换手","涨跌","金额","均笔额","笔数","手笔","外盘","内盘","总市值","流通值","日期"}

Dim drs As List(Of DataRow) = DataTables("股piao数据明细_Table1").Select("")

Dim p As WinForm.ProgressBar

p = e.Form.Controls("ProgressBar2")

p.Maximum = drs.Count - 1 '设置最大值

p.Minimum = 0 '设置最小值

p.Value = 0 '设置当前值

DataTables("股piao数据明细_Table1").StopRedraw

For j As Integer = 0 To drs.count - 1

Dim dr1 As DataRow = drs(j)

Dim dr2 As DataRow = DataTables("领涨数据库").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

p.Value = j

Application.Doevents

DataTables("股piao数据明细_Table1").ResumeRedraw

看19楼，加上条件啊

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

以下是引用江南小城在2015/11/21 16:36:00的发言：

图片点击可在新窗口打开查看

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

求调用系统数值筛选窗口的代码

[此贴子已经被作者于2015/11/21 16:53:48编辑过]

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

老师，我是说按钮不小心点击了两次他会重复导入数据。

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

主题：[求助]拒绝重复