主题：我写了如下的筛选赋值代码，但是不执行，不知道代码出什么问题了？

代码如下：

Dim drs As List(of DataRow) = DataTables("kcmx").Select("jysl > 0 and txm = ''")
For Each dr As DataRow In drs
    Dim spdr As DataRow = DataTables("sp").Find("hh = '" & dr("hh") & "'")
    dr("txm") = spdr("txm")
    dr.Save()
Next