Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表控件的名称问题


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

主题：表控件的名称问题
帅哥哟，离线，有人找我吗？
dm168
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00 		表控件的名称问题  发帖心情 Post By：2015/6/18 15:43:00 [显示全部帖子]

我在窗口中加入表控件 表类型normal 做为副本＝ true下面这代码总是提示找不到表名InfoBranchDepartment_TableDepartmen我这是什么地方错了？

If Tables("InfoBranchDepartment_TableDepartment").Rows.Count = 0 Then ''如果是一个空表
Tables("InfoBranchDepartment_TableDepartmen").AddNew()

Else
If Tables("InfoBranchDepartment_TableDepartmen").Current.Isnull("Code") Then '如果当前行code必填列是空,禁止增加行
Tables("InfoBranchDepartment_TableDepartmen").AllowAddNew = False
Functions.Execute("MessageBox","""编码""是必填项"," Prompt","OK", "Information")
ElseIf Tables("InfoBranchDepartment_TableDepartmen").Current.Isnull("Name") Then
Tables("InfoBranchDepartment_TableDepartmen").AllowAddNew = False
Functions.Execute("MessageBox","""名称""是必填项"," Prompt","OK", "Information")
Else
Tables("InfoBranchDepartment_TableDepartmen").AddNew()
End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
dm168
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00 		  发帖心情 Post By：2015/6/18 16:10:00 [显示全部帖子]

这个代码是在按钮中的，核对窗口名后改了一下，现在提示
Index -1 is either negative or above rows count.
这是哪里出错了

 回到顶部
帅哥哟，离线，有人找我吗？
dm168
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00 		  发帖心情 Post By：2015/6/18 16:24:00 [显示全部帖子]

能据体说一下我这代码错在什么地方吗？
If Tables("InfoBranchDepartment_TableBD").Rows.Count = 0 Then ''如果是一个空表
Tables("InfoBranchDepartment_TableBD").AddNew()

Else
If Tables("InfoBranchDepartment_TableBD").Current.Isnull("Code") Then '如果当前行code必填列是空,禁止增加行
Tables("InfoBranchDepartment_TableBD").AllowAddNew = False
Functions.Execute("MessageBox","""编码""是必填项"," Prompt","OK", "Information")
ElseIf Tables("InfoBranchDepartment_TableBD").Current.Isnull("Name") Then
Tables("InfoBranchDepartment_TableBD").AllowAddNew = False
Functions.Execute("MessageBox","""名称""是必填项"," Prompt","OK", "Information")
Else
Tables("InfoBranchDepartment_TableBD").AddNew()
End If
End If
'启用控件

e.Form.Controls("TbxCode").Enabled = True
e.Form.Controls("TbxName").Enabled = True
e.Form.Controls("CbxQuality").Enabled = True
e.Form.Controls("TbxInCharge").Enabled = True
e.Form.Controls("TbxSuperior").Enabled = True
e.Form.Controls("TbxTelephone").Enabled = True
e.Form.Controls("TbxAddress").Enabled = True
e.Form.Controls("TbxEmail").Enabled = True
e.Form.Controls("TbxMobileNo").Enabled = True
'如果启用编码列就选择该控件
If e.Form.Controls("TbxCode").Enabled = True Then
e.Form.Controls("TbxCode").Select
e.Form.Controls("TbxCode").HideToolTip
End If
'如果是最后一行是空
Dim r As Row = Tables("InfoBranchDepartment_TableBD").Rows(Tables("InfoBranchDepartment_TableBD").Rows.Count - 1)'获得最后一行
If r.Isnull("Code") OrElse r.Isnull("Name") Then
e.Form.Controls("BntDelete").Enabled = False
e.Form.Controls("BntModify").Enabled = False
End If
 回到顶部
帅哥哟，离线，有人找我吗？
dm168
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00 		  发帖心情 Post By：2015/6/18 17:45:00 [显示全部帖子]

现在的问题是点击按钮后，文本控件启用了，但没有正常加入行，这又是哪儿不对呢？
If Tables("InfoBranchDepartment_TableBD").Rows.Count = 0 Then '如果是一个空表
Tables("InfoBranchDepartment_TableBD").AddNew()

Else
Dim r As Row = Tables("InfoBranchDepartment_TableBD").Rows(Tables("InfoBranchDepartment_TableBD").Rows.Count - 1)'获得最后一行
If r.Isnull("Code") OrElse r.Isnull("Name") Then
e.Form.Controls("BntSave").Enabled = True
End If

'如果当前行code必填列是空,禁止增加行
If Tables("InfoBranchDepartment_TableBD").Current.Isnull("Code") Then
Tables("InfoBranchDepartment_TableBD").AllowAddNew = False
Functions.Execute("MessageBox","""编码""是必填项"," Prompt","OK", "Information")
ElseIf Tables("InfoBranchDepartment_TableBD").Current.Isnull("Name") Then
Tables("InfoBranchDepartment_TableBD").AllowAddNew = False
Functions.Execute("MessageBox","""名称""是必填项"," Prompt","OK", "Information")
Else
Tables("InfoBranchDepartment_TableBD").AddNew()
End If
End If
'启用控件

e.Form.Controls("TbxCode").Enabled = True
e.Form.Controls("TbxName").Enabled = True
e.Form.Controls("CbxQuality").Enabled = True
e.Form.Controls("TbxInCharge").Enabled = True
e.Form.Controls("TbxSuperior").Enabled = True
e.Form.Controls("TbxTelephone").Enabled = True
e.Form.Controls("TbxAddress").Enabled = True
e.Form.Controls("TbxEmail").Enabled = True
e.Form.Controls("TbxMobileNo").Enabled = True



[此贴子已经被作者于2015/6/18 17:49:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
dm168
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00 		  发帖心情 Post By：2015/6/18 17:47:00 [显示全部帖子]

在文本框回车后，提示 index 0 does not have a value 
[此贴子已经被作者于2015/6/18 17:48:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
dm168
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：111 积分：1083 威望：0 精华：0 注册：2012/9/14 17:23:00 		  发帖心情 Post By：2015/6/18 19:22:00 [显示全部帖子]

以上问题都解决了，现在我想实现表是只读的，但是又可以通过文本框输入值到表中，这个要怎么做？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询