专家坐堂-关闭错误提示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关闭错误提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67235)

--  作者：良才
--  发布时间：2015/4/20 16:39:00
--  关闭错误提示

关闭错误提示代码？谢谢

此主题相关图片如下：qq截图20150420163750.png

--  作者：Bin
--  发布时间：2015/4/20 16:40:00
--
点击详细信息看看

--  作者：良才
--  发布时间：2015/4/20 16:43:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,基本信息,学生姓名,ValueChanged
详细错误信息：
startIndex 不能大于字符串长度。
参数名: startIndex

--  作者：Bin
--  发布时间：2015/4/20 16:44:00
--
ValueChanged 代码错误引用了超出下标的字符串代码发出来

--  作者：良才
--  发布时间：2015/4/20 16:45:00
--
If e.Form.Controls("学生姓名").Text IsNot Nothing Then
      Dim txt As String = e.Form.Controls("学生姓名").Text.SubString(3)
      e.Form.Controls("学生姓名").OpenDropDown()
      Dim t As Table = Tables("下拉_Table1")
      t.DataSource = DataTables("学生基本信息") \'绑定学生基本信息表
      t.SetColVisibleWidth("学生姓名|80|性别|40|") \'显示"学生姓名"列
      t.RowHeaderVisible = False \'关闭行号
      If txt = "" Then
         t.Filter = ""
       Else
         txt = "\'%" & txt & "%\'"
         t.Filter = "学生姓名 Like " & txt
        t.Sort = "学生姓名 DESC"
      End If
   If DataTables("学生基本信息").datarows.count < 1 Then
     e.Form.Controls("学生姓名").OpenDropDown()
   End If
End If

--  作者：Bin
--  发布时间：2015/4/20 16:47:00
--
If e.Form.Controls("学生姓名").Text IsNot Nothing Then
if e.Form.Controls("学生姓名").Text.length>=3 then
      Dim txt As String = e.Form.Controls("学生姓名").Text.SubString(3)
      e.Form.Controls("学生姓名").OpenDropDown()
      Dim t As Table = Tables("下拉_Table1")
      t.DataSource = DataTables("学生基本信息") \'绑定学生基本信息表
      t.SetColVisibleWidth("学生姓名|80|性别|40|") \'显示"学生姓名"列
      t.RowHeaderVisible = False \'关闭行号
      If txt = "" Then
         t.Filter = ""
       Else
         txt = "\'%" & txt & "%\'"
         t.Filter = "学生姓名 Like " & txt
        t.Sort = "学生姓名 DESC"
      End If
   If DataTables("学生基本信息").datarows.count < 1 Then
     e.Form.Controls("学生姓名").OpenDropDown()
   End If
end if
End If

--  作者：良才
--  发布时间：2015/4/20 16:49:00
--
谢谢