web/SH_ImportData_in.aspx.vb

（开头部分） 15KB

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

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Partial Class SH_ImportData_in
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Dim sysitem As New Choseitembll
    Dim stritem As New Choseitem
    Dim syspost As New INVENTJOURNALTABLEBLL
    Dim strpost As New INVENTJOURNALTABLE
    Dim strtrans As New INVENTJOURNALTRANS
    Dim systrans As New INVENTJOURNALTRANSBLL
    Dim strimport As New SH_IMPORTDATA
    Dim sysimport As New SH_IMPORTDATABLL
    Private PageSearch As New PageShareMethod
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            toshopid()
            LocationTypeGrid(list_location.SelectedItem.Text)
            ProductTypeBind()
            SeatBind()
            SizeBind()
            ColorBind()
            OtherBind()

            Me.dataview.Attributes.Add("SortExpression", "CNID")
            Me.dataview.Attributes.Add("SortDirection", "ASC")
            If Syscrf.countfield("SELECT count(*) from [ProductTmpView] where createby='" & Request.Cookies("sh")("userid").ToString & "'") > 0 Then
                Panel1.Visible = True
                DataviewBind()
            End If
        End If
    End Sub
    Private Sub toshopid()
        'Dim locationdt As DataTable = Syscrf.seachData("select * from LOCATION").Tables(0)
        'For i As Integer = 0 To locationdt.Rows.Count - 1
        '    list_location.Items.Add(locationdt.Rows(i)("inventdimid").ToString + ": 位置编号:" + locationdt.Rows(i)("SHOPID").ToString + ";货架编号:" + locationdt.Rows(i)("LOCATIONID").ToString + ";柜编号:" + locationdt.Rows(i)("location2").ToString)
        'Next

        list_location.DataSource = Syscrf.seachData("select distinct SHOPID from [LOCATION]  ORDER BY SHOPID")
        list_location.DataTextField = "SHOPID"
        list_location.DataValueField = "SHOPID"
        list_location.DataBind()
        'list_location.Items.Insert(0, "")
    End Sub

    Private Sub LocationTypeGrid(ByVal strshopid As String)
        'Dim locationdt As DataTable = Syscrf.seachData("select * from LOCATION").Tables(0)
        'For i As Integer = 0 To locationdt.Rows.Count - 1
        '    list_location.Items.Add(locationdt.Rows(i)("inventdimid").ToString + ": 位置编号:" + locationdt.Rows(i)("SHOPID").ToString + ";货架编号:" + locationdt.Rows(i)("LOCATIONID").ToString + ";柜编号:" + locationdt.Rows(i)("location2").ToString)
        'Next
        list_subloc.DataSource = Syscrf.seachData("select distinct locationid,name from [LOCATION]  where shopid='" & strshopid & "'")
        list_subloc.DataTextField = "name"
        list_subloc.DataValueField = "locationid"
        list_subloc.DataBind()
        'list_subloc.Items.Insert(0, "")
后面还有 247 行代码，解锁后查看完整代码

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

AI 解读

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

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