web/App_Code/UpdateMethod.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class UpdateMethod
    Public Shared ReadOnly [Like] As Integer = 1
    Public Shared ReadOnly Equal As Integer = 0
    Public Shared ReadOnly NotEqual As Integer = 8
    Public Shared ReadOnly More As Integer = 2
    Public Shared ReadOnly Less As Integer = 3
    Public Shared ReadOnly MoreEqual As Integer = 4
    Public Shared ReadOnly LessEqual As Integer = 5
    Public Shared ReadOnly Between As Integer = 6
    Public Shared ReadOnly [In] As Integer = 7
    Public Shared ReadOnly EqualorIsNull As Integer = 9

    Public Shared ReadOnly [Select] As Integer = 0
    Public Shared ReadOnly Insert As Integer = 1
    Public Shared ReadOnly Update As Integer = 2

    Public Shared ReadOnly [String] As Integer = 1
    Public Shared ReadOnly Number As Integer = 2

    Public Shared ReadOnly Sql_Select As Integer = 0
    Public Shared ReadOnly Sql_Insert As Integer = 1
    Public Shared ReadOnly Sql_Update As Integer = 2

    Private WhereItemList As New ArrayList()
    Private FieldNameList As New ArrayList()
    Private FieldValueList As New ArrayList()
    Private FieldTypeList As New ArrayList()
    Private pbSupportSpcialChar As Boolean = False

    Public Sub New()
    End Sub
    Public Property SupportSpcialChar() As Boolean
        Get
            Return pbSupportSpcialChar
        End Get

        Set(ByVal value As Boolean)
            pbSupportSpcialChar = value
        End Set
    End Property
    Public Sub ClearWhereItem()
        WhereItemList.Clear()
    End Sub
    Public Sub ClearFieldItem()
        FieldNameList.Clear()
        FieldValueList.Clear()
        FieldTypeList.Clear()
    End Sub


    Public Sub AddFieldItem(ByVal FieldName As String, ByVal Value As Integer)
        AddFieldItem(FieldName, Convert.ToString(Value), PageShareMethod.Number)
    End Sub

    Public Sub AddFieldItem(ByVal FieldName As String, ByVal Value As Integer, ByVal ValueType As Integer)
        AddFieldItem(FieldName, Convert.ToString(Value), ValueType)
    End Sub

    Public Sub AddFieldItem(ByVal FieldName As String, ByVal Value As Single)