Dim Filter As String
With e.Form.Controls("DropBox1")
If .Value IsNot Nothing Then
Filter = "内部加工单号 in ('" & .Value.replace(",","','") & "')"
End If
End With
With e.Form.Controls("combobox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "工段 = '" & .Value & "'"
End If
End With
With e.Form.Controls("DropBox3")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "产品名称 = '" & .Value & "'"
End If
End With
If Filter > "" Then
DataTables("工序库调用_Table1").LoadFilter = Filter '设置加载条件
DataTables("工序库调用_Table1").Load()
End If
Dim cmd1 As New SQLCommand
Dim dt As DataTable
Dim Val As Double
Dim val1 As Double
Dim s As Integer
cmd1.C
cmd1.CommandText = "SEL ECT * From {派工明细表} " & iif(Filter>"", "Where " & filter, "")
dt = cmd1.ExecuteReader()
For Each r As Row In Tables("工序库调用_table1").Rows
Val = dt.SQLCompute("Sum(派工量)"," 编号= '" & r("编号") & "'")
val1 = dt.SQLCompute("Sum(部件派工)"," 编号= '" & r("编号") & "'")
r("可派工量") = r("工序数量") - val
r("部件余量") = r("部件量") - val1
Next
Tables("工序库调用_table1").Filter = "[可派工量] > 0 "
e.Form.Controls("TreeView1").BuildTree("工序库调用_table1", "工段|工序名称|产品名称")
e.Form.Controls("TreeView2").BuildTree("工序库调用_table1", "产品名称|工段|工序名称")
不加入：Tables("工序库调用_table1").Filter = "[可派工量] > 0 "，加载没有问题
请教加入'Tables("工序库调用_table1").Filter = "[可派工量] > 0 "这个条件时.
提示:
无法再system.string 和system.int32上执行>操作
加好友 
发短信
Post By：2016/12/6 18:01:00 [只看该作者]
