此主题相关图片如下:1.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-9/20189922404630292.png)
那个值一会可以下来出来,一会下来不出来
在筛选表的beforselchange事件中代码如下:
If e.Table.Cols(e.NewRange.ColSel).name = "值" Then
Dim t As Table = Tables("person")
Dim r As Row = e.Table.Rows(e.NewRange.Rowsel)
If r.IsNull("字段") = False AndAlso t.Cols.Contains(r("字段")) Then
If t.cols(r("字段")).IsDate Then
If e.Table.grid.cols("值").Editor Is Nothing OrElse typeof e.Table.grid.cols("值").Editor Is windows.forms.DateTimePicker = False Then
e.Table.grid.cols("值").Editor = new windows.forms.DateTimePicker
End If
Else
e.Table.grid.cols("值").Editor = Nothing
e.Table.Cols("值").ComboList = t.DataTable.GetComboListString(r("字段"))
End If
Else
e.Table.grid.cols("值").Editor = Nothing
e.Table.Cols("值").ComboList = Nothing
End If
End If