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)
e.Form.Controls(kjmc(i)).Select()
Exit For
Return
End If
Next
If isAdd Then
dr = DataTables("请假申请").AddNew()
dr("开始时间") = e.Form.Controls("开始时间").Value
dr("结束时间") = e.Form.Controls("结束时间").Value
End If
For i As Integer = 1 To 5
If e.Form.Controls("RadioButton" & i).Checked = True
Dim dr As DataRow = DataTables("请假申请").AddNew
dr("请假类型") = e.Form.Controls("RadioButton" & i).text
End If
Next
怎样把两段代码合在一起
[此贴子已经被作者于2014-3-9 9:31:35编辑过]
加好友 
发短信
Post By：2014/3/8 19:39:00 [只看该作者]
