主题：高级筛选细节实现

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目22.table

老师 ，代码在表B的datachanged事件中，

想要实现的效果：

 

您根据代码应该能看懂我的 意思

 

麻烦老师了，

 

测试没有问题，确定你的代码放对了事件？？

此主题相关图片如下：1.png

 

您看上图我输入了出生日期，值那边并没有出现，在datacolchanged事件中，简直神了

好了好了，因为我窗口中引用表,作为副本选择了true,,

 

老师，您看我的代码严谨不，有么有判断不严谨的地方 ，请老师指点？

严谨不严谨是相对的。结合你的项目看才知道

If e.DataCol.name = "字段" Then
  If e.DataCol.  Then
          e.DataRow("操作符") = ""
          e.DataRow("逻辑") = ""
          Tables("筛选").grid.cols("值").Editor = new windows.forms.TextBox
          Return
  Else
    Dim t As Table = Tables("person")
    Dim Index As Integer=Array.Indexof(nums2,e.newvalue)
    If t.cols.contains(nums1(Index)) Then
        e.DataRow("操作符") = "等于"
        e.DataRow("逻辑") = "并且"
        If t.cols(nums1(Index)).IsDate Then
             Tables("筛选").grid.cols("值").Editor = new windows.forms.DateTimePicker
        Else
             Tables("筛选").grid.cols("值").Editor = new windows.forms.TextBox
        End If
    End If
 End If

End If

 

老师，红色那部分 ，如果字段为空的话，就设置成下面那样的？那个判断条件怎么写呀

http://www.foxtable.com/webhelp/scr/0426.htm

感谢老师

Dim frm As winform.Form = e.Form
Dim Tbl As Table = frm.Controls("Table1").Table
Dim FltStr As String
Dim i As Integer
Dim drs As List(of DataRow) = Tbl.DataTable.Select("")
Dim dr As DataRow
Dim dc As DataCol
Dim luoJi As String
Dim caoZuo As String

For i = 0 To drs.Count - 1
    dr = drs(i)
    If dr.IsNull("字段") Then
        msgbox("第" & i+1 & "行字段未填写!")
        Tbl.Select(i,0)
        Return
    Else

        If dr("逻辑")="并且"  Then
            luoJi="And"
        Else
            luoJi="Or"
        End If
       
        Select Case dr("操作符")
            Case "1"
                caoZuo = " = "
            Case "2"
                caoZuo = " > "
            Case "3"
                caoZuo = " < "
            Case "4"
                caoZuo = " >= "
            Case "5"
                caoZuo = " <= "
            Case "6"
                caoZuo = " <> "
        End Select

        FltStr = FltStr & dr("字段") & caoZuo & dr("值") & luoJi
    End If
Next
If FltStr > "" Then
    
    If FltStr.EndsWith(" And ") Then
        FltStr = FltStr.SubString(5)
    ElseIf FltStr.EndsWith(" Or ") Then
        FltStr = FltStr.SubString(4)
    End If
End If
'筛选代码
If Tbl.Rows.Count > 0 Then Tbl.Select(0,0)
Tables("person").Filter = FltStr

 

 

老师，您帮我看看我这段代码哪里有问题呀？

Dim frm As winform.Form = e.Form
Dim Tbl As Table = frm.Controls("Table1").Table
Dim FltStr As String = ""
Dim i As Integer
Dim drs As List(of DataRow) = Tbl.DataTable.Select("")
Dim dr As DataRow
Dim dc As DataCol
Dim luoJi As String
Dim caoZuo As String

For i = 0 To drs.Count - 1
    dr = drs(i)
    If dr.IsNull("字段") Then
        msgbox("第" & i+1 & "行字段未填写!")
        Tbl.Select(i,0)
        Return
    Else

        If dr("逻辑")="并且"  Then
            luoJi=" And "
        Else
            luoJi=" Or "
        End If
       
        Select Case dr("操作符")
            Case "等于"
                caoZuo = " = "
            Case "大于"
                caoZuo = " > "
            Case "小于"
                caoZuo = " < "
            Case "大于等于"
                caoZuo = " >= "
            Case "小于等于"
                caoZuo = " <= "
            Case "不等于"
                caoZuo = " <> "
        End Select

        FltStr = FltStr & dr("字段") & caoZuo & "'" & dr("值") & "'" & luoJi
    End If
Next
If FltStr > "" Then    
    If FltStr.EndsWith(" And ") Then
        FltStr = FltStr.SubString(0, fltstr.length-5)
    ElseIf FltStr.EndsWith(" Or ") Then
        FltStr = FltStr.SubString(0, fltstr.length-4)
    End If
End If
'筛选代码
If Tbl.Rows.Count > 0 Then Tbl.Select(0,0)
msgbox(fltstr)
'Tables("person").Filter = FltStr