主题：高级筛选里面的时间格式

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

 

老师，上图中，当输入为日期类型时，右边的时间输入格式是怎么出来的？

If e.DataCol.name = "字段" Then
  If e.DataRow.IsNull("字段") Then
          e.DataRow("操作符") = ""
          e.DataRow("逻辑") = ""
          Tables("筛选").grid.cols("值").Editor = new windows.forms.TextBox
          Return
  Else
    Dim t As Table = Tables("person")
    If t.cols.contains( e.DataRow("字段")) Then

        'e.DataRow("操作符") = "等于"
        'e.DataRow("逻辑") = "并且"
'
        If t.cols(e.DataRow("字段")).IsDate Then
           Tables("筛选").grid.cols("值").Editor = new windows.forms.DateTimePicker
        Else 

           Tables("筛选").grid.cols("值").Editor = new windows.forms.TextBox
           Tables("筛选").Cols("值").ComboList = DataTables("person").GetComboListString( e.DataRow("字段"))
        End If
    End If
 End If
End If

 

老师：

1、我的筛选表里面操作符列和逻辑列是数据字典，那么这时候当字段输入后，希望操作符的显示值是等于，实际值是“1”，蓝色那里代码如何写？

2、红色部分您一定看懂，但是，这么一设置 ，筛选表里的值列都成日期输入控件了？怎么设置只让当前行是日期输入控件？

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

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

 

老师，就是类似这个项目，我想实现的是：

1、表B里面每增加一行，字段填写完后，比较那块默认是等于，逻辑那块默认是并且，字段、比较、逻辑都用了数据字典

2、表B里面每增加一行，字段如果是日期类型，那么在值的那一列的输入格式，就变成时间的输入格式

麻烦老师了，我这两天一直试着做，但是老做不出来

If e.Col.Name = "值" Then '如果正在编辑的是县市列
      e.Col.Combolist = DataTables("person").GetComboListString(e.Row.DataRow("字段"))
End If

 

老师，我在prepareEdit里面写这个为啥不起作用呀？

If e.DataCol.name = "字段" Then
  If e.DataRow.IsNull("字段") Then
          e.DataRow("操作符") = ""
          e.DataRow("逻辑") = ""
          'Tables("筛选").grid.cols("值").Editor = new windows.forms.TextBox
          Return
  Else
    Dim t As Table = Tables("person")
    If t.cols.contains( e.DataRow("字段")) Then

        e.DataRow("操作符") = "1"
        e.DataRow("逻辑") = "And"
         Tables("筛选").Cols("值").ComboList = DataTables("person").GetComboListString( e.DataRow("字段"))
        'If t.cols(e.DataRow("字段")).IsDate Then
           'e.DataCol.SetDateTimeFormat(DateTimeFormatEnum.Date)
        'Else
           'Tables("筛选").Cols("值").ComboList = DataTables("person").GetComboListString( e.DataRow("字段"))
        'End If

    End If
 End If
End If

 

老师，红色代码我想实现，值的combolist根据字段选择而定？我现在那么写有啥问题么？现在没有效果？

老师，您写的代码太漂亮了！逻辑很清晰

 

 

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

 

老师，上图中，我想即便鼠标锁定在第一行，点击删除也能把 第二行删除，第一行清空，

 

startedit事件：

If e.Row.index = e.Table.rows.count-1 Then
    e.Table.DataTable.addnew
End If

删除按钮：

 

If Tables("筛选").Current.Index = 0 Then
     Tables("筛选").Current.DataRow("字段")=""
Else
     Tables("筛选").Current.Delete   
End If

 

我现在能实现的就是，鼠标锁定在第一行，就把第一行清空了，剩下第一行第二行都是空的

 

请老师指导一下
 

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

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

您太厉害了，

删除按钮代码：

 

If Tables("筛选").Current.Index = 0 Then
      Dim t As Table = Tables("筛选")
      For i As Integer = t.Rows.Count -1 To 0 Step -1
         t.Rows(i).delete
      Next
      t.AddNew
Else
     Tables("筛选").Current.Delete
End If

我是这么写的，然后测试没问题。感谢老师！

 

查询按钮代码

Dim filter As String = ""
Dim mathType As String
Dim t As Table = Tables("person")
For Each r As Row In Tables("筛选").Rows
    If r("字段")="" Then Continue For
    Select Case r("操作符")
            Case "1"
                mathType = " = "
            Case "2"
                mathType = " > "
            Case "3"
                mathType = " < "
            Case "4"
                mathType = "<>"
            Case "5"
                mathType = " <= "
            Case "6"
                mathType = " >= "
    End Select

   If t.cols(r("字段")).IsDate Then
         Dim dvar As Date
         If Date.TryParse(r("值"), dvar) Then
               filter =filter & " " & r("字段") & " " & mathType & " " & "#" & format(dvar,"yyyy-MM-dd") & "#" & " " & r("逻辑")
         Else
               MessageBox.Show("非法日期")
         End If
    Else  
         filter= filter & " " & r("字段") & " " & mathType & " " & "'" & r("值") & "'" & " " & r("逻辑")
    End If
Next
If filter > "" Then
    If filter.EndsWith("And") Then
        filter = filter.SubString(0,filter.Length-3)
    ElseIf filter.EndsWith("Or") Then
        filter = filter.SubString(0,filter.Length-2)
    End If
End If
MessageBox.Show(filter)

 

 

老师，您帮我看看红色代码那里有啥问题么，我点击查询就卡住了？

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

老师，我可不可以让这个表，每次打开都是这样显示这么多列，操作那里是等于，逻辑那里是并且，字段都摆在那里，用户只需要在值那边选择就可以了，

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

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

老师，对应着了，但是每次那个值列中输入时间，读取为空，并且项目卡住？