- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 单选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47355)
-- 发布时间：2014/3/8 19:39:00
-- 单选
窗口请假申请输入框输入完后,当单击确定请假申请表新增一行,怎样才能将单选框新增到请假申请表里。请指教代码？谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目20.zip |
-- 发布时间：2014/3/8 22:26:00
--
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:22:00
--
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编辑过]
-- 发布时间：2014/3/9 10:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:请假申请录入.table |
-- 发布时间：2014/3/10 11:21:00
--
谢谢