01.
Function
autoID()
02.
Dim
ds
As
New
DataSet
03.
Dim
da
As
New
MySqlDataAdapter
04.
Dim
bs
As
New
BindingSource
05.
Dim
sql
As
String
06.
07.
sql =
"select MAX(MemberID) as MemberID from tbllog"
08.
da.SelectCommand =
New
MySqlCommand(sql, MyCon)
09.
da.Fill(ds,
"tbllog"
)
10.
bs.DataSource = ds.Tables(
"Bill"
)
11.
If
Val(bs(bs.Position)(
"BillNumber"
).ToString) + 1 < 10
Then
12.
autoID =
"0000"
& Val(bs(bs.Position)(
"MemberID"
).ToString) + 1
13.
ElseIf
Val(bs(bs.Position)(
"BillNumber"
).ToString) + 1 < 100
Then
14.
autoID =
"000"
& Val(bs(bs.Position)(
"MemberID"
).ToString) + 1
15.
ElseIf
Val(bs(bs.Position)(
"BillNumber"
).ToString) + 1 < 1000
Then
16.
autoID =
"00"
& Val(bs(bs.Position)(
"MemberID"
).ToString) + 1
17.
ElseIf
Val(bs(bs.Position)(
"BillNumber"
).ToString) + 1 < 10000
Then
18.
autoID =
"0"
& Val(bs(bs.Position)(
"MemberID"
).ToString) + 1
19.
Else
20.
autoID =
""
& Val(bs(bs.Position)(
"MemberID"
).ToString) + 1
21.
End
If
22.
Return
autoID
23.
End
Function