Dim cmd As New SQLCommand
cmd.CommandText = "SｅLECT * From {应付款采购收piao明细表} WHERE 供应商编号 NOT IN (SｅLECT DISTINCT 供应商编号 From {应付款尚未收piao明细表})"
Dim dt As DataTable = cmd.ExecuteReader()
Dim dr100 As DataRow
For Each dr99 As DataRow In dt.DataRows
dr100 = DataTables("应付款尚未收piao明细表").Find("结算明细号='" & dr99("结算明细号") & "' and 月份='" & dr99("月份") & "' and 供应商编号='" & dr99("供应商编号") & "'")
If dr100 IsNot Nothing Then
dr100("开piao_日期") = dr99("开piao_日期")
dr100("开piao_号码") = dr99("开piao_号码")
End If
Next
'Dim f As New Filler
'f.SourceTable = dt
'f.SourceCols = "开piao_日期,开piao_号码" '指定数据来源列
'f.DataTable = DataTables("应付款尚未收piao明细表")
'f.DataCols = "开piao_日期,开piao_号码" '指定数据接收列
'f.Append = False
'f.Fill() '填充数据
'
加好友 
发短信
Post By：2016/11/18 14:48:00 [显示全部帖子]
