Foxtable(狐表)用户栏目专家坐堂 → OuterTableBuilder 问题~


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

主题:OuterTableBuilder 问题~

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
OuterTableBuilder 问题~  发帖心情 Post By:2009/7/21 21:47:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

既然狐表中可以生成mls表,如果没有这个提示就好了。
[此贴子已经被作者于2009-7-21 22:50:51编辑过]

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/7/21 22:19:00 [显示全部帖子]

谢谢!~    只可惜我不会sql。呵呵。只能使用用内部表了。
另外,我图片中说了,mls本身就不是一个外部表,是我想建立的一个临时表,哪来什么主键?。请教:将外部表(t_Account) 引入到一个临时表(mls) ,应该怎样做啊~  

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/7/22 11:08:00 [显示全部帖子]

谢谢各位老师!~    我的代码写完了:    全部代码都能执行完成且效果非常好,只是出现一楼的的那个提示(不影响继续执行代码)  . 怪就怪在下面的那个临时表.


'增加临时表:::::::::FFullName是外部表t_Account中的一列 如::管理费用_社会保险费_养老:::::::::: 
Dim q As new OuterTableBuilder
q.TableName = "mls"            '这本来是外部表名的(可我的外部数据源中没有该表), 但是执行后,生成了一个内部临时表
q.Connection Name = "fjcatictz"             '这个Connection Name 之间没有空格
q.SelectString = "SELECT DISTINCT FNumber,FFullName From {t_Account}"
q.Build

'在{临时表 mls} 中添加列、::::::::::::::::::::::::::::::::
With DataTables("mls")
.DataCols.Add("代码一级", GetType(String), 32)
.DataCols.Add("二级", GetType(String), 32)
.DataCols.Add("三级", GetType(String), 32)
End With

'给新增列赋值:::::::::::::::::::::::::::::
Dim dr As DataRow
for i as integer = 0 to datatables("mls").datarows.count-1
    dr = DataTables("mls").DataRows(i)
    dr("代码一级") = dr("FNumber").split(".")(0) & " " & dr("FFullName").split("_")(0)
    if dr("FFullName").split("_").length =2 then
        dr("二级") = dr("FFullName").split("_")(1)
    elseif dr("FFullName").split("_").length =3 then
        dr("二级") = dr("FFullName").split("_")(1)
        dr("三级") = dr("FFullName").split("_")(2)
    end if
next

'在test表中(也可以是任意一个内部表),生成目录树:::::::::::::::::::::::::::::
MainTable= Tables("test")
 Forms("科目树").Controls("TreeView1").BuildDataTree("mls", "", "代码一级","二级","三级")

执行后的效果:非常理想!~


此主题相关图片如下:未命名.jpg
按此在新窗口浏览图片
[此贴子已经被作者于2009-7-22 11:36:14编辑过]

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/7/22 11:44:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-7-22 11:34:00的发言:

用QueryBuilder代替OutTableBuilder,就没有这个提示

果然如此~  图片点击可在新窗口打开查看 ······       还有很多有学啊~  
六楼的代码是根据金碟K3 10.4 的Sql数据库的科目表(t_Account),生成科目的目录树,有更好的办法的狐友,望能指教~~~


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/7/22 12:29:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-7-22 11:57:00的发言:
5楼的美女教你,你不听。
非得我这个帅哥出马才行。
难道美女不吃香了?


图片点击可在新窗口打开查看

不是不听,是帮助文件还没透,昨天还不知道怎么回事,不知道直接替换就可以了,再说,提示说啥主键,我连外部表都没有,哪来的主键图片点击可在新窗口打开查看? 我当时郁闷啊~~     现在来补个谢谢5楼美女啦 ~ 


 回到顶部