筛选结果正常,但筛选完后报错:无法在 System.String 和 System.Int32 上执行“=”操作。另外我想在控件ComboBox上加fill的窗口数据表"生产明细_table1"的显示列和取值列内容是怎么加呢?
Dim stade As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim Endde As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
'Dim pd01 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim cs01 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cs02 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim cs03 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim cs04 As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim dt As DataTable=DataTables("生产明细_table1")
Dim filter As String = "1=1"
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
If stade.text >"" Then
Filter = Filter & " And "
End If
' filter= filter & " and a.InDate >='" & stade.text & "'"
filter= filter & "[制单日期] >='" & stade.text & "'"
End If
End With
With e.Form.Controls("DateTimePicker2")
If .Value IsNot Nothing Then
If Endde.text>"" Then
Filter = Filter & " And "
End If
' filter=filter & " and a.InDate <= '" & Endde.text & "'"
filter=filter & "[制单日期] <= '" & Endde.text & "'"
End If
End With
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If cs01.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[物供号] = '" & cs01.text & "'"
End If
End With
With e.Form.Controls("ComboBox2")
If .Value IsNot Nothing Then
If cs02.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[类别] = '" & cs02.text & "'"
End If
End With
With e.Form.Controls("ComboBox3")
If .Value IsNot Nothing Then
If cs03.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[厂号] = '" & cs03.text & "'"
End If
End With
With e.Form.Controls("ComboBox4")
If .Value IsNot Nothing Then
If cs04.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[客款号] = '" & cs04.text & "'"
End If
End With
If Filter > "" Then
' dt.LoadFilter=filter
Tables("生产明细_table1").Filter=filter
' dt.Load()
End If
是这两段建立关联的代码引起的,我注释掉后,筛选完后就不会报错:无法在 System.String 和 System.Int32 上执行“=”操作。
' Relations.Add("CN",DataTables("生产明细_table1").DataCols("订单号"),DataTables("产能").DataCols("订单号"))
' With Tables("生产明细_table1")
' Dim cn As Table = Tables("产能")
' If .Current Is Nothing Then
' cn.Filter = "False"
' Else
' cn.Filter = "订单号 = " & .Current("订单号")
' End If
' End With
' Relations.Add("pd",DataTables("生产明细_table1").DataCols("订单号"),DataTables("排单状态").DataCols("订单号"))
' With Tables("生产明细_table1")
' Dim pd As Table = Tables("排单状态")
' If .Current Is Nothing Then
' pd.Filter = "False"
' Else
' pd.Filter = "订单号 = " & .Current("订单号")
' End If
' End With
[此贴子已经被作者于2018/6/7 11:16:52编辑过]