好的，我试试，谢谢！另外想问一个问题，afterload在加载数据时，如何实现打开表格时是空值，但在其它操作时都可以正常使用呢？
我在afterload录入：
DataTables("生产主表").loadfilter = "生产单号 is null"
DataTables("生产主表").load
在一个控件的leave中录入：
Dim dr As DataRow = DataTables("生产主表").Find("生产单号 = '" & Forms("生产变更").controls("生产单号").text & "' and 物料类型 = '" & Forms("生产变更").controls("物料类型").text & "' and 作废 = false")
Forms("生产变更").controls("型号").text = dr("型号")
Forms("生产变更").controls("规格").text = dr("规格")
Forms("生产变更").controls("工序").text = dr("工序")
Forms("生产变更").controls("客户代号").text = dr("客户代号")
Forms("生产变更").controls("件数").text = dr("件数")
Forms("生产变更").controls("投料重量").text = dr("投料重量")
Forms("生产变更").controls("已蒸镀重量").text = dr("已蒸镀重量")
结果：无法引用数据，该如何操作呢？
加好友 
发短信
Post By：2014/10/4 16:42:00 [只看该作者]
