Foxtable(狐表)用户栏目专家坐堂 → [求助] 副本表出现“_Identify” 错误


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

主题:[求助] 副本表出现“_Identify” 错误

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


加好友 发短信
等级:六尾狐 帖子:1348 积分:9827 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助] 副本表出现“_Identify” 错误  发帖心情 Post By:2017/12/8 19:46:00 [只看该作者]

 

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2017.10.26.1
错误所在事件:OA公告通告管理_Table2,CurrentChanged
详细错误信息:
列“_Identify”不属于表 OA公告通告管理_Table2。

 

Dim tb As Table = Tables(e.Form.Name & "_Table2")
Dim DT As DataTable = TB.DataTable
'~~~~~~~~~~~~~~清空所有列
For i As Integer = tb.Cols.Count - 1 To 0 Step - 1
    dt.DataCols.Delete(tb.Cols(i).Name)
Next

'~~~~~~~~~~~~~~~~~~~~生成新列表
Dim cn() As String = {"单据编号","当前状态","权限","流程主题","发起部门","发起人","发起时间"}
For i As Integer = 0 To cn.Length - 1
    If dt.DataCols.Contains(cn(i)) = False Then
        If cn(i).Contains("时间") Then
            dt.DataCols.Add(cn(i), Gettype(Date))
        Else
            dt.DataCols.Add(cn(i), Gettype(String),255)
        End If
    End If
Next
dt.DataRows.Clear

Dim tb1 As Table = Tables(e.Form.Name & "_Table1")
'Dim tb2 As Table = Tables(e.Form.Name & "_Table2")

For i As Integer = 0 To tb1.Rows.Count - 1
    Dim r As Row = tb1.Rows(i)
    Dim nr As Row = tb.AddNew
    nr("单据编号") = r("单据编号")
    nr("发起人") = r("发起人")
    nr("发起时间") = r("发起时间")
Next


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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/8 20:02:00 [只看该作者]

上面的代码放在Table2,CurrentChanged?

放到窗口afterload事件

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


加好友 发短信
等级:六尾狐 帖子:1348 积分:9827 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2017/12/9 7:24:00 [只看该作者]

按钮中


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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/9 8:55:00 [只看该作者]

贴出出错事件的代码

错误所在事件:OA公告通告管理_Table2,CurrentChanged

 回到顶部