If FileSys.FileExists(ProjectPath & "\xz\DZ0107" & d1 & ".o")
cmd.CommandText = "de lete from {生成}"
cmd.ExecuteNonQuery
Dim txt As String = FileSys.ReadAllText(ProjectPath & "\xz\DZ0107" & d1 & ".o",Encoding.Default)
cmd.CommandText = "Insert Into {生成}(银行代码,还款类型,罚息金额,归还日期,本金,利息,逾期,贷款余额,余额正负,借款人姓名,银行机构代码,银行机构代码前8位,机构数字) Values(?,?,?,?,?,?,?,?,?,?,?,?,?)"
Dim ary() As String = txt.split("|")
For i As Integer = 3 To ary.Length-1
cmd.Parameters.Clear
If (i-3) Mod 17=0
cmd.Parameters.Add("@银行代码","20")
cmd.Parameters.Add("@还款类型","02")
cmd.Parameters.Add("@罚息金额","0")
cmd.Parameters.Add("@归还日期",ary(i).Substring(0,4) & "-" & ary(i).Substring(4,2) & "-" & ary(i).Substring(6,2))
Else '不符合条件的时候也必须添加这些列
cmd.Parameters.Add("@银行代码",Nothing)
cmd.Parameters.Add("@还款类型",Nothing)
cmd.Parameters.Add("@罚息金额",Nothing)
cmd.Parameters.Add("@归还日期",Nothing)
End If
If (i-9) Mod 17=0
If ary(i)=""
cmd.Parameters.Add("@本金","0")
Else
cmd.Parameters.Add("@本金",ary(i))
End If
Else '不符合条件的时候也必须添加这些列
cmd.Parameters.Add("@本金","0")
End If
……
加好友 
发短信
Post By：2018/10/10 8:58:00 [只看该作者]
