如果有数据填充过去,提示“下单成功”
没有变化,提示“下单失败”
If user.name = "开发者"
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 & "#"
f.Fill() '填充数据
Else
MessageBox.show("您没有下单权限","提示",MessageBoxButtons.OK)
End If