以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  区域复制  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152965)

--  作者:朱女士
--  发布时间:2020/7/27 15:30:00
--  区域复制
老师您好!
      我有两个问题需要请教:
      1、在foxtable中如何一次性多行多列区域复制粘贴
      2、我参考自定义输入界面之三,设计了一个模糊输入模块。按照步骤设计完毕了,运行时,在单元格里输入一个字符就出现:

Foxtable 版本:2020.5.29.8
错误所在事件:ddpsb,ChangeEdit
详细错误信息:
未将对象引用设置到对象的实例。
这是什么原因?


--  作者:有点蓝
--  发布时间:2020/7/27 15:35:00
--  
1、默认就可以,复制后,随便选中一个单元格,然后粘贴即可

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

--  作者:朱女士
--  发布时间:2020/7/27 15:38:00
--  
怎么复制一行粘贴多行?
--  作者:有点蓝
--  发布时间:2020/7/27 15:40:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=80523
--  作者:朱女士
--  发布时间: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


--  作者:有点蓝
--  发布时间:2020/7/27 16:02:00
--  

--  作者:朱女士
--  发布时间: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
错在哪里呢?请指教!

--  作者:有点蓝
--  发布时间: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