一个录入窗口
此主题相关图片如下：01.jpg
原来这个录入窗口一次录入一个人，代码已经编写了，现在想实现同时多人录入，老爹有什么办法简化代码不？
我现在的写法是
If e.Form.controls("Ａ").checked = True
Dim lqry As String = "Ａ"
Dim lqsl As Integer = e.Form.Controls("sl1").Value
原录入代码
If e.Form.controls("B").checked = True
Dim lqry As String = "B"
Dim lqsl As Integer = e.Form.Controls("sl2").Value
原录入代码
If e.Form.controls("C").checked = True
Dim lqry As String = "C"
Dim lqsl As Integer = e.Form.Controls("sl3").Value
原录入代码
If e.Form.controls("D").checked = True
Dim lqry As String = "D"
Dim lqsl As Integer = e.Form.Controls("sl4").Value
原录入代码
感觉这样写出来代码很繁琐，以上代码是否可以简写，谢谢！
[此贴子已经被作者于2011-6-30 16:30:16编辑过]
加好友 
发短信
Post By：2011/6/30 15:06:00 [只看该作者]
