主题：请问这样写有什么问题？

有问题

如果编号列是字符型，代码为：

Dim r As Row = CurrentTable.Current
Dim drs As List(Of DataRow)
drs = DataTables("考勤表").Select("[编号] = '" & r("编号") & "'")
If drs.Count>0 Then
    For Each dr As DataRow In drs
        dr("姓名") =r("姓名")
        dr.Save
    Next
End If

如果编号列是数值型，代码为：

Dim r As Row = CurrentTable.Current
Dim drs As List(Of DataRow)
drs = DataTables("考勤表").Select("[编号] = " & r("编号"))
If drs.Count>0 Then
    For Each dr As DataRow In drs
        dr("姓名") =r("姓名")
        dr.Save
    Next
End If