请C#大侠帮忙翻译这段代码为VB.Net的,谢谢了!

发布网友发布时间：2022-05-03 02:43

共2个回答

热心网友时间：2023-10-08 14:51

Private Sub gridLookUpEdit1_Popup(ByVal sender As Object, ByVal e As EventArgs)
FilterLookup(sender)

End Sub

Private Sub FilterLookup(ByVal sender As Object)
Text += " ! "
Dim edit As GridLookUpEdit = TryCast(sender, GridLookUpEdit)
Dim gridView As GridView = TryCast(edit.Properties.View, GridView)
Dim fi As FieldInfo = gridView.[GetType]().GetField("extraFilter", BindingFlags.NonPublic Or BindingFlags.Instance)
Text = edit.AutoSearchText
Dim op1 As New BinaryOperator("Code", edit.AutoSearchText + "%", BinaryOperatorType.[Like])
Dim op2 As New BinaryOperator("Name", edit.AutoSearchText + "%", BinaryOperatorType.[Like])
Dim filterCondition As String = New GroupOperator(GroupOperatorType.[Or], New CriteriaOperator() {op1, op2}).ToString()
fi.SetValue(gridView, filterCondition)

Dim mi As MethodInfo = gridView.[GetType]().GetMethod("ApplyColumnsFilterEx", BindingFlags.NonPublic Or BindingFlags.Instance)
mi.Invoke(gridView, Nothing)
End Sub

Private Sub gridLookUpEdit1_EditValueChanging(ByVal sender As Object, ByVal e As ChangingEventArgs)
Me.BeginInvoke(New System.Windows.Forms.MethodInvoker(Function() Do FilterLookup(sender) End Function))
End Sub

热心网友时间：2023-10-08 14:51

This is because our procts can not be temporarily packaging (missing labels), the warehouse is also available in sets of 2525, can defer the delivery date follow-up »