Question

我使用以下代码创建datagridview。

Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

' 此处导入文件的其他代码

然后下面的代码构建一个数据表

Dim sql2 As String = "SELECT i.[ID],i.[Site],i.[CLI],i.[CustomerName],i.[FromDate],i.[ToDate],i.[Quantity],i.[UnitCost],i.[TotalCost],i.[Description],i.[filenameonly],i.billingmonth as [CurrentBillingMonth], i.[bill] From [DaisyServices].[dbo].[DaisyServicesIndigo] i LEFT JOIN [DaisyServices].[dbo].[" + TextBox1.Text + "] s on i.[SITE]=s.[SITE] AND i.[CLI]=s.[CLI] AND i.[Quantity]=s.[Quantity] AND i.[UnitCost]=s.[UnitCost] AND i.[TotalCost]=s.[TotalCost] AND i.[Description]=s.[Description] WHERE s.[CLI] is NULL"
Dim comm2 As SqlCommand = New SqlCommand(sql2, conn)
Dim dataadapter2 As SqlDataAdapter = New SqlDataAdapter(comm2)


'Fill Table
dataadapter2.Fill(ds, "Missing")
DataGridView3.AutoGenerateColumns = False
DataGridView3.DataSource = ds.Tables("Missing")

我想在表单上创建一个按钮以保存回数据库，例如

Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click

    'Save updated Customer DataGridView
    Dim sqlCmdBuilder As New SqlCommandBuilder(dataadapter2)
    sqlCmdBuilder.GetUpdateCommand()
    dataadapter2.Update(ds.Tables("Missing"))

End Sub

问题出在Button4上我收到一条错误，指出dataadapter2未声明

如何构建代码以便Button4＆gt;

可以访问它

我尝试将DIM添加到顶级类，但是通过“未将对象引用设置为对象的实例”引起了其他问题。打开表格时。

任何帮助非常感谢

由于

Answer 1

公开声明dataadapter2以便您可以从其他函数访问它

Dataadapter2未声明

1 个答案: