-- 作者:liuyixin662
-- 发布时间:2021/8/28 17:23:00
-- [求助]加载出错
老师你好,加载出错,麻烦看一下是什么原因
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Product As String = dr("客户名称")
Dim Product1 As String = dr("入库单号")
Dim st As String = dr("审核人")
Select Case e.Node.Level
Case 0
Filter ="Year(录入日期) = " & Year And st=""
Case 1
Filter ="Year(录入日期) = " & Year & " And Month(录入日期) = " & Month And st=""
End Select
DataTables("来料加工入库主表").LoadFilter = Filter
DataTables("来料加工入库主表").Load() 此主题相关图片如下:出错.png
|