以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  麻烦老师诊断下这两段代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131892)
--  作者：tuohai
--  发布时间：2019/3/8 13:48:00
--  麻烦老师诊断下这两段代码
以下代码提示：    \'#\' 附近有语法错误。

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
--  作者：有点蓝
--  发布时间：2019/3/8 14:26:00
--  
如果是SqlServer，#改为单引号

e.Form.Controls("TabControl1").SelectedIndex