以下代码提示： '#' 附近有语法错误。
Dim d1 As Date = e.Form.Controls("DateTimePicker1").value
Dim d2 As Date = e.Form.Controls("DateTimePicker2").value
If d1 = Nothing Or d2 =Nothing Then
MessageBox.Show("开始或结束日期不能为空!","友情提示",MessageBoxButtons.OK)
Else
With DataTables("服装资料表")
.LoadFilter = "[录入日期]>= #" & d1 & "# and [录入日期]<= #" & d2 & "#"
.load()
End With
End If
===========================================================
以下代码提示 ： 未找到类型“TabControl”的公共成员“Selectedlndex”。
Select Case e.StripItem.Name
Case "数据输入"
e.Form.Controls("TabControl1").Tabpages(0).Visible = True
e.Form.Controls("TabControl1").Selectedlndex = 0
Case "数据查询"
e.Form.Controls("TabControl1").Tabpages(1).Visible = True
e.Form.Controls("TabControl1").Selectedlndex = 1
Case "数据统计"
e.Form.Controls("TabControl1").Tabpages(2).Visible = True
e.Form.Controls("TabControl1").Selectedlndex = 2
Case "用户管理"
Syscmd.Project.Users()
Case "权限管理"
Syscmd.Project.Users()
Case "版权声明"
MessageBox.Show("本软件由周平开发,授权予拓海时尚使用,其他单位未经允许不得擅自使用!","版权声明")
End Select
加好友 
发短信
Post By：2019/3/8 13:48:00 [显示全部帖子]
