关联表没有必要load，明细表的加载参考：http://www.foxtable.com/webhelp/scr/2228.htm
然后代码改为
Dim ym As WinForm.TextBox = e.Form.Controls("页码")
Dim je As WinForm.TextBox = e.Form.Controls("金额")
Dim hjms As WinForm.TextBox = e.Form.Controls("合计米数")
DataTables("销售出库单表").LoadFilter = " 审核状态 = 0 "
DataTables("销售出库单表").Load()
If Tables("销售出库单表").Rows.Count >0 Then
Dim kcxs As WinForm.TextBox = e.Form.Controls("库存显示")
If Tables("销售出库单表.销售出库单明细表").Rows.Count > 0 Then
je.Value = Tables("销售出库单表.销售出库单明细表").Compute("sum([金额])")
hjms.Value = Tables("销售出库单表.销售出库单明细表").Compute("sum([米数])")
Dim dr1 As DataRow
dr1 = DataTables("库存表").SQLFind("产品编号 = '" & Tables("销售出库单表.销售出库单明细表").Current("产品编号") & "'")
If dr1 IsNot Nothing Then
kcxs.Value = "现在库存:" & dr1("库存米数") + dr1("未过账米数") & "米"
Else
kcxs.Value = "现在库存:" & 0
End If
Else
kcxs.Value = "现在库存:" & 0
End If
Tables("销售出库单表.销售出库单明细表").AllowEdit =False
Tables("销售出库单表").AllowEdit = False
ym.Value = "还有" & " '" & Tables("销售出库单表").Rows.Count & "' " & "张单据未审核." & "现在是第" & " '" & Tables("销售出库单表").Current.Index +1 & "' " & "张"
End If
加好友 
发短信
Post By：2016/10/18 15:09:00 [显示全部帖子]
