excel如何将查询到的数据表写入窗体的文本控件找中，然后修改相关数据后，数据表中的值也会改变的vba代码

您可以使用以下VBA代码将查询到的数据表写入窗体的文本控件，并且修改相关数据后，数据表中的值也会相应改变：

Sub LoadDataToForm()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，根据您的实际情况修改
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 查询数据表中的数据
    strSQL = "SELECT * FROM YourTable"
    rs.Open strSQL, conn
    
    ' 将查询结果写入窗体的文本控件
    If Not rs.EOF Then
        ' 假设窗体名为Form1，文本控件名为TextBox1
        Form1.TextBox1.Value = rs.Fields("FieldName").Value
    End If
    
    ' 关闭记录集和连接对象
    rs.Close
    conn.Close
    
    ' 释放对象变量
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub UpdateDataFromForm()
    Dim conn As Object
    Dim strSQL As String
    
    ' 创建连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，根据您的实际情况修改
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 更新数据表中的数据
    ' 假设窗体名为Form1，文本控件名为TextBox1
    strSQL = "UPDATE YourTable SET FieldName = '" & Form1.TextBox1.Value & "' WHERE ID = 1"
    
    ' 执行SQL语句
    conn.Execute strSQL
    
    ' 关闭连接对象
    conn.Close
    
    ' 释放对象变量
    Set conn = Nothing
End Sub

您可以将上述代码中的`YourTable`替换为您要查询和更新的数据表名称，`FieldName`替换为您要操作的字段名，`Form1`替换为您实际使用的窗体名称，`TextBox1`替换为您实际使用的文本控件名称。

`LoadDataToForm`子过程用于将查询到的数据写入窗体的文本控件，`UpdateDataFromForm`子过程用于从窗体的文本控件中获取修改后的值，并更新到数据表中。

请根据您的实际情况修改连接字符串中的数据库路径和提供程序。此示例使用的是Microsoft Access数据库。如果您使用其他类型的数据库，需相应修改连接字符串和查询语句。

希望对您有所帮助！如有更多问题，请随时提问。