数据加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据加载

共有1860人关注过本帖树形打印复制链接主题：数据加载

rgbjwjb

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

加好友

发短信

等级：三尾狐帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00

数据加载

Post By：2019/6/25 16:46:00 [只看该作者]

我在窗体中添加了一个表控件，该控件绑定表为“兑付明细表”，我想在打开窗体后，表控件只加载新增的行，已经保存过的记录不加载，请问afterload事件的代码怎么写？谢谢！

y2287958

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

加好友

发短信

等级：狐神帖子：4627 积分：33767 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/6/25 16:55:00 [只看该作者]

判断行状态 DataRowState.Added

rgbjwjb

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

加好友

发短信

等级：三尾狐帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2019/6/25 17:34:00 [只看该作者]

代码如下：

Dim dt As DataTable = DataTables("兑付明细表")
For Each dr As DataRow In dt.DataRows
Tables("兑付明细表").Filter ="dr.RowState = DataRowState.Added "
Next

提示：未找到列 [dr.RowState]。

怎么修改？请指教，谢谢！

有点甜

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

加好友

发短信

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

Post By：2019/6/25 18:11:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/topics/0450.htm

rgbjwjb

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

加好友

发短信

等级：三尾狐帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2019/6/26 9:05:00 [只看该作者]

在窗体加载事件中的代码是这样的：

For Each r1 As Row In Tables("收款明细表").GetCheckedRows
    Dim r2 As Row = Tables("兑付明细表").AddNew
    r2("收据号码") = r1("收据号码")
    r2("兑付日期") = Date.Today
    r2("借款日期") = r1("借款日期")
    r2("借款金额") = r1("收取金额")
    r2("借款年限") = r1("借款年限")
    r2("利率") = r1("利率")
    r2("债权人") = r1("债权人")
    Dim t As TimeSpan
    Dim d As Date = r1("借款日期")
    t = Date.Today - d
    r2("借款天数")=t.TotalDays
    r2("利息")=r2("借款金额") *r2("利率") * r2("借款天数")/360
    r1("是否兑付") = True

Next
MainTable = Tables("兑付明细表")
Tables("兑付明细表").StateFilter = StateFilterEnum.Added

预览后显示：未将对象引用设置对象实例，且闪烁不停，怎么修改？请指教！谢谢！！