主题：有关流水账的CASE STUDY

大大，我现在已经弄好库存表了，但是在出入库数的时段内汇总时出现麻烦：

以下是我的代码：
Dim pr1 As DataRow = e.DataRow.GetParentRow("库存起始")    ‘从主表取时段
Dim pr2 As DataRow = e.DataRow.GetParentRow("库存截止")

’以下是根据时段，计算出入库数量
Dim Sum1 As Double = DataTables("入库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 日期 >= #" & pr1 & "# And 日期 <= #" & pr2 & "#")
Dim Sum2 As Double = DataTables("出库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 日期 >= #" & pr1 & "# And 日期 <= #" & pr2 & "#")

'最后赋值
e.DataRow("入库数量")=sum1
e.DataRow("出库数量")=sum2

我把它写在了盘点明细表的datacolchanged事件里。
显示的错误信息：没有为object和datarow定义运算符 "&"

代码可能不止一个问题，能帮我看一下吗？主要是用到取父表，和日期段判断。明天就要盘点啦，大大帮忙，谢谢~~

Dim Sum1 As Double = DataTables("入库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 日期 >= #" & pr1("日期") & "# And 日期 <= #" & pr2("日期") & "#")
Dim Sum2 As Double = DataTables("出库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 日期 >= #" & pr1("日期") & "# And 日期 <= #" & pr2("日期") & "#")

Dim pr1 As DataRow = e.DataRow.GetParentRow("库存起始")
Dim pr2 As DataRow = e.DataRow.GetParentRow("库存截止")

Dim Sum1 As Double = DataTables("入库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 入库日期 >= #" & pr1("库存起始") & "# And 入库日期 <= #" & pr2("库存截止") & "#")
Dim Sum2 As Double = DataTables("出库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 出库日期 >= #" & pr1("库存起始") & "# And 出库日期 <= #" & pr2("库存截止") & "#")

e.DataRow("入库数量")=sum1
e.DataRow("出库数量")=sum2

---------------------------
上面的代码，重置例的时候报错：

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：表，盘点明细表， DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

看了代码好像逻辑没有问题啊

此主题相关图片如下：新建位图图像.bmp

Dim pr1 As DataRow = e.DataRow.GetParentRow("库存起始")
Dim pr2 As DataRow = e.DataRow.GetParentRow("库存截止")

If pr1 IsNot Nothing AndAlso pr2 IsNot Nothing Then
    Dim Sum1 As Double = DataTables("入库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 入库日期 >= #" & pr1("库存起始") & "# And 入库日期 <= #" & pr2("库存截止") & "#")
    Dim Sum2 As Double = DataTables("出库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 出库日期 >= #" & pr1("库存起始") & "# And 出库日期 <= #" & pr2("库存截止") & "#")
   
    e.DataRow("入库数量")=sum1
    e.DataRow("出库数量")=sum2
Else
    e.DataRow("入库数量")=Nothing
    e.DataRow("出库数量")=Nothing
End If

真的是奇怪了，还是报错，我仔细检查了，表名列名也是没有问题的啊，一般这种错误是什么情况引起的？

-----------------

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：表，盘点明细表， DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

 

此主题相关图片如下：111.bmp


此主题相关图片如下：222.bmp


此主题相关图片如下：333.bmp

不应该啊，还报错上传具体例子。

 

If e.DataCol.name = "存货编码" Then
    Dim pr1 As DataRow = e.DataRow.GetParentRow("库存起始")
    Dim pr2 As DataRow = e.DataRow.GetParentRow("库存截止")
   
    If pr1 IsNot Nothing AndAlso pr2 IsNot Nothing Then
        Dim Sum1 As Double = DataTables("入库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 入库日期 >= #" & pr1("库存起始") & "# And 入库日期 <= #" & pr2("库存截止") & "#")
        Dim Sum2 As Double = DataTables("出库明细").Compute("Sum(数量)", "存货编码 ='" & e.DataRow("存货编码") & "'And 出库日期 >= #" & pr1("库存起始") & "# And 出库日期 <= #" & pr2("库存截止") & "#")
       
        e.DataRow("入库数量")=sum1
        e.DataRow("出库数量")=sum2
    Else
        e.DataRow("入库数量")=Nothing
        e.DataRow("出库数量")=Nothing
    End If
   
end if

实在是没办法了，还是报错，大大帮我看看吧

If e.DataCol.name = "存货编码" Then
    Dim pr1 As DataRow = e.DataRow.GetParentRow("盘点单")
    Dim pr2 As DataRow = e.DataRow.GetParentRow("盘点单")

对不起了，因为这个错误引得你浪费这么多的时间。

对代码的理解还不够。

 

不过FT真强大，我还学了不到10%的FT，已经完成自己的生产和进销存系统了。

等我能理解到50%，相信会会更完美了。

可以再问一下傻瓜问题吗？

 

为什么我设置好了盘点单的打印格式，到最后打印出来时像是没有设置打印区域一样。

都挤到左上角去了。

 

看了一下<END>什么的设置，应该没有问题了啊。

模板设置的时候，用EXCEL自己预览也已经没有问题了。

 

但是打印出报表后，再用EXCEL预览就错了