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


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

主题:链接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;


 回到顶部
帅哥哟,离线,有人找我吗?
well_nick
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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

 回到顶部