主题：老爹看下这个代码怎么写？（已解决）

一个录入窗口

此主题相关图片如下：01.jpg

原来这个录入窗口一次录入一个人，代码已经编写了，现在想实现同时多人录入，老爹有什么办法简化代码不？

我现在的写法是

If e.Form.controls("Ａ").checked = True
Dim lqry As String = "Ａ"
Dim lqsl As Integer = e.Form.Controls("sl1").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

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

是我大意了，谢谢狐爸！