Dim kaishi As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim jieshu As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim filter As String = "1=1"
If kaishi.text > "" Then
filter &= " and 接收时段 >= #" & kaishi.Text & "#"
End If
If jieshu.text > "" Then
filter &= " and 接收时段 <=#" & jieshu.Text & "#"
End If
Tables("表A").Filter = filter
DataTables("表B").DataRows.Clear
For Each dr1 As Row In Tables("表A").rows
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
Next
上述语句中,通过A表生成B表,能不能在B表生成时,完成操作时段及接收时段字段的从字符型转换成日期时间型(日期同时带具体时间
)转换