回复 11楼 lowxiong
版主，试了你的2种方法我觉得都不怎么适合我，现在我自己想到一种方法，并且已经实施成功，先说来一起分享一下，
1.在sql中建1个临时表，名叫送货单临时表
2.点击查询的时候，自动将所查询的东西写入送货单临时表
3.当点击删除的时候自动获取所要删除的单号
4.用sql语句删除送货单临时表中的信息
5.更新adodc1控件，就可以达到我的目地了
呵呵，还望版主以后多指教
Private Sub Command7_Click()
删除指定编号的源码
列序号 = 0
If Adodc1.Recordset.EOF = True Then
MsgBox "没有记录可供删除！", vbOKOnly, "温馨提示"
Else
If MsgBox("你真的不需要打印这个订单编号的送货单吗？", vbOKCancel, "温馨提示") = vbOK Then
DataGrid1.AllowDelete = True
strSQL = "delete from 送货单临时表 where 订单编号='" & 订单编号 & "'"
cn.Open strCn
rs.Open strSQL, cn
cn.Close
DataGrid1.AllowDelete = False
sql1 = "Select 订单编号,日期,地域,负责人,酒店名称,厨房,货物名称,订货量,出库数量,单价,单位,所属公司 from 送货单临时表 order by 日期,地域,负责人,酒店名称,厨房,排序号,序号"
Adodc1.RecordSource = sql1
Adodc1.Refresh
Call 送货单确定列表框长度
MsgBox "删除订单编号成功", vbOKOnly, "温馨提示"
列序号 = 1
End If
End If
End Sub
Private Sub Command6_Click() 查询的源码
列序号 = 0
strSQL = "delete from 送货单临时表"
cn.Open strCn
rs.Open strSQL, cn
cn.Close
If Text3.Text = "" Then
If CheckBox1.Value = True Then
strSQL = "insert into 送货单临时表(序号,订单编号,日期,地域,负责人,酒店名称,厨房,货物名称,订货量,出库数量,单价,单位,所属公司,排序号) select
出库单.序号,出库单.订单编号,出库单.日期,出库单.地域,出库单.负责人,出库单.酒店名称,出库单.厨房,出库单.货物名称,出库单.订货量,出库单.出库数量,出库单.单价,酒店货品信息表.单位,出库单.所属公司,出库单.排序号 from 出库单,酒店货品信息表 where 出库单.酒店名称=酒店货品信息表.酒店名称 and 出库单.厨房=酒店货品信息表.厨房 and
出库单.货物名称 = 酒店货品信息表.货物品名 and
出库单.酒店名称 like '%" & Text2.Text & "%' And (出库单.日期 between '" & text1.Value & "'and '" & DTPicker1.Value & "')and 出库单.负责人 like '%" & Combo1.Text & "%' and 出库单.地域 like '%" & Combo2 & "%' "
cn.Open strCn
rs.Open strSQL, cn
cn.Close
sql1 = "Select 订单编号,日期,地域,负责人,酒店名称,厨房,货物名称,订货量,出库数量,单价,单位,所属公司 from 送货单临时表 where 酒店名称 like '%" & Text2.Text & "%' And (日期 between '" & text1.Value & "'and '" & DTPicker1.Value & "')and 负责人 like '%" & Combo1.Text & "%' and 地域 like '%" & Combo2 & "%' order by 日期,地域,负责人,酒店名称,厨房,排序号,序号"
Adodc1.RecordSource = sql1
Adodc1.Refresh
Call 送货单确定列表框长度
Else
MsgBox "请选择日期！", vbOKOnly, "错误提示"
Exit Sub
End If
Else
strSQL = "insert into 送货单临时表(序号,订单编号,日期,地域,负责人,酒店名称,厨房,货物名称,订货量,出库数量,单价,单位,所属公司,排序号) select 出库单.序号,出库单.订单编号,出库单.日期,出库单.地域,出库单.负责人,出库单.酒店名称,出库单.厨房,出库单.货物名称,出库单.订货量,出库单.出库数量,出库单.单价,酒店货品信息表.单位,出库单.所属公司,出库单.排序号 from 出库单,酒店货品信息表 where 出库单.酒店名称=酒店货品信息表.酒店名称 and 出库单.厨房=酒店货品信息表.厨房 and
出库单.货物名称 = 酒店货品信息表.货物品名 and
出库单.订单编号 like '%" & Text3.Text & "%'order by 出库单.日期,出库单.地域,出库单.负责人,出库单.酒店名称,出库单.厨房,出库单.排序号,出库单.序号"
cn.Open strCn
rs.Open strSQL, cn
cn.Close
sql1 = "Select 订单编号,日期,地域,负责人,酒店名称,厨房,货物名称,订货量,出库数量,单价,单位,所属公司 from 送货单临时表 where 订单编号 like '%" & Text3.Text & "%'order by 日期,地域,负责人,酒店名称,厨房,排序号,序号"
Adodc1.RecordSource = sql1
Adodc1.Refresh
Call 送货单确定列表框长度
End If
列序号 = 1
End Sub
