Dim drs1 As List(Of DataRow) For n As Integer=0 To Tables("合同").Rows.Count-1 Dim rr As Row =Tables("合同").Rows(n) If rr("是否展期") = "是" Then drs1 = DataTables("利息").Select("本期结息日= #" & Date.today & "# And 合同编号='" & rr("合同编号") & "'") For Each dr1 As DataRow In drs1 Next End If Next
加好友 
发短信
Post By：2011/8/11 14:41:00 [显示全部帖子]
