我在窗口中加入表控件 表类型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
加好友 
发短信
Post By：2015/6/18 15:43:00 [只看该作者]
