Foxtable(狐表) → 用户栏目 → 专家坐堂 → 录入窗口功能求教


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

主题：录入窗口功能求教
帅哥哟，离线，有人找我吗？
大红袍
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/26 19:28:00 [只看该作者]

变通啊，在afterLoad事件

 

For i As Integer = 1 To 8

    e.Form.Controls("Textbox" & i).Visible = False
Next

 

选择了以后

 

For i As Integer = 1 To e.Form.Controls("Combobox1").Text
    e.Form.Controls("Textbox" & i).Visible = true
Next
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/26 19:30:00 [只看该作者]

For i As Integer = 1 To 8

    e.Form.Controls("Textbox" & i).Visible = i <= val(e.Form.Controls("Combobox1").Text)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/26 20:34:00 [只看该作者]

以下是引用大红袍在2015/8/26 19:30:00的发言：

For i As Integer = 1 To 8

    e.Form.Controls("Textbox" & i).Visible = i <= val(e.Form.Controls("Combobox1").Text)
Next

这组代码是在按钮控件事件里编辑吗？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/26 20:58:00 [只看该作者]

以下是引用bestorange在2015/8/26 20:34:00的发言：

这组代码是在按钮控件事件里编辑吗？

 

你可以写到下拉控件的TextChanged事件
 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/26 21:05:00 [只看该作者]

Dim dt As DataTable = DataTables("课类分类表")
Dim fl As String = e.Form.Controls("ComboBox3").text
Dim km As String = e.Form.Controls("Textbox12").text
 
For i As Integer = 1 To e.Form.Controls("Combobox1").Text
    Dim nr As DataRow = dt.find("分类 = '" & fl & "' and 培训科目 = '" & km & "' and 科目 = '" & CLNum(i) & "级" & "'")
    If nr Is Nothing
        nr = dt.AddNew
        nr("分类") = fl
        nr("培训科目") = km
        nr("科目") = km & CLNum(i) & "级"
    End If
    nr("课时费") = e.Form.Controls("Textbox" & i).text
    nr.save
Next

 

就解决我之前的问题了 

 

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


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/26 21:11:00 [只看该作者]

 

表afterload事件:

 

With Tables("课类分类表")
     If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then  '如果当前行未曾修改
        Tables("课类分类表").AddNew()
     End If
 End With

For i As Integer = 1 To 8
    e.Form.Controls("Textbox" & i).Visible = False
Next

For i As Integer = 1 To 8
    e.Form.Controls("Label" & i).Visible = False
Next

 

Combobox1控件 SelectedIndexChanged事件：

For i As Integer = 1 To e.Form.Controls("Combobox1").Text
    e.Form.Controls("Textbox" & i).Visible = True
Next

For i As Integer = 1 To e.Form.Controls("Combobox1").Text
    e.Form.Controls("Label" & i).Visible = True
Next

 

Combobox1控件TextChanged事件：

For i As Integer = 1 To 8
    e.Form.Controls("Textbox" & i).Visible = i <= val(e.Form.Controls("Combobox1").Text)
Next

 

这样 控件这两组代码不冲突吗？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/26 21:41:00 [只看该作者]

SelectedIndexChanged 事件不用写代码。

 

TextChanged事件

 

For i As Integer = 1 To 8

    Dim flag As Boolean =  i <= val(e.Form.Controls("Combobox1").Text)
    e.Form.Controls("Textbox" & i).Visible = flag

    e.Form.Controls("Label" & i).Visible = flag
Next
 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/26 22:34:00 [只看该作者]


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

修改好了，效果非常理想

 衷心感谢大师！

 

还有就是

我复制模板多建了一个窗口

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150826222808.png
图片点击可在新窗口打开查看
在这个窗口里，我想通过Combobox1(或者其他控件)来定义Label 1-6

 

是用

For i As Integer = 1 To 8
    e.Form.Controls("Label" & i).Visible = i <= val(e.Form.Controls("Combobox1").Text)

来实现吗？？

 

不对，，好像不应该用Combobox控件。 应该用什么控件来实现我想要的功能？

 

 

这么晚了。。。今天最后一个问题麻烦大师
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/8/26 22:39:00 [只看该作者]

For i As Integer = 1 To 8

    Dim flag As Boolean =  i <= val(e.Form.Controls("Combobox1").Text)
    e.Form.Controls("Textbox" & i).Visible = flag

    e.Form.Controls("Label" & i).Visible = flag
Next
 回到顶部
帅哥哟，离线，有人找我吗？
bestorange
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：514 积分：3247 威望：0 精华：0 注册：2015/4/22 16:20:00 		  发帖心情 Post By：2015/8/26 22:47:00 [只看该作者]

以下是引用大红袍在2015/8/26 22:39:00的发言：

For i As Integer = 1 To 8

    Dim flag As Boolean =  i <= val(e.Form.Controls("Combobox1").Text)
    e.Form.Controls("Textbox" & i).Visible = flag

    e.Form.Controls("Label" & i).Visible = flag
Next

这段代码不是跟您17楼发的一样吗？

SORRY 是我问题问错了。

我的意思是在原有的基础上 新增一个用Combobox3（或其他控件，我觉得Conbobox控件好像不对）来定义 label 1-6的.Text

 

Combobx3继续用于 Textox和Combobx 1-6的显示

[此贴子已经被作者于2015/8/26 22:48:30编辑过]
 回到顶部
总数 34 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询