Foxtable(狐表)用户栏目专家坐堂 → 未将对象应用设置到对象的实例……求解!


  共有9850人关注过本帖树形打印复制链接

主题:未将对象应用设置到对象的实例……求解!

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/2 22:37:00 [显示全部帖子]

看了代码,不会报这个错的。例子发上来测试。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/2 22:40:00 [显示全部帖子]

你试试这样改

 

idx = CInt(max.Substring(14,3)) + 1 '获得最大编号的后三位顺序号,并加1

 

改成

 

idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大编号的后三位顺序号,并加1


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/14 19:03:00 [显示全部帖子]

1、是不是你的images文件夹没有拷贝过来?

 

2、你可以用代码将其隐藏,写到afterOpenProject事件

 

Tables("表A").Visible = False


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/15 19:58:00 [显示全部帖子]

1、空格不能多

 

Tables("会员信息表").Filter = " [星期要求] like '%" & wldm & "%' and [时段要求] like '%" & wlmc & "%' "

 

2、隐藏表以后,窗口中绑定的表不受影响


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/17 0:01:00 [显示全部帖子]

Dim flt As String = Tables("表A").Filter

flt = iif(flt > "", "(" & flt & ")", "1=1")

 

Tables("表A").Filter = flt & " and 第二次筛选条件"


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/27 10:58:00 [显示全部帖子]

 回复19楼,应该是你的编号列是数值列,要改成字符列,加入msgbox调试

 

http://www.foxtable.com/help/topics/1485.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/27 13:15:00 [显示全部帖子]

那你datacolchanged事件,肯定还有别的代码影响了。

 

具体问题上传实例说明。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/3/27 14:20:00 [显示全部帖子]

你执行这段代码的时候

 

 e.DataRow("商品编号") = lb & Format(idx,"000")

 

会触发 【商品编号】列的DataColChanged事件的。

 

如果不想触发,要这样写

 

SystemReady = False

 e.DataRow("商品编号") = lb & Format(idx,"000")

SystemReady = True


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/2 14:18:00 [显示全部帖子]

具体问题,请上传具体例子。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/5/3 9:36:00 [显示全部帖子]

以下是引用wandongliang在2016/5/2 20:50:00的发言:
谢谢,已经解决!不过又有了另外一个问题。那就是经过开发后的软件,安装到其他电脑之后,原先在窗口中排列整齐的各个控件,会变得非常拥挤,我以为是分辨率的原因,可是调节分辨率之后,还是没有改善。有没有其他办法解决?

 

善用37楼的锚定停靠;

 

如果是字体变大,看看这里 http://jingyan.baidu.com/article/4853e1e537952a1909f72680.html

 

如果要自适应,看看这里 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78838&skin=0

 


 回到顶部
总数 16 1 2 下一页