1、[时间]列的格式为datetime,当点击日历中没有数据的日期时,报错;
报错的相关代码是副本表与主表的同步代码,怎样修改,请指教:
此主题相关图片如下:image 1.jpg
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("信息").FindRow(dr)
If wz >=0 Then
Tables("信息").Position = wz
End If
2、[时间]列的格式为datetime,打开窗口获取日期为当天的行数,但没获取到,afterload代码:
Dim Filter As String
Dim d As Date = Date.Today
filter = " 时间 = #" & d & "# "
Dim count As Integer = Tables("信息_Table1").rows.count
e.Form.Controls("Label2").Text = count