请问一下，当我“贷款每日进度表”中“最新进度”这一列的值为“放款”时，在“已放款”这个表会自动增加此行，现在的问题是： - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "最新进度" AndAlso e.DataRow("最新进度") = "放款" Then

Dim nma() As String = {"进件日期","分类","部门或渠道","客户经理","客户名字","客户手机号","产品名称","期数","进件额度","批款日期","批款额度","放款日期","放款额度","最新进度","备注"} 'A表数据来源列

Dim nmb() As String = {"进件日期","分类","部门或渠道","客户经理","客户名字","客户手机号","产品名称","期数","进件额度","批款日期","批款额度","放款日期","放款额度","最新进度","备注"}'B表数据接收列

Dim dr1 As DataRow = DataTables("已放款").find("客户名字='" & e.DataRow("客户名字") & "'") '自己改为合适的查询条件

If dr1 Is Nothing Then

Dim dr As DataRow = DataTables("已放款").AddNew

End If

For i As Integer = 0 To nma.Length - 1

dr(nmb(i)) = e.DataRow(nma(i))

End If

主题：请问一下，当我“贷款每日进度表”中“最新进度”这一列的值为“放款”时，在“已放款”这个表会自动增加此行，现在的问题是：