| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何改不等于？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159526) |
| -- 作者：lin98 -- 发布时间：2020/12/29 13:55:00 -- 如何改不等于？ 这个代码条件是可以“安全”执行 For Each dr1 As DataRow In DataTables("表A").Select("[安全情况] = \'安全\'") DataTables("表A").ReplaceFor("安全情况","安全") 现在需求：如何将这个代码条件不是“安全”执行，只要是“不安全”，“很不安全”，“非常不安全”， For Each dr1 As DataRow In DataTables("表A").Select("[安全情况] <> \'安全\'")
DataTables("表A").ReplaceFor("安全情况","安全") |
| -- 作者：有点蓝 -- 发布时间：2020/12/29 13:59:00 -- 不等于就是<>，有什么问题？ 没有必要遍历吧，一句就行了 DataTables("表A").ReplaceFor("安全情况","安全","[安全情况] <> \'安全\'")
|
| -- 作者：lin98 -- 发布时间：2020/12/29 14:11:00 -- 这是完整代码， Dim Cols1() As String = {"产品类别","安全数","安全情况"} Dim Cols2() As String = {"产品类别","安全数量","安全情况"} For Each dr1 As DataRow In DataTables("表A").Select("[安全情况] <> \'安全\'") Dim dr2 As DataRow = DataTables("表A").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next \'DataTables("表A").ReplaceFor("安全情况","安全") Next |
| -- 作者：lin98 -- 发布时间：2020/12/29 14:12:00 -- 发错，不好意思 |
| -- 作者：lin98 -- 发布时间：2020/12/29 14:15:00 -- DataTables("表A").ReplaceFor("安全情况","安全") 这个怎么改为不是安全 |
| -- 作者：有点蓝 -- 发布时间：2020/12/29 14:26:00 -- DataTables("表A").ReplaceFor("安全情况","不是安全") |