 |
| |
จะแปลงค่าจาก string แปลงเป็นตัวเลขเก็บเข้าฐานข้อมูล |
| |
 |
|
|
 |
 |
|
สร้าง table เก็บค่าไว้ก่อน ตอนบันทึกวนloop ดึงค่ามาแล้วบันทึกลงฐานข้อมูลครับ
|
ประวัติการแก้ไข
2017-08-09 11:35:34
 |
 |
 |
 |
| Date :
2017-08-09 11:35:06 |
By :
kunakorn-s |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
open excel ได้รึยังครับ
|
| |
|
|
| |
| Date :
2017-08-09 12:05:42 |
By :
lamaka.tor |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำได้แล้วครับ ขอถามต่อครับ เราจะกำหนด ดักข้อมูลที่ import เข้ามายังไง โดยข้อมูลที่อ่าน อ่านจาก cell จะต้องเป็นตัวเลขเท่านั้น หรือตัวอักษรเท่านั้น (ไม่ใช่ textbox นะครับ) มีโค๊ดพอที่จะแนะนำไหมครับ ขอบคุณครับ
|
| |
|
|
| |
| Date :
2017-08-10 11:11:11 |
By :
bankguszo |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แก้ไขได้แล้วครับ แต่ไม่ชัวว่า ตรงตัวอักษรถูกไหม
Code (VB.NET)
Dim NUMQTYI1 As String = IIf(CType(range.Cells(rCnt, 14), Excel.Range).Value = Nothing, "0", CType(range.Cells(rCnt, 14), Excel.Range).Value)
Dim NumQTY As Object = NUMQTYI1
Dim ChecknumericQTY As Boolean
ChecknumericQTY = IsNumeric(NumQTY)
If ChecknumericQTY = True Then
UNPD_QTY = NUMQTYI1
End If
Code (VB.NET)
Dim CharPortT1 As String = IIf(CType(range.Cells(16, 7), Excel.Range).Value = Nothing, "", CType(range.Cells(16, 7), Excel.Range).Value)
Dim CharPort As Object = CharPortT1
Dim CheckCharPort As String
CheckCharPort = TypeName(CharPort)
If CheckCharPort = TypeName(CharPort) = True Then
UNP_PORT = CharPortT1
End If
|
| |
|
|
| |
| Date :
2017-08-11 11:16:02 |
By :
bankguszo |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
