以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】查找表中是否分期等于要分期的数据，如果查找到有，那么就新增账单分期一条数据，结果是否分期等于不分期的也分期了？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108093)
--  作者：李孝春
--  发布时间：2017/10/16 11:03:00
--  【求助】查找表中是否分期等于要分期的数据，如果查找到有，那么就新增账单分期一条数据，结果是否分期等于不分期的也分期了？
【求助】查找表中是否分期等于要分期的数据，如果查找到有，那么就新增账单分期一条数据，结果是否分期等于不分期的也分期了？
代码如下：
Dim dr As DataRow = DataTables("银行卡账单").Find("[是否分期] = \'要分期\'")
If dr IsNot Nothing Then
    MessageBox.Show("有数据")
    Tables("银行卡账单.账单分期").AddNew()
Else
    MessageBox.Show("没有数据")
End If
--  作者：有点甜
--  发布时间：2017/10/16 12:25:00
--  

Dim drs = DataTables("银行卡账单").Select("[是否分期] = \'要分期\'")
If drs.count > 0 Then
    MessageBox.Show("有数据")
    For Each dr As DataRow In drs
        Dim nr As DataRow = DataTables("账单分期").AddNew()
        nr("银行卡号") = dr("银行卡号")
    Next
Else
    MessageBox.Show("没有数据")
End If