Dim max As String
max = DataTables("生产订单").Compute("Max(_identify)") '取得该天的最大编号
If max > "" Then '如果存在最大编号
DataTables("生产订单").Save()
Dim f As New Filler
f.SourceTable = DataTables("夏凡尼订单") '指定数据来源
f.SourceCols = "生产下单,交货日期,客户,字样,型号,规格,茶几,数量,单位,皮号,备注,订单编号,订单日期" '指定数据来源列
f.DataTable = DataTables("生产订单") '指定数据接收表
f.DataCols = "生产日期,交货日期,客户,字样,型号,规格,茶几,数量,单位,材质,备注,订单编号,订单日期" '指定数据接收列
f.ExcludeExistValue=True
f.Filter= "[生产下单] is not null and [生产下单] > #" & Date.Today.AddDays(10) & "#"
f.Fill() '填充数据
If DataTables("生产订单").haschanges Then
MessageBox.Show("导入成功","提示")
Else
MessageBox.Show("导入失败","提示")
End If
DataTables("生产订单").Save()
'一定要在保存后合成信息,因为新增行的主键在保存后才生成
Dim msg As String = "M#" & "生产订单" & "#" & max
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
MessageBox.Show(msg)
End If
加好友 
发短信
Post By：2015/11/18 14:30:00 [显示全部帖子]
