窗口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
请指教哪里出错
[此贴子已经被作者于2013-10-21 11:18:12编辑过]