主题：[求助]代码填充

如果你排好序了，就直接写代码

Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("贫困户信息").datarows
    If dr("与户主关系") = "户主" Then
        pdr = dr
    End If
    dr("贫困户") = pdr("姓名")
Next