主题：导入数据按钮代码求教？

汗

Dim sfzhm As String = sheet(n,0).Text
        Dim dr As DataRow = DataTables("理论机考表").Find("身份证号码 = '" & sfzhm & "'")

改成

Dim sfzhm As String = sheet(n,4).Text
        Dim dr As DataRow = DataTables("理论机考表").Find("身份证号码 = '" & sfzhm & "'")