หลังโหลดฟอร์มขึ้นมาต้องการให้โปรแกรมคำนวณยอด SUM ใน grid auto เขียน sub ย่อย คำนวณยอดใน grid ไว้ที่ endedit ค่ะ แต่ต้องการเวลาที่โหลดฟอร์มขึ้นมา ให้โปรแกรมแสดงยอดรวมอัติโนมัติ ต้องเขียนแบบไหนคะ เพราะลองเอา sub ย่อย ไปวางที่ฟอร์มโหลด แล้วรันดู แต่ก็ไม่ขึ้นยอดรวมให้
Dim i As Integer = 0
Dim tmptxts1 As Double = 0
Me.DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(1).Value = 0
For i = 0 To DataGridView1.Rows.Count - 2
tmptxts1 += CDbl(DataGridView1.Rows(i).Cells(1).Value)
Me.DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(1).Value = tmptxts1
Next
If tmptxts1 = Nothing Then
Me.DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(1).Value = txtzeo
End If
Module Program
Sub Main(args As String())
'Lock Threading.Thread
Sexform.GetAwaiter().GetResult() 'preform().Wait()
'Unlock Threading.Thread
Console.ReadLine()
End Sub
Async Function Working() As Task
Console.WriteLine("Please wait the program is running")
Await Task.Delay(0)
End Function
Async Function Taskingtime() As Task
Console.WriteLine("This Program started")
Await Task.Delay(1500)
Console.WriteLine("The Program finished")
For i As Integer = 0 To 500
Console.WriteLine("................................................................")
Await Task.Delay(100)
Next
Console.WriteLine(" ")
Console.WriteLine(" ")
Console.WriteLine(" ")
Console.WriteLine("Press Enter to exists.")
End Function
Function Sexform() As Task
Return Task.WhenAll(Taskingtime(), Working())
End Function
End Module
Load balance : Server 05
