你需求这么奇葩,数据量又那么多,耗时是肯定的啊。试试代码
DataTables("应付款项").DataCols("客户").RaiseDataColChanged() '重置客户列
For Each ary() As String In DataTables("应付款项").GetValues( "司机|车牌|出车日期", "出车日期 is not null")
Dim filter As String = "司机 = '" & ary(0) & "' and 车牌 = '" & ary(1) & "' and 出车日期 = #" & ary(2) & "#"
Dim fdr As DataRow = DataTables("应付款项").Find(filter)
DataTables("应付款项").DataCols("司机").RaiseDataColChanged(fdr)
Next
[此贴子已经被作者于2015/11/16 16:45:31编辑过]