以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  向专家求教！这个控件该怎么写代码？？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56951)
--  作者：sanshaoye7717
--  发布时间：2014/9/15 21:38:00
--  向专家求教！这个控件该怎么写代码？？
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编辑过]
--  作者：有点甜
--  发布时间：2014/9/15 22:00:00
--  

 参考这个

 

For Each r As Row In Tables("表A").GetCheckedRows
    Dim nr As Row = Tables("表B").addnew
    nr("会员姓名") = r("会员姓名")
    nr("停单日期") = Date.today
Next
--  作者：sanshaoye7717
--  发布时间：2014/9/16 14:16:00
--  
谢谢甜总。

nr("会员姓名") = r（“会员姓名”）
nr("订单编号") = r("订单编号")
........
messagebox.show("录入完成！"，“提示”)


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

让系统自己点确定，，或者只在录完最后一行信息后出现对话框呢?
--  作者：有点甜
--  发布时间：2014/9/16 14:18:00
--  

For Each r As Row In Tables("表A").GetCheckedRows
    Dim nr As Row = Tables("表B").addnew
    nr("会员姓名") = r("会员姓名")
    nr("停单日期") = Date.today
Next

 

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

 
--  作者：sanshaoye7717
--  发布时间：2014/9/16 14:23:00
--  
谢甜总。
--  作者：sanshaoye7717
--  发布时间：2014/9/18 10:58:00
--  项目事件中的一段代码！
甜总！您帮我看一下这个代码有什么问题吗?

在项目事件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                                           //一直以来，都正常使用  没有报告错   打开软件后如果                                                    有当天到期的会员会有对话框提
                                                 //这两天突然就出错了  提示"未将对象引用设置到对象的                                                    实例。"   
                                                 //可是打开以前备份的项目，一样的代码就又不会出错了
--  作者：有点甜
--  发布时间：2014/9/18 11:05:00
--  

 你调试一下，看是哪段代码有错

 

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

 
--  作者：sanshaoye7717
--  发布时间：2014/9/18 11:33:00
--  
.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.9.16.1
错误所在事件：项目,AfterOpenProject
详细错误信息：
未将对象引用设置到对象的实例。



只有这样的提示  ，，没有具体到哪行代码
--  作者：有点甜
--  发布时间：2014/9/18 11:36:00
--  
 Tables("订奶资料表").filter = "[截止日期] = \'" & Date.Today & "\'"
If Tables("订奶资料表").Current IsNot Nothing AndAlso 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
--  作者：sanshaoye7717
--  发布时间：2014/9/18 11:44:00
--  
If Tables("订奶资料表").Current IsNot Nothing AndAlso Tables("订奶资料表").Current.IsNull("会员姓名") = False
没有问题了，什么原因呢甜总    同样的代码一直都没有报过错的啊