将表转移到表 MySQLConn=新的MySqlConnection MySQLConn.ConnectionString=连接 Adapter=新的MySqlDataAdapter Dim QRY=“从子数据库中选择设备ID、数量” Dim TimeAndDate As String=DateTime.Now.ToString（“yyyy/MM/dd HH:MM:ss”） Dim EQIDArr作为新阵列列表 Dim QTYArr作为新阵列列表 尝试 MySQLConn.Open（） 命令=新的MySqlCommand（QRY，MySQLConn） Dim QRY1=“将值（@Uname、@EQID、@QTY、@TAD）插入到借阅日志（`借入名称'、`EquipmentID`、`Quantity`、`TimeDate`）中” Dim Command2=新的MySqlCommand（QRY1，MySQLConn） Reader=Command.ExecuteReader 而Reader.Read（） 添加（读卡器（“设备ID”）） 数量添加（读卡器（“数量”）） 结束时 Reader.Close（） 尺寸i为整数=0 对于每个eqid，将其作为EQIDArr中的整数 对于每个QTYArr中的整数数量 Command2=新的MySqlCommand（QRY1，MySQLConn） Command2.Parameters.AddWithValue（“@Uname”，add借款人.TextBox1.Text） Command2.Parameters.AddWithValue（“@EQID”，EQID） Command2.Parameters.AddWithValue（“@QTY”，QTY） Command2.Parameters.AddWithValue（“@TAD”，TimeAndDate） Command2.ExecuteNonQuery（） 下一个 下一个 MySQLConn.Close（） AddBorrowerIntoBorrowerForm.Close（） Catch ex作为MySqlException MessageBox.Show（例如Message） 最后 MySQLConn.Dispose（） 结束尝试 addfower.Close（）

我有这个代码，应该是将一个表集转移到另一个表集，但添加了一些细节并对其进行了增强，我在

将每个eqid作为EQIDArr中的整数
对于每个QTYArr中的整数数量
Command2=新的MySqlCommand（QRY1，MySQLConn）
Command2.Parameters.AddWithValue（“@Uname”，add借款人.TextBox1.Text）
Command2.Parameters.AddWithValue（“@EQID”，EQID）
Command2.Parameters.AddWithValue（“@QTY”，QTY）
Command2.Parameters.AddWithValue（“@TAD”，TimeAndDate）
Command2.ExecuteNonQuery（）
下一个
下一个

---

部分。有人能帮我做这个循环吗？我的问题是，当我按下按钮时，它会将表时间输入到它的列计数中。有人帮我做这个循环吗

为什么要使用循环进行此操作？您只需使用

insert。选择

。要遵循您尝试执行的逻辑有点困难，但这可能会让您走上正确的轨道：

INSERT INTO borrowlogs( `BorrowerName`, `EquipmentID`, `Quantity`, `TimeDate`)
    SELECT AddBorrower.TextBox1.Text, EquipmentID, Quantity, NOW()
    FROM subdbborroweq;

---

为什么要使用循环来完成此操作？您只需使用

insert。选择

。要遵循您尝试执行的逻辑有点困难，但这可能会让您走上正确的轨道：

INSERT INTO borrowlogs( `BorrowerName`, `EquipmentID`, `Quantity`, `TimeDate`)
    SELECT AddBorrower.TextBox1.Text, EquipmentID, Quantity, NOW()
    FROM subdbborroweq;