Форма, занесение данных в таблицу
#38111576
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
Привет
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49.
Public Class Form1
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Dim M1, OF1, OHB As Single
Dim T1 As Integer
OF1 = Val(TextBox1.Text)
OHB = Val(TextBox2.Text)
T1 = Val(TextBox3.Text)
' Формула
M1 = (OF1 - OHB) * T1 * 0.1
TextBox4.Text = Str(M1)
End Sub
Private Sub ToolStripMenuItem2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Me.Text = " Расчет размера вреда и убытков"
Dim Imena() As String = {"", " В ", "Т ", " Р ", " З ", "О "}
Dim Tel() As String = {"Е", "тон", "тыс/руб", "тыс", "тыс", "тыс"}
Dim Vesh() As String = {"Загр", "", "", "", "", " - "}
Dim Vsego() As String = {" - ", " - ", "", "", "", ""}
Dim dt As New DataTable
dt.Columns.Add("Имена")
dt.Columns.Add("Единицы")
dt.Columns.Add("Вещества")
dt.Columns.Add("Всего")
For i As Short = 0 To 5
dt.Rows.Add(New String() {Imena(i), Tel(i), Vesh(i), Vsego(i)})
Next
DataGridView1.DataSource = dt
End Sub
End Class
Подскажите, а лучше научите ...
В кнопке ВЫВОД находиться таблица
Мне надо чтобы при нажатии кнопки ВЫВОД создавалась новая форма и в ней была моя таблица. Для вас это не сложно ...
Но меня больше беспокоит, как в эту таблицу можно будет занести значения которые будут вводиться в функции РАСЧЕТ ?
И можно ли ее кинуть на печать ( таблицу) - это не важно, интересуюсь.
Модератор: Тема перенесена из форума "Visual Basic".
|
|