web/Inventory.aspx.vb

（开头部分） 20KB

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

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Partial Class Inventory
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Dim export As New ExportData

    Private dsalereport As New SACOUNT
    Private PageSearch As New PageShareMethod


    Protected imagePath As String

    Protected imageType As String

    Protected imageName As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            'getbatchno()
            'DropTypeGrid()
            'PRODTypeGrid()
            
            Try
                list_location.SelectedIndex = 0
                list_subloc.SelectedIndex = 0
            Catch ex As Exception

            End Try
            shopid()
            LocationTypeGrid(list_location.SelectedItem.Text)
            'wmslocation(list_subloc.SelectedItem.Text)
            Me.CATEGRID.Attributes.Add("SortExpression", "itemid")
            Me.CATEGRID.Attributes.Add("SortDirection", "DESC")
            getaccount()
            GridViewBind()
            'Dim dt As DataTable = Syscrf.seachData("select ACCOUNT from userinfo where userid='" & Request.Cookies("usoffice")("eua").ToString.Trim & "'").Tables(0)
            'If dt.Rows(0)("ACCOUNT").ToString = "admin" Then
            '    Lb_salesid.Visible = True
            '    'txt_SALESID.Visible = True
            'Else
            '    Lb_salesid.Visible = False
            '    'txt_SALESID.Visible = False
            'End If
            ProductTypeBind()
            ddlProductType.SelectedValue = ""
            SeatBind()
            ColorBind()
        End If

    End Sub
    Public Sub getaccount()
        Dim strsql As String = "SELECT SUM(Colorprice*PHYSICALINVENT) AS price , sum(PHYSICALINVENT) AS count  FROM [INVENTSUMVIEW]  " & strWhereTxt()
        Dim dt As System.Data.DataTable = Syscrf.seachData(strsql).Tables(0)
后面还有 372 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。