向专家求教！这个控件该怎么写代码？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、现在有表A（作为订单资料表）表B（作为历史记录表）

在某个订单需要变化时，可通过窗口将变动信息记录在表B：

tables("表B").addnew

tables("表B").current("会员姓名") = tables("表A").current("会员姓名")

tables("表B").current("停单日期") = date.today

.......

2、现在的问题：如果有一大批订单需要集中处理的话，这样一个一个点，太费时了。

要求：现在通过复选框将需要变动的订单已经选中，再通过窗口将这些行中需要的内容，复制到表B中得已记录。应该怎么写这个代码呢。

考虑到是不是可以用for each 语句呢？查来查去，不得其解。望前辈给予帮助！！！

[此贴子已经被作者于2014-9-15 21:39:55编辑过]

谢谢甜总。

nr("会员姓名") = r（“会员姓名”）

nr("订单编号") = r("订单编号")

........

messagebox.show("录入完成！"，“提示”)

问题：发现系统是一条一条向表B录入的，每行信息录完后都会出现一个对话框，需要点确定，这样会太多次！请问怎么能实现

让系统自己点确定，，或者只在录完最后一行信息后出现对话框呢?

甜总！您帮我看一下这个代码有什么问题吗?

在项目事件AfterOpenProject中有如下一段代码：

Tables("订奶资料表").filter = "[截止日期] = '" & Date.Today & "'"
If Tables("订奶资料表").Current.IsNull("会员姓名") = False Then
If MessageBox.show("您有明天到期的会员,是否马上查看?","提示",MessageBoxButtons.YesNo)= DialogResult.Yes Then
Forms("订单查询").show
Tables("订奶资料表").filter = "[截止日期] = '" & Date.Today & "'"
Else
Tables("订奶资料表").filter = ""
End If
End If //一直以来，都正常使用没有报告错打开软件后如果有当天到期的会员会有对话框提
//这两天突然就出错了提示"未将对象引用设置到对象的实例。"
//可是打开以前备份的项目，一样的代码就又不会出错了

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.9.16.1

错误所在事件：项目,AfterOpenProject

详细错误信息：

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

只有这样的提示，，没有具体到哪行代码

If Tables("订奶资料表").Current IsNot Nothing AndAlso Tables("订奶资料表").Current.IsNull("会员姓名") = False

没有问题了，什么原因呢甜总同样的代码一直都没有报过错的啊

这样简洁多了。。

学海无涯，又学习了谢甜总。

主题：向专家求教！这个控件该怎么写代码？？