For Each cc As String In Split(lst.Value, ",")
cmd.CommandText = "SEL ECT * F rom {图定列车} where 车次= '" & cc & "'"
dt = cmd.ExecuteReader()
' 遍历日期范围
For j As Integer = 0 To ts.Days - 1
Dim currentDate As Date = sd.Value.AddDays(j)
' 添加新记录
For Each dr1 As DataRow In dt.DataRows
Try
Dim dr2 As DataRow = DataTables("列车计划").AddNew()
For i As Integer = 0 To Cols1.Length - 1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
dr2("日期") = currentDate
dr2("序号") = dr1("序号") ' 将图定列车的序号赋值给列车计划的序号
dr2("停开") = "开行"
dr2.Save()
Catch ex As Exception
MessageBox.Show("添加记录时发生错误: " & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End Try
Next
' 更新进度条
p.Value += 1
Application.DoEvents() ' 刷新界面
Next
Next
加好友 
发短信
Post By：2025/3/28 11:28:00 [显示全部帖子]
