16,555
社区成员
发帖
与我相关
我的任务
分享
Option Explicit On
Option Strict On
Option Infer On
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: 这行代码将数据加载到表“GamesDataSet.tblPlatform”中。您可以根据需要移动或删除它。
Me.TblPlatformTableAdapter.Fill(Me.GamesDataSet.tblPlatform)
End Sub
Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
Dim intPrice As Integer = CType(txtPrice.Text, Integer)
Dim intQty As Integer = CType(txtQty.Text, Integer)
GamesDataSet.tblGames.AddtblGamesRow(txtGameName.Text, txtPlatform.Text, txtRating.Text, intPrice, txtStates.Text, intQty)
End Sub
End Class