以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136970)
--  作者：rgbjwjb
--  发布时间：2019/6/25 16:46:00
--  数据加载
我在窗体中添加了一个表控件，该控件绑定表为“兑付明细表”，我想在打开窗体后，表控件只加载新增的行，已经保存过的记录不加载，请问afterload事件的代码怎么写？谢谢！
--  作者：y2287958
--  发布时间：2019/6/25 16:55:00
--  
判断行状态 DataRowState.Added
--  作者：rgbjwjb
--  发布时间：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]。

怎么修改？请指教，谢谢！
--  作者：有点甜
--  发布时间：2019/6/25 18:11:00
--  

参考

 

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

 
--  作者：rgbjwjb
--  发布时间：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

 

预览后显示：未将对象引用设置对象实例，且闪烁不停，怎么修改？请指教！谢谢！！
--  作者：有点甜
--  发布时间：2019/6/26 9:26:00
--  
上传具体实例测试
--  作者：rgbjwjb
--  发布时间：2019/6/26 11:01:00
--  

链接：https://pan.baidu.com/s/1FW0CmLpRzSt2UNRjIWIpPQ
提取码：am3p
融资管理》台账管理》兑付窗体、利息窗体，我想在利息窗体的表控件中只显示新增的记录并打印（因为兑付利息可以分批兑付，已兑付的不能重复兑付）。

请指教，谢谢！！
--  作者：有点甜
--  发布时间：2019/6/26 12:01:00
--  

删除这句代码

 

\'MainTable = Tables("兑付明细表")
--  作者：rgbjwjb
--  发布时间：2019/6/26 14:06:00
--  

删除后还是同样的提示
--  作者：rgbjwjb
--  发布时间：2019/6/26 14:15:00
--  

删除后还是同样的提示：未将对象引用设置对象实例，但不闪烁了，表控件中也没有数据，