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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 向专家求教！这个控件该怎么写代码？？

共有2649人关注过本帖树形打印复制链接主题：向专家求教！这个控件该怎么写代码？？

sanshaoye7717

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：49 积分：485 威望：0 精华：0 注册：2013/11/9 8:02:00

向专家求教！这个控件该怎么写代码？？ 发帖心情

Post By：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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：49 积分：485 威望：0 精华：0 注册：2013/11/9 8:02:00

Post By：2014/9/16 14:16:00 [只看该作者]

谢谢甜总。

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

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

........

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

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

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：49 积分：485 威望：0 精华：0 注册：2013/11/9 8:02:00

Post By：2014/9/16 14:23:00 [只看该作者]

谢甜总。

sanshaoye7717

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：49 积分：485 威望：0 精华：0 注册：2013/11/9 8:02:00

项目事件中的一段代码！ 发帖心情

Post By：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 //一直以来，都正常使用没有报告错打开软件后如果有当天到期的会员会有对话框提
//这两天突然就出错了提示"未将对象引用设置到对象的实例。"
//可是打开以前备份的项目，一样的代码就又不会出错了

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/18 11:05:00 [只看该作者]

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

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

sanshaoye7717

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：49 积分：485 威望：0 精华：0 注册：2013/11/9 8:02:00

Post By：2014/9/18 11:33:00 [只看该作者]

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.9.16.1

错误所在事件：项目,AfterOpenProject

详细错误信息：

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

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

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：49 积分：485 威望：0 精华：0 注册：2013/11/9 8:02:00

Post By：2014/9/18 11:44:00 [只看该作者]

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

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

下一主题 >> << 上一主题

总数 13 1 2 下一页

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