Save

[Sujira Pinta]

อยากจะให้ข้อมูล Save ไว้ในแต่ละ Columns ต้องเขียนโค้ดยังไงต่อครับ นี่คือส่วนหนึ่งที่เขียนแต่หัวข้อครับ

Capture13.PNG

[snasui]

ขึ้นอยู่กับข้อมูลที่จะเอามาวางว่าเอามาจากไหน สำหรับการวางต่อไปด้านล่างสามารถทำได้หลายวิธี เช่น Loop วางในบรรทัดถัดไป หรือวางจาก Array พร้อมกันทีเดียวทั้งชุด หรือวางจาก RecordSet ทีเดียวทั้งชุด เป็นต้นครับ

[Sujira Pinta]

อยากได้โค้ดVBถ้าเราจะให้ในแต่ละ column and row อยากจะจัดขนาดตัวอักษรไม่เท่ากันแต่ละ Column ให้อัตโนมัติแบบครั้งเดียวจบเลย ไม่ต้องมา Save หลายรอบ ประมาณนี้ครับต้องทำไงครับ



Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
Try
Dim path As String = "d:\" + dateTimesStamp(99) + ".csv"
If Not File.Exists(path) Then
Using sw As StreamWriter = File.CreateText(path)
sw.WriteLine("Operator,Date,shift,operation,Time start,Time finish,Time total,JudgementG/NG,Why (reason),No.lot/break")
sw.Close()
End Using
End If
Using sw As StreamWriter = File.AppendText(path)
sw.WriteLine(tb_data1.Text + "," + tb_data2.Text + "," + cbx1.Text + "," + lb_work1.Text + "," + tb_time1.Text + "," + tb_time2.Text + "," + btn_taketime1.Text + "," + btn_ng1.Text + "," + tb_reason1.Text + "," + tb_amount.Text)

sw.WriteLine(tb_data1.Text + "," + tb_data2.Text + "," + cbx1.Text + "," + lb_work2.Text + "," + tb_time3.Text + "," + tb_time4.Text + "," + btn_taketime2.Text + "," + btn_ng2.Text + "," + tb_reason2.Text + "," + tb_amount.Text)

sw.WriteLine(tb_data1.Text + "," + tb_data2.Text + "," + cbx1.Text + "," + lb_work3.Text + "," + tb_time5.Text + "," + tb_time6.Text + "," + btn_taketime3.Text + "," + btn_ng3.Text + "," + tb_reason3.Text + "," + tb_amount.Text)
sw.Close()
End Using
Catch ex As Exception
End Try

[snasui]

Code ที่เขียนมาเป็นการเขียน csv ไฟล์ ไม่สามารถเก็บ Format ที่เป็นการใส่สี ตึเส้น ตัวใหญ่ตัวหนา ตัวเอียง ฯลฯ ได้ หากจะทำต้องเขียนข้อมูลลงใน Excel ซึ่งเราสามารถอ้างถึง Range, Row, Column ได้ครับ

ตัวอย่างการจัด Font ดูได้ที่นี่ครับ https://msdn.microsoft.com/en-us/librar ... 97569.aspx

สำหรับการโพสต์ Code ควรโพสต์ให้แสดงเป็น Code ดูได้ที่นี่ครับ viewtopic.php?f=6&t=1187

[Fastfigo]

ยอดไปเลยครับผม