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

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

你试试这样改

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

改成

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

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

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

Tables("表A").Visible = False

1、空格不能多

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

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

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

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

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

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

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

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

具体问题上传实例说明。

你执行这段代码的时候

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

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

如果不想触发，要这样写

SystemReady = False

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

SystemReady = True

善用37楼的锚定停靠；

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

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