控件输入内容控制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件输入内容控制

共有5842人关注过本帖树形打印复制链接主题：控件输入内容控制

联友

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

控件输入内容控制 发帖心情

Post By：2013/10/19 14:23:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理.zip

第一问题：我想在窗口固定资产出库点击新增按钮时，如果其它所有控件内容不为空就新增一条记录，否则就不增加。

第二问题：在窗口固定资产返还，如果物品状态选择了完好赔赏金额、损坏原因、处理意见列就不能输入，如果物品状态选择了损坏赔赏金额、损坏原因、处理意见列就能输入，点击新增按钮时，如果其它控件内容不为空就新增一条记录，否则就不增加

请指教

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/10/19 15:09:00 [只看该作者]

1.这个都判断一下控件是否为空就可以了啊,今天才有人问这个问题来着,这些都是很基础的问题看下帮助文件就不会有疑问的了.

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=41438&page=2

2.这个都是写简单都不能再简单的IF判断了

if e.form.controls("物品状态").Text="完好" then

e.form.controls("赔偿金额").Enabled=false

e.form.controls("损坏原因").Enabled=false

e.form.controls("处理意见").Enabled=false

end if

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/10/19 15:10:00 [只看该作者]

帮助是必须要看滴

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/10/19 15:37:00 [只看该作者]

第二个问题，在赔赏金额、损坏原因、处理意见等控件的的enter事件中设置代码比较好：
http://www.foxtable.com/help/topics/0734.htm

代码为：

If e.form.controls("物品状态").Text="完好" then
e.Sender.ReadOnly = BooleanEnum.True
Else
e.Sender.ReadOnly = BooleanEnum.False
End If

[此贴子已经被作者于2013-10-19 15:56:43编辑过]

联友

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

Post By：2013/10/19 15:46:00 [只看该作者]

第一问题这样对吗？

Dim dr As DataRow

Dim kjmc() As String '控件名称

Dim kjmcjh As String

kjmcjh = "名称,规格,物品编号,领用班科,领物人,用途" '控件名称集合

kjmc = kjmcjh.split(",")

For i As Integer = 0 To kjmc.Length - 1

If e.Form.Controls(kjmc(i)).text = "" Then

MessageBox.Show("请输入:【" & kjmc(i) & "】 !","固定资产出库", MessageBoxButtons.OK,MessageBoxIcon.Question)

e.Form.Controls(kjmc(i)).Select()

Return

End If

dr = DataTables("固定资产出库").AddNew()

dr("名称") = e.Form.Controls("名称").text

dr("规格") = e.Form.Controls("规格").text

dr("物品编号") = e.Form.Controls("物品编号").text

dr("领用班科") = e.Form.Controls("领用班科").text

dr("领物人") = e.Form.Controls("领物人").text

dr("用途") = e.Form.Controls("用途").text

Bin

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/10/19 15:56:00 [只看该作者]

Dim dr As DataRow

Dim kjmc() As String '控件名称

Dim kjmcjh As String

dim isAdd as Boolean=true

kjmcjh = "名称,规格,物品编号,领用班科,领物人,用途" '控件名称集合

kjmc = kjmcjh.split(",")

For i As Integer = 0 To kjmc.Length - 1

If e.Form.Controls(kjmc(i)).text = "" Then

MessageBox.Show("请输入:【" & kjmc(i) & "】 !","固定资产出库", MessageBoxButtons.OK,MessageBoxIcon.Question)

isAdd=false

e.Form.Controls(kjmc(i)).Select()

Return

End If

if isAdd then

dr = DataTables("固定资产出库").AddNew()

dr("名称") = e.Form.Controls("名称").text

dr("规格") = e.Form.Controls("规格").text

dr("物品编号") = e.Form.Controls("物品编号").text

dr("领用班科") = e.Form.Controls("领用班科").text

dr("领物人") = e.Form.Controls("领物人").text

dr("用途") = e.Form.Controls("用途").text

end if

联友

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

Post By：2013/10/19 16:19:00 [只看该作者]

谢谢！

联友

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

Post By：2013/10/19 22:20:00 [只看该作者]

在窗口固定资产返还，如果物品状态选择了完好赔赏金额、损坏原因、处理意见列就不能输入，点击新增按钮时，如果其它控件内容不为空就新增一条记录，否则就不增加

结果是：

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

在窗口固定资产返还，如果物品状态选择了损坏赔赏金额、损坏原因、处理意见列就能输入，点击新增按钮时，如果其它控件内容不为空就新增一条记录，否则就不增加

结果是：

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

我是新手搞了一天也没搞出来，请指教

[此贴子已经被作者于2013-10-19 22:24:18编辑过]

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/10/19 23:24:00 [只看该作者]

如下例子，代码写在表事件PrepareEdit和窗口对应事件里了。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理.foxdb

联友

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

Post By：2013/10/20 10:13:00 [只看该作者]

谢谢

下一主题 >> << 上一主题

总数 15 1 2 下一页

主题：控件输入内容控制