Foxtable(狐表)用户栏目专家坐堂 → 链接oracle 使用Fill问题


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

主题:链接oracle 使用Fill问题

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


加好友 发短信
等级:幼狐 帖子:79 积分:1251 威望:0 精华:0 注册:2013/7/16 13:23:00
链接oracle 使用Fill问题  发帖心情 Post By:2018/1/9 13:39:00 [只看该作者]

用oracle  建库,然后问题是用Fill表后,

tb.addnew
tb.Current("FSZMENUID")=109
不起作用


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


加好友 发短信
等级:幼狐 帖子:79 积分:1251 威望:0 精华:0 注册:2013/7/16 13:23:00
  发帖心情 Post By:2018/1/9 13:48:00 [只看该作者]

建立表 包含  "_Locked" number(2) NULL,
 "_SortKey" number(28, 14) NULL,
 "_Identify"  number(12,0) NOT NULL
并设定主键 _Identify 并设定使用自动序列


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


加好友 发短信
等级:幼狐 帖子:79 积分:1251 威望:0 精华:0 注册:2013/7/16 13:23:00
  发帖心情 Post By:2018/1/9 14:15:00 [只看该作者]

用oracle  建库,然后问题是用Fill表后,

tb.Current("FSZMENUID")=109

不起作用

 

'代码

 Dim tb As Table = e.Form.Controls("Table1").Table
 tb.Fill("select * fro m SysMenu","dc_Capp",False)
 tb.AllowEdit=True
 tb.AllowAddNew=True
 tb.AllowDelete=True

 tb.addnew

 tb.Current("FSZMENUID")=109

 

数据表

 CREATE TABLE SysMenu(
  "_Locked" number(2) NULL,
  "_SortKey" number(28, 14) NULL,
  "_Identify"  number(12,0) NOT NULL,
  FSzMenuID int NULL,
  FSsMenuText nvarchar2(30) NULL,
  FSsOpenType nvarchar2(16) NULL,
  FSsCMD long NULL,
  FSsMenuType nvarchar2(16) NULL,
  FSzLevel number(3) NULL,
  FSsFatherMenuID int NULL,
  FSlDeleted number(2) NULL,
  FSsPath nvarchar2(255) NULL,
  FSzIndex  number(3) NULL,
  FSsSmallImage nvarchar2(255) NULL,
  FSsLargeImage nvarchar2(255) NULL,
  FSsTextImageRelation nvarchar2(16) NULL,
  FSsToolTip nvarchar2(255) NULL,
  FSlAutoHideText number(2) NULL,
  FSsDataTableName nvarchar2(30) NULL,
  FSsFormName nvarchar2(30) NULL,
  FSsFormCaption nvarchar2(30) NULL,
  FSsLoadFilter nvarchar2(255) NULL,
  FSlOpenInWindow number(2) NULL,
  FSsTab nvarchar2(16) NULL,
  FSsGroup number(2) NULL,
  快速访问栏 number(2) NULL,
  配置栏 number(2) NULL,
  功能菜单 number(2) NULL,
  导航目录树 number(2) NULL,
  桌面导航 number(2) NULL,
  窗体ID int NULL)

  alter table SysMenu
  add constraint FOXSEQ20 primary key ("_Identify");  
      CREATE SEQUENCE FOXSEQ20 -- emp_sequence这个就是后面要用到这个序列号时引用的名称
    INCREMENT BY 1 -- 每次加几个
   START WITH 1 -- 从1开始计数
   NOMAXVALUE -- 不设置最大值
   NOCYCLE-- 一直累加,不循环
   CACHE 100 -- 缓存值 100 

    create or replace trigger FOXSEQ20 
   before insert on SysMenu
   for each row
   begin
    select FOXSEQ20.nextval into  :new."_Identify" fro m sys.dual;
 end;


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/9 14:21:00 [只看该作者]

1、不用fill的情况,直接添加【外部数据表】能正常新增赋值? http://www.foxtable.com/webhelp/scr/1812.htm

 

2、试试

 

Dim dr = datatables("表A").addnew
dr("FSZMENUID")=109


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


加好友 发短信
等级:幼狐 帖子:79 积分:1251 威望:0 精华:0 注册:2013/7/16 13:23:00
  发帖心情 Post By:2018/1/9 14:31:00 [只看该作者]

楼上的大哥,FILL 不能用吗,因为很多情况是我动态加载 oracle 数据表,我是想用FILL,有办法解决吗?
[此贴子已经被作者于2018/1/9 14:31:15编辑过]

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


加好友 发短信
等级:幼狐 帖子:79 积分:1251 威望:0 精华:0 注册:2013/7/16 13:23:00
  发帖心情 Post By:2018/1/9 14:34:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1331.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/9 14:49:00 [只看该作者]

先如下测试,说明测试效果

 

1、不用fill的情况,直接添加【外部数据表】能正常新增赋值? http://www.foxtable.com/webhelp/scr/1812.htm

 

2、试试

 

Dim dr = datatables("表A").addnew
dr("FSZMENUID")=109

 

3、如果用fill的话,每个表都报错?使用foxtable新建的外部表业报错?


 回到顶部