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("银行卡号") NextElse MessageBox.Show("没有数据")End If