回复 20楼 w360989426
版主,现在不讨论这个问题,1.现在问题的关键是你写的那段程序在一种情况下会出错
2.将以下代码替换下,在界面初始化的时候,datagrid中会有数据,你去点击删除的话会报错,请版主试试看
替换代码如下:
Sub 送货单确定时间和初始化控件()
Text1.Enabled = False
DTPicker1.Enabled = False
sql2 = "select 出库单.订单编号,出库单.日期,出库单.地域,出库单.负责人,出库单.酒店名称,出库单.厨房,出库单.货物名称,出库单.订货量,出库单.出库数量,出库单.单价,酒店货品信息表.单位,出库单.所属公司 from 出库单,酒店货品信息表 where 出库单.酒店名称=酒店货品信息表.酒店名称 and 出库单.厨房=酒店货品信息表.厨房 and 出库单.货物名称 = 酒店货品信息表.货物品名 and 出库单.酒店名称 like '%湖州%'order by 出库单.地域,出库单.日期,出库单.负责人,出库单.酒店名称,出库单.厨房,出库单.排序号,出库单.序号"
Adodc1.RecordSource = sql2
Adodc1.Refresh
End Sub