主题：控件输入内容控制

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

帮助是必须要看滴

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

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