我在Access 2013中使用了下面的代码(从网站上获取了它)。它没有任何问题。
Private Declare Function GdipCreateBitmapFromFile Lib "gdiplus.dll" (ByVal FileName As Long, bitmap As Long) As Long
If GdipCreateBitmapFromFile(StrPtr(sFileName), hPic) = 0 Then ....
Run Code Online (Sandbox Code Playgroud)
在删除Access 2013 64位运行时安装的32位组件后,出现编译器错误。我在声明后添加PtrSafe,编译器就可以了。
Private Declare PtrSafe Function GdipCreateBitmapFromFile Lib "gdiplus.dll" (ByVal FileName As Long, bitmap As Long) As Long
If GdipCreateBitmapFromFile(StrPtr(sFileName), hPic) = 0 Then ....
Run Code Online (Sandbox Code Playgroud)
但是,它将出现运行时错误-StrPtr中的类型不匹配。不知道如何解决。
SQL 适用于 Microsoft SQL Server 2014。
计算前原始查询结果表如下。它按 Item 和 OrderDate 排序。库存数量是当前可用数量。每个项目的记录都是相同的。将按照先序先服务的规则依次完成订单。需要计算 BalanceQty,即满足该记录后的可用数量。
原始查询记录:
Item OrderDate OrderQty InventoryQty
Item1 2016/11/01 3 10
Item1 2016/11/03 4 10
Item1 2016/11/09 2 10
Item1 2016/11/10 1 10
Item1 2016/11/11 5 10
Item1 2016/11/15 6 10
Item1 2016/11/20 3 10
Item2 2016/11/11 7 15
Item2 2016/11/13 4 15
Item2 2016/11/19 5 15
Item2 2016/11/20 6 15
Run Code Online (Sandbox Code Playgroud)
BalanceQty 的预期查询结果。
Item OrderDate OrderQty InventoryQty BalanceQty
Item1 2016/11/01 3 10 7
Item1 2016/11/03 4 10 3
Item1 2016/11/09 …Run Code Online (Sandbox Code Playgroud)