Foxtable(狐表)用户栏目专家坐堂 → 麻烦老师诊断下这两段代码


  共有2488人关注过本帖树形打印复制链接

主题:麻烦老师诊断下这两段代码

帅哥哟,离线,有人找我吗?
tuohai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:124 积分:1325 威望:0 精华:0 注册:2016/11/16 14:21:00
麻烦老师诊断下这两段代码  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/8 14:26:00 [只看该作者]

如果是SqlServer,#改为单引号

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

 回到顶部