以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  问个判断表名的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14688)
--  作者：布莱克朱
--  发布时间：2011/11/28 21:04:00
--  问个判断表名的问题

 我做了个目录树下拉的窗口,有两到三个表要调用此窗口,目录树双击的代码我这样写,但是出错:

 

   For Each frm As WinForm.form In Forms
    Tables(frm.TableName).Current("第一列")= e.Node.FullPath
Next
e.form.close()

 

改用当前表名可以,但是我要在其他的表打开窗口的.所以肯定不能用当前表判断的,这个表名怎么写?
--  作者：狐狸爸爸
--  发布时间：2011/11/28 22:02:00
--  

逻辑问题，每个窗口所属的表都有“第一列”？

 
--  作者：布莱克朱
--  发布时间：2011/11/28 22:16:00
--  

For Each frm As WinForm.Form In Forms
    If frm.TableName = "小区档案" Then
        Tables("小区档案").Current("所属地区")= e.Node.FullPath
    End If
Next
For Each frm1 As WinForm.Form In Forms
    If frm1.TableName = "销售人员档案" Then
        Tables("销售人员档案").Current("责任地区")= e.Node.FullPath
    End If
Next
e.form.close()

 

老大,我改成这样,小区档案可以用,但是销售人员档案就会出错?   一楼的代码,我只测试了一个窗口就提示没有实例了.根本不给判断

[此贴子已经被作者于2011-11-28 22:16:09编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/11/28 22:19:00
--  
错误提示是什么？
--  作者：czy
--  发布时间：2011/11/28 22:24:00
--  
测试没有问题。
--  作者：布莱克朱
--  发布时间：2011/11/28 22:27:00
--  
可以了我写错逻辑了.
--  作者：布莱克朱
--  发布时间：2011/11/28 22:36:00
--  

For Each frm As WinForm.Form In Forms
    If frm.TableName = "小区档案" Then
        Tables(frm.TableName).Current("所属地区")= e.Node.FullPath   
    ElseIf frm.TableName = "销售人员档案" Then
        Tables(frm.TableName).Current("责任地区")= e.Node.FullPath
    End If
Next
e.form.close()

 

我这样写的,现在就是小区档案可以 销售人员档案就是提示没有实例,什么原因呢?

[此贴子已经被作者于2011-11-28 22:37:03编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/11/28 22:38:00
--  

呵呵，你的问题经常是无厘头的，做个简单例子说明吧。
--  作者：布莱克朱
--  发布时间：2011/11/28 22:40:00
--  
气死我了,关一下项目可以了.
--  作者：blackzhu
--  发布时间：2011/11/29 8:52:00
--  
以下是引用狐狸爸爸在2011-11-28 22:38:00的发言：

呵呵，你的问题经常是无厘头的，做个简单例子说明吧。

  呵呵,用QQ用惯了.有时碰到问题,就想到什么问什么?

  这个不是我无厘头  那个代码一会儿可以,一会儿又不行.代码应该没有问题,后来关了项目就正常了.