主题：控件输入内容控制

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理.zip

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

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

请指教

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

帮助是必须要看滴

第二个问题，在赔赏金额、损坏原因、处理意见等控件的的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

 

 

第一问题这样对吗？

 

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

    Next

    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

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

    Next

    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

谢谢！

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

结果是：

此主题相关图片如下：qq截图20131019221006.png

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

结果是：

此主题相关图片如下：qq截图20131019222147.png

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

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

谢谢