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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] filter 问题

共有2195人关注过本帖树形打印复制链接主题：[求助] filter 问题

sanny

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

[求助] filter 问题 发帖心情

Post By：2018/11/3 15:51:00 [只看该作者]

请指都我要在下面的代码中增加以下功能：

[此贴子已经被作者于2019/10/7 10:49:44编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110590 积分：562846 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/3 16:28:00 [只看该作者]

fill填充无法去重，这种方式复制数据才可以：http://www.foxtable.com/webhelp/scr/1533.htm

Dim Cols1() As String = {"GSSAG_PO","Customer"}

Dim d As Date = Forms("Mainfrm").Controls("startdate").value

For Each dr1 As DataRow In DataTables("Orderlist").Select("[Orderdate] = #" & d & "#")

Dim dr2 As DataRow = DataTables("Packinglist").Find("GSSAG_PO='" & dr1("GSSAG_PO") & "' and Customer='" & dr1("Customer") & "'")

If dr2 IsNot Nothing Then

Dim Result As DialogResult

Result = MessageBox.Show("重复,是否继续?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

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

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

dr2("Orderdate") = d

End If

sanny

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2018/11/3 19:03:00 [只看该作者]

谢谢。不过出现了错误，显示：编译错误，未声明名称 “Cols2", 错误代码 dr2(Cols2(i)) = dr1(Cols1(i))

sanny

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：799 积分：5921 威望：0 精华：0 注册：2018/11/3 8:24:00

Post By：2018/11/4 10:40:00 [只看该作者]

请帮忙看一下哪儿错了。谢谢。

y2287958

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/11/4 13:54:00 [只看该作者]

Dim Cols1() As String = {"GSSAG_PO","Customer"}

Dim d As Date = Forms("Mainfrm").Controls("startdate").value

If d <> Nothing

For Each dr1 As DataRow In DataTables("Orderlist").Select("[Orderdate] = #" & d & "#")

Dim dr2 As DataRow = DataTables("Packinglist").Find("GSSAG_PO='" & dr1("GSSAG_PO") & "' and Customer='" & dr1("Customer") & "'")

If dr2 IsNot Nothing Then

Dim Result As DialogResult

Result = MessageBox.Show("重复,是否继续?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

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

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

dr2("Orderdate") = d

End If

下一主题 >> << 上一主题

主题：[求助] filter 问题