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


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

主题：表控件的名称问题
帅哥哟，离线，有人找我吗？
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
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/6/18 15:45:00 [只看该作者]

窗口没打开?

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/18 15:54:00 [只看该作者]

1、InfoBranchDepartment窗口没打开

 

2、窗口名、表名没写对。
 回到顶部
帅哥哟，离线，有人找我吗？
dm168
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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.
这是哪里出错了

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/6/18 16:14:00 [只看该作者]

不存在-1行..  你取行的下标不对

 回到顶部
帅哥哟，离线，有人找我吗？
dm168
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/18 16:26:00 [只看该作者]

Dim r As Row = Tables("InfoBranchDepartment_TableBD").Rows(Tables("InfoBranchDepartment_TableBD").Rows.Count - 1)'获得最后一行

 

-------------------------

 

If Tables("InfoBranchDepartment_TableBD").Rows.Count > 0 Then

    Dim r As Row = Tables("InfoBranchDepartment_TableBD").Rows(Tables("InfoBranchDepartment_TableBD").Rows.Count - 1)'获得最后一行

 

End If
 回到顶部
帅哥哟，离线，有人找我吗？
dm168
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/18 17:52:00 [只看该作者]

这段代码应该没问题，有问题，可能是你 InfoBranchDepartment 表的 datarowAdded事件有问题。

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