应该不是这句代码的问题,
Tables("存货出入库窗口_Table2").Fill("Select a.索引标识,a.库存数量,a.单价,a.库存金额 Fro m {仓库} a INNER JOIN (Select 索引标识,Max(行标识) As 行标识 Fro m {仓库} Group By 索引标识) b on a.索引标识 = b.索引标识 And a.行标识 = b.行标识 where a.存货三级明细 ='" & e.for m.controls("ComboBox3").text & "' Order By a.索引标识",True)
‘下面提示框能不能弹出?
msgbox("Select a.索引标识,a.库存数量,a.单价,a.库存金额 Fro m {仓库} a INNER JOIN (Select 索引标识,Max(行标识) As 行标识 Fro m {仓库} Group By 索引标识) b on a.索引标识 = b.索引标识 And a.行标识 = b.行标识 where a.存货三级明细 ='" & e.for m.controls("ComboBox3").text & "' Order By a.索引标识")