以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码改成后台数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103575)
--  作者：jick0526
--  发布时间：2017/7/11 21:42:00
--  代码改成后台数据
老师，下面的代码麻烦能不能帮我改成也会认到后台数据的，不知道该怎么改
Select Case e.DataCol.Name
    Case "A","B","C"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("A") OrElse dr.IsNull("B") OrElse dr.IsNull("C") Then
        dr("F") = Nothing    
        Else
            Dim filter As String
            filter = "A = \'" & dr("A") & "\' And B = \'" & dr("B") & "\' And C = \'" & dr("C") & "\'"
            pr = DataTables("表A").Find(filter)
           
If pr IsNot Nothing Then
            e.DataRow("F") = "正确"
        Else
            e.DataRow("F") = "错误"
        End If
End If
End Select
--  作者：有点蓝
--  发布时间：2017/7/11 21:46:00
--  
pr = DataTables("表A").SQLFind(filter)
--  作者：jick0526
--  发布时间：2017/7/11 22:11:00
--  
老师，我想问下，我改了之后，打开软件直接卡机，我用的是ACCESS数据库可以吗？
--  作者：有点蓝
--  发布时间：2017/7/11 22:20:00
--  
操作后台的肯定会慢的，你肯定是重置列或者批量更改数据。给数据库里a，b，c3个列加上索引

如果数据量大又确实需要批量操作的，建议使用sql进行更新