Memo for treating and sorting the rowdata.
In material handling operations, time performance is crucial during picking. It is therefore essential to devise innovative shelving arrangements to enable efficient workflows.
Hatori's goals include:
Eliminating congestion with other picking staff
Maintaining clearly organized and tidy shelving
Time reduction
Error-free operations
Let’s assume there are shelves labeled A through E. If the picking sheet is pre-printed in the order of shelves A to E, the process would become significantly more efficient. To achieve this, the following program was considered:
-----------------------------------------------------------------------------------------------------------
If there are these data,I will put them into each textboxes.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim array1() As String = {"B1", "5", "HHHR", "タオル", "150"}
Dim array2() As String = {"C1", "1", "BGGHH", "石鹸", "100"}
Dim array3() As String = {"A1", "7", "MMMFR", "歯ブラシ", "300"}
Dim array4() As String = {"E1", "9", "NNGHT", "枕", "3000"}
Dim array5() As String = {"D1", "43", "TTTT", "鏡", "1000"}
TextBox1.Text = array1(0)
TextBox2.Text = array1(1)
TextBox3.Text = array1(2)
TextBox4.Text = array1(3)
TextBox5.Text = array1(4)
TextBox6.Text = array2(0)
TextBox7.Text = array2(1)
TextBox8.Text = array2(2)
TextBox9.Text = array2(3)
TextBox10.Text = array2(4)
TextBox11.Text = array3(0)
TextBox12.Text = array3(1)
TextBox13.Text = array3(2)
TextBox14.Text = array3(3)
TextBox15.Text = array3(4)
TextBox16.Text = array4(0)
TextBox17.Text = array4(1)
TextBox18.Text = array4(2)
TextBox19.Text = array4(3)
TextBox20.Text = array4(4)
TextBox21.Text = array5(0)
TextBox22.Text = array5(1)
TextBox23.Text = array5(2)
TextBox24.Text = array5(3)
TextBox25.Text = array5(4)
’And after that I want to sort the rowdata by A,B,C,D,E
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim array1() As String = {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text}
Dim array2() As String = {TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text}
Dim array3() As Strin
Dim array4() As String = {TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text}
Dim array5() As String = {TextBox21.Text, TextBox22.Text, TextBox23.Text, TextBox24.Text, TextBox25.Text}
Dim source As New List(Of String())({array1, array2, array3, array4, array5})
Dim sorted As List(Of String()) = source.OrderBy(Function(x) x(0)).ToList()
TextBox1.Text = sorted(0)(0)
TextBox2.Text = sorted(0)(1)
TextBox3.Text = sorted(0)(2)
TextBox4.Text = sorted(0)(3)
TextBox5.Text = sorted(0)(4)
TextBox6.Text = sorted(1)(0)
TextBox7.Text = sorted(1)(1)
TextBox8.Text = sorted(1)(2)
TextBox9.Text = sorted(1)(3)
TextBox10.Text = sorted(1)(4)
TextBox11.Text = sorted(2)(0)
TextBox12.Text = sorted(2)(1)
TextBox13.Text = sorted(2)(2)
TextBox14.Text = sorted(2)(3)
TextBox15.Text = sorted(2)(4)
TextBox16.Text = sorted(3)(0)
TextBox17.Text = sorted(3)(1)
TextBox18.Text = sorted(3)(2)
TextBox19.Text = sorted(3)(3)
TextBox20.Text = sorted(3)(4)
TextBox21.Text = sorted(4)(0)
TextBox22.Text = sorted(4)(1)
TextBox23.Text = sorted(4)(2)
TextBox24.Text = sorted(4)(3)
TextBox25.Text = sorted(4)(4)
End Sub