Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请老师们帮忙分析下项目运行后为什么系统菜单感觉失灵一样 实在找不出原因啦


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

主题：请老师们帮忙分析下项目运行后为什么系统菜单感觉失灵一样 实在找不出原因啦
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		请老师们帮忙分析下项目运行后为什么系统菜单感觉失灵一样 实在找不出原因啦  发帖心情 Post By：2014/7/31 16:08:00 [显示全部帖子]

请老师们帮忙分析下项目运行后为什么系统菜单感觉失灵一样 实在找不出原因啦 
新建项目菜单又正常
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:卷宗.foxdb

同时麻烦帮忙看看  表中实现下拉输入
窗体中的表却不能实现？

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（李孝春）请老师们帮忙分析下项目运行后为什么...  发帖心情 Post By：2014/7/31 16:09:00 [显示全部帖子]

窗体中的表

图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		  发帖心情 Post By：2014/7/31 16:31:00 [显示全部帖子]

谢谢两位老师  BIN 有点甜
更改之后 情况得到缓解啦


但是那表中可以实现的下拉输入  在窗体中的表控件中不能实现  求解

[此贴子已经被作者于2014-7-31 16:31:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（lsy）PrepareEdit执行太频繁，又是全局表事件...  发帖心情 Post By：2014/7/31 17:18:00 [显示全部帖子]

老师 有没有什么好的修改建议或者变通写法

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 去编写窗口的全局表事件Enter，...  发帖心情 Post By：2014/7/31 17:38:00 [显示全部帖子]

有点甜老师？
Dim ts As String = ""
For Each t As Col In Tables(e.Form.Controls("ComboBox1").text).Cols
    ts &= t.Name & "|"
Next
e.sender.ComboList = ts.TrimEnd("|")

这个？

我操作了下 没有成功 即便我是对应的数据表都没有成

但是我又不想使用原来的那种根据条件在表中进行筛选的那种写法
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 去编写窗口的全局表事件Enter，...  发帖心情 Post By：2014/7/31 17:59:00 [显示全部帖子]

这样？
在项目全局表属性中？
If e.Table.Name <> "卷宗封面" Then
    If e.IsFocusCell Then
        Dim filter As String = "表名 = '" & e.Table.Name & "' and 列名 = '" & e.Col.Name & "' and 停用 = false"
        Dim fdr As DataRow = DataTables("列项设置").Find(filter)
        If fdr IsNot Nothing Then
            'If fdr("多值字段") Then e.Col.DataCol.ExtendType = ExtendTypeEnum.Values
            e.Col.ComboList = fdr("下拉选项")
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 窗口的全局事件enter事件。  发帖心情 Post By：2014/7/31 20:12:00 [显示全部帖子]

窗体全局事件还真不知道怎么写

之前用的是一个一个的下拉组合控件 一一的对应查找符合条件的数据 并赋值  现在想改变这种写法 还请老师多多指导
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） [upload=png,qq截图2014073120...  发帖心情 Post By：2014/7/31 20:44:00 [显示全部帖子]

不得要领 无从下手  继续纠结中

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 看12楼例子，看事件代码  发帖心情 Post By：2014/7/31 21:55:00 [显示全部帖子]

呵呵   这个方式又回到了之前的操作方式  一个一个的定义下拉控件

Dim filter As String = "表名 = '卷宗封面' and 列名 = '案由' and 停用 = false"
Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing Then
    Dim 变量名 As WinForm.ComboBox = e.Form.Controls("ComboBox5")
    变量名.ComboList = fdr("下拉选项")
End If

有没有办法实现窗体中所有的下拉控件自动绑定控制啊 各位老师
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜）?回复19楼，一个窗口，只需要写...  发帖心情 Post By：2014/7/31 22:08:00 [显示全部帖子]

Dim filter As String = "表名 = '卷宗封面' and 列名 = '案由' and 停用 = false"

Dim fdr As DataRow = DataTables("列项设置").Find(filter)
If fdr IsNot Nothing Then
    Dim 变量名 As WinForm.ComboBox = e.Form.Controls("ComboBox5")
    变量名.ComboList = fdr("下拉选项")
End If

 这个代码我就是参照下面代码那变通实现的  看来是我弄错了什么  还请老师指导

现在我还是原始的一个一个的绑定解决 求有效办法能够自动实现全部下拉组件 且在列项设置中已经有的数据 自动下拉取值

If e.Table.Name <> "列项设置" Then
    If e.IsFocusCell Then
        Dim filter As String = "表名 = '" & e.Table.Name & "' and 列名 = '" & e.Col.Name & "' and 停用 = false"
        Dim fdr As DataRow = DataTables("列项设置").Find(filter)
        If fdr IsNot Nothing Then
            'If fdr("多值字段") Then e.Col.DataCol.ExtendType = ExtendTypeEnum.Values
            e.Col.ComboList = fdr("下拉选项")
        End If
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下：231.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-7-31 22:11:56编辑过]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询