Dim nums1() As String={"sex","age","birth", _
                     "edu","workdate","politicalStatus", _
                     "retiredPost","title","leaOrRetire", _
                    "retireTime","proTecPost","partyTime", _
                     "organName","partyStanding","retiredDep"}
Dim nums2()  As String={"性别","年龄","出生年月", _
                     "学历","参加工作日期","政治面貌", _
                     "离退休职务","享受待遇","状态", _
                    "离退休时间","专业技术职务","入党时间", _
                     "单位","党龄","部门"}

If e.DataCol.name = "字段" Then
    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
            e.DataCol("值").SetDateTimeFormat(DateTimeFormatEnum.Date)
        End If
    End If
End If

老师，这个是在表的datachanged事件中写的，

其实红色部分， 我希望\'  t.grid.cols("glValue").Editor = new windows.forms.DateTimePicker 就是那个框直接是日期输入框，但是我不会实现

If e.DataCol.name = "字段" Then
    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
             MessageBox.Show("xxxx")
             Tables("筛选").grid.cols("值").Editor = new windows.forms.DateTimePicker
        Else
             MessageBox.Show("yyyyyy")

             Tables("筛选").grid.cols("值").Editor = new windows.forms.TextBox
        End If
    End If
End If

老师，我这么写并没有出现 实现 new windows.forms.DateTimePicker  这个效果，它识别了是日期类型，但是不能日期输入的控件，