| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 向专家求教！这个控件该怎么写代码？？ (http://www.foxtable.com/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 |
| -- 作者：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 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 没有问题了，什么原因呢甜总 同样的代码一直都没有报过错的啊
|