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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 区域复制

共有3293人关注过本帖树形打印复制链接主题：区域复制

朱女士

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

加好友

发短信

等级：二尾狐帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00

区域复制

Post By：2020/7/27 15:30:00 [只看该作者]

老师您好！

我有两个问题需要请教：

1、在foxtable中如何一次性多行多列区域复制粘贴

2、我参考自定义输入界面之三，设计了一个模糊输入模块。按照步骤设计完毕了，运行时，在单元格里输入一个字符就出现：

Foxtable 版本：2020.5.29.8

错误所在事件：ddpsb,ChangeEdit

详细错误信息：

未将对象引用设置到对象的实例。

这是什么原因？

有点蓝

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

加好友

发短信

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

Post By：2020/7/27 15:35:00 [只看该作者]

1、默认就可以，复制后，随便选中一个单元格，然后粘贴即可

2、错误所在事件：ddpsb,ChangeEdit -- 贴出代码

朱女士

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

加好友

发短信

等级：二尾狐帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00

Post By：2020/7/27 15:38:00 [只看该作者]

怎么复制一行粘贴多行？

有点蓝

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

加好友

发短信

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

Post By：2020/7/27 15:40:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=80523

朱女士

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

加好友

发短信

等级：二尾狐帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00

Post By：2020/7/27 15:41:00 [只看该作者]

Dim txt2 As String=e.form.dropdownbox.text

Dim tb2 As Table = Tables("变压器模糊输入_Table1")

If txt2 = "" Then

tb2.Filter = ""

Else

txt2 = "'%" & txt2 & "%'"

tb2.Filter = "变压器型号 Like " & txt2 & " or 变压器类型 like " & txt2 & " or 变压器容量 like " & txt2 & " or 电压等级 like " & txt2

End If

有点蓝

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

加好友

发短信

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

Post By：2020/7/27 16:02:00 [只看该作者]

？

朱女士

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

加好友

发短信

等级：二尾狐帖子：513 积分：4073 威望：0 精华：0 注册：2020/2/8 11:14:00

Post By：2020/7/27 16:11:00 [只看该作者]

老师您好！

我按照帮助自定义输入界面三，设计了模糊输入模块，按照步骤全部设计完毕，运行时在单元格输入一个字符就出现出错信息：NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：ddpsb,ChangeEdit

详细错误信息：

未将对象引用设置到对象的实例。

我的ddpsb,ChangeEdit代码为：

Dim txt2 As String=e.form.dropdownbox.text

Dim tb2 As Table = Tables("变压器模糊输入_Table1")

If txt2 = "" Then

tb2.Filter = ""

Else

txt2 = "'%" & txt2 & "%'"

tb2.Filter = "变压器型号 Like " & txt2 & " or 变压器类型 like " & txt2 & " or 变压器容量 like " & txt2 & " or 电压等级 like " & txt2

End If

错在哪里呢？请指教！

有点蓝

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

加好友

发短信

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

Post By：2020/7/27 16:45:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

Dim txt2 As String=e.form.dropdownbox.text

Dim tb2 As Table = Tables("变压器模糊输入_Table1")

msgbox(txt2 )

If txt2 = "" Then

tb2.Filter = ""

Else

txt2 = "'%" & txt2 & "%'"

msgbox(txt2 )

tb2.Filter = "变压器型号 Like " & txt2 & " or 变压器类型 like " & txt2 & " or 变压器容量 like " & txt2 & " or 电压等级 like " & txt2

msgbox( tb2.Filter)

End If

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

主题：区域复制