01.
Private
Sub
PurchaseMatid()
02.
Dim
d_adap
As
New
SqlDataAdapter(
"SELECT Pur_id FROM Tl_Purchase"
, Conn)
03.
Dim
d_set
As
New
DataSet
04.
Dim
d_table
As
New
DataTable
05.
Dim
d_row
As
DataRow
06.
07.
Dim
Pur_String
As
String
08.
09.
d_adap.Fill(d_set,
"Pur_id"
)
10.
d_table = d_set.Tables(
"Pur_id"
)
11.
If
d_set.Tables(
"Pur_id"
).Rows.Count = 0
Then
12.
TxtPurMatid.Text =
"Pur0000001"
13.
Else
14.
For
Each
d_row
In
d_table.Rows
15.
Pur_String = Mid(d_row.Item(
"Pur_id"
), 7, 10) + 1
16.
If
Pur_String.Length = 1
Then
17.
TxtPurMatid.Text =
"Pur000000"
+ Pur_String
18.
ElseIf
Pur_String.Length = 2
Then
19.
TxtPurMatid.Text =
"Pur00000"
+ Pur_String
20.
ElseIf
Pur_String.Length = 3
Then
21.
TxtPurMatid.Text =
"Pur0000"
+ Pur_String
22.
ElseIf
Pur_String.Length = 4
Then
23.
TxtPurMatid.Text =
"Pur000"
+ Pur_String
24.
ElseIf
Pur_String.Length = 5
Then
25.
TxtPurMatid.Text =
"Pur00"
+ Pur_String
26.
ElseIf
Pur_String.Length = 6
Then
27.
TxtPurMatid.Text =
"Pur0"
+ Pur_String
28.
ElseIf
Pur_String.Length = 7
Then
29.
TxtPurMatid.Text =
"Pur"
+ Pur_String
30.
End
If
31.
32.
Next
33.
End
If
34.
35.
36.
End
Sub