主题：控件输入内容控制

 窗口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 = "赔赏金额|损坏原因|处理意见|"，问题出在这

Dim kjname As String = "赔赏金额|损坏原因|处理意见|"  多了一个竖杆

谢谢