主题：控件输入内容控制

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

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

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

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

请指教

 

第一问题这样对吗？

 

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

谢谢！

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

结果是：

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

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

结果是：

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

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

谢谢

 

 窗口AfterLoad

e.Form.Controls("物品状态").text= " "
Dim Value1s() As String
Dim kjname As String = "赔赏金额|损坏原因|处理意见|"
Value1s = kjname.split("|")
For i As Integer = 0 To Value1s.Length - 1
    e.Form.Controls(Value1s(i)).ComboList = DataTables("固定资产返还").GetComboListString(Value1s(i))
    e.Form.Controls(Value1s(i)).Enabled = False
Next
kjname = "名称|规格|物品编号|存放位置"
Value1s = kjname.split("|")
For i As Integer = 0 To Value1s.Length - 1
    e.Form.Controls(Value1s(i)).ComboList = DataTables("固定资产返还").GetComboListString(Value1s(i))
Next

 

物品状态TextChanged

Dim kjmc() As String '控件名称
Dim kjmcjh As String = "赔赏金额,损坏原因,处理意见" '控件名称集合
kjmc = kjmcjh.split(",")
For i As Integer = 0 To kjmc.Length - 1
    e.Form.Controls( kjmc(i)).Enabled = (e.Sender.Text = "损坏")
Next

 

新增Click

Dim dr As DataRow
Dim kjmc() As String '控件名称
Dim kjmcjh As String
Dim  isAdd As Boolean=True
If e.Form.Controls("物品状态").text= "损坏" Then
    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
    dr = DataTables("固定资产返还").AddNew()
    dr("物品状态") = "损坏"
    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("赔赏金额").Value
    dr("损坏原因") = e.Form.Controls("损坏原因").text
    dr("处理意见") = e.Form.Controls("处理意见").text
Else
    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("物品状态") = "完好"
    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
End If

 

此主题相关图片如下：窗口.png

 

此主题相关图片如下：问题.png

请指教哪里出错

Dim kjname As String = "赔赏金额|损坏原因|处理意见|"，问题出在这

谢谢