打开窗口出现错误提示,怎么也找不出问题出在哪(窗口加载前出的错误提示),(执行sql命令正确加载数据)
AfterLoad:
Dim tb As Table =Tables("采购需求计算_table1")
If Forms("采购需求计算").Opened()
tB.Fill(" select [物供号] as 物供号,[款号] as 款号,[货品名] as 货品名,[客款号] as 客款号,sum(isnull([重要信息_数量],0)) as 数量,[_Identify] as 订单号 f rom [销售订单明细] group by [物供号],[款号],[货品名],[客款号],[_Identify] order by [款号] " , "lucifer",True)
End If
Dim wgh As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If wgh.text Is Nothing Then
Tables("采购需求计算_table1").Filter = "false"
End If
[此贴子已经被作者于2018/10/20 11:42:49编辑过]