If e.DataCol.Name = "幣種" OrElse e.DataCol.Name = "匯率" Then
Dim dr As DataRow
Dim Filter As String
Filter = "[幣種] = '" & e.DataRow("幣種")
dr = DataTables("貨幣名稱").Find(Filter ) '
If dr IsNot Nothing Then '
e.DataRow("匯率") = dr("匯率")
Else
e.DataRow("匯率") = Nothing
End If
End If
这个有问题,想想改变的字段是汇率的情况下,会发生什么问题?!
是会造成死循环一直更新下去的!