标题：老爹看下这个代码怎么写？（已解决）
一个录入窗口
此主题相关图片如下：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
原录入代码
感觉这样写出来代码很繁琐，以上代码是否可以简写，谢谢！
大概就是如此，就是100个也是这样的代码：
Dim nms1() as string = {"A","B","C","D"}
Dim nms2() as string = {"sl1","sl2","sl3","sl4"}
For i as integer = 0 to nms.length -1
If e.Form.controls(nms1(i)).checked = True
Dim lqry As String = nms1(i)
Dim lqsl As Integer = e.Form.Controls(nms(2)).Value
end if
next
大概就是如此，就是100个也是这样的代码：
Dim nms1() as string = {"A","B","C","D"}
Dim nms2() as string = {"sl1","sl2","sl3","sl4"}
For i as integer = 0 to nms.length -1
If e.Form.controls(nms1(i)).checked = True
Dim lqry As String = nms1(i)
Dim lqsl As Integer = e.Form.Controls(nms(2)).Value
end if
next
Dim nms1() As String = {"A","B","C","D"}
Dim nms2() as string = {"sl1","sl2","sl3","sl4"}
For i As Integer = 0 To nms.length -1
If e.Form.controls(nms1(i)).checked = True
Dim lqry As String = nms1(i)
Dim lqsl As Integer = e.Form.Controls(nms(2)).Value
'原来的代码
End If
next
Dim nms1() As String = {"A","B","C","D"}
Dim nms2() as string = {"sl1","sl2","sl3","sl4"}
For i As Integer = 0 To nms.length -1
If e.Form.controls(nms1(i)).checked = True
Dim lqry As String = nms1(i)
Dim lqsl As Integer = e.Form.Controls(nms(2)).Value
'原来的代码
End If
next
是我大意了，谢谢狐爸！