以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132724)
--  作者：刘玉凤
--  发布时间：2019/3/28 14:03:00
--  [求助]代码错误
Dim sfzhs As List(Of String)
sfzhs = DataTables("退役").GetValues("身份证号","海盐人年份<> \'\'")
Dim i As Integer = 1
For Each sfzh As String In sfzhs
    Dim dr As DataRow
    dr = DataTables("退役").Find("[身份证号] = sfzh ")    
    dr("海盐人编号") = i \'设置该行数量列的值
    i=i+1
Next


错误: 未找到列 sfzh ? 

应该怎么改哦?
--  作者：y2287958
--  发布时间：2019/3/28 14:57:00
--  
DataTables("退役").Find("[身份证号] = \'" & sfzh & "\'")  
--  作者：有点甜
--  发布时间：2019/3/28 15:01:00
--  

Dim i As Integer = 1

For Each dr As DataRow In DataTables("退役").Select("海盐人年份 is not null")
    dr("海盐人编号") = i \'设置该行数量列的值
    i=i+1
Next