ผมให้อยาก มันรัน รหัสพนักงานเองอ่ะโดยที่ไม่ตรงไปใส่ รหัสของ พนักงานอ่ะครับ
มีตัวอักษรผสมอยู่ คงต้องเเยกตัวเลขออกมาก่อนนะครับ ถ้าเป็นตัวเลขอย่างเดียว +1 ก็ได้เเล้วนะครับCode (VB.NET) Dim LenText As Integer = 0
Dim Newtext As String = ""
If Textbox.Text <> "" Then
For LenText = 0 To Len(Textbox.Text) - 1
If (Asc(Textbox.Text.Substring(LenText, 1)) >= 48) And (Asc(Textbox.Text.Substring(LenText, 1)) <= 57) Then
Newtext += Textbox.Text.Substring(LenText, 1)
End If
Next
End If
Date :
2010-12-23 15:09:44By :
EucifeR
งงมากเลยครับ ใส่ ตรงไหน หรอ ครับ
Date :
2010-12-23 16:48:46By :
Digitalhong
อย่างแรกเลย จขกท. ต้อง Select รหัสพนักงานอันบนสุดออกมาให้ได้ก่อนครับ พอได้มาแล้วก็ ทำการ บวกเพิ่มเข้าไป 1 ตามความเห็นข้างบนครับ จะใช้อันบนก็ได้ หรือจะใช้แบบนี้ก็ได้Code (VB.NET) Dim _String As String = "E002"
Me.Text = Format$(Mid(_String, 2, _String.Length - 1) + 1, "\E\000")
Date :
2010-12-24 08:49:00By :
kaimuk
ฟอร์มนี้ยังไม่สมบูรณ์
ประวัติการแก้ไข
Date :
2010-12-24 09:08:09By :
base3000
ขอบคุณครับ ขอรบกวนต่อด้วยนะครับCode (VB.NET) Sub choiE()
Dim sql As String = "Select IDEmployee From Employee"
Dim cmd As New OleDbCommand(sql, connect)
Dim Adapter As New OleDbDataAdapter(cmd)
Dim data As New DataSet()
Adapter.Fill(data, "Id")
Dim p As String = data.Tables("ID").Rows(0)(0)
TbxEmployeeID.Text = p
End Sub
Date :
2010-12-24 10:49:51By :
Digitalhong
"Select IDEmployee From Employee" เปลี่ยนเป็น "Select IDEmployee From Employee Order By IDEmployee DESC"
ประวัติการแก้ไข
Date :
2010-12-24 11:18:04By :
kaimuk
Code (VB.NET) Dim _String As String = "E002"
Me.Text = Format$(Mid(_String, 2, _String.Length - 1) + 1, "\E\000")
ประวัติการแก้ไข
Date :
2010-12-24 11:23:54By :
Digitalhong
คือแบบว่า เอาไปดัดแปลงอ่ะครับ ไม่ใช้ให้เอาไปใช้เลย จริงๆ ปรับนิดหน่อยก็ใช้ได้แล้วนะครับ
Date :
2010-12-24 14:53:23By :
kaimuk
ครับ
Date :
2010-12-24 15:59:28By :
Digitalhong
Server 05
Load balance : Server 05
