问个新增行赋值效率的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 问个新增行赋值效率的问题

共有2014人关注过本帖树形打印复制链接主题：问个新增行赋值效率的问题

晕了快扶我

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1207 积分：7230 威望：0 精华：0 注册：2013/3/4 18:02:00

问个新增行赋值效率的问题 发帖心情

Post By：2024/1/18 6:04:00 [显示全部帖子]

Dim crs As New List(Of DataRow)

For Each dr As DataRow In DataTables("包厢号表").DataRows

Dim cr As DataRow = DataTables("前台订房表").Find("包厢号='" & dr("房号") & "'")

If cr Is Nothing Then

crs.Add(dr)

End If

Dim st As Date = Date.Now

'要测试耗时的代码

Systemready = False

DataTables("前台订房表").StopRedraw

For Each dr As DataRow In crs

Dim vr As DataRow = DataTables("前台订房表").AddNew

vr("SysId") = Functions.Execute("数据表编号", "前台订房表")

vr("营业日期") = yyrq

vr("包厢号") = dr("房号")

vr("状态") = "空房"

DataTables("前台订房表").ResumeRedraw

DataTables("前台订房表").Save

Systemready = True

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

蓝色代码增加45行数据,就要12秒多,有啥办法可以优化吗?

晕了快扶我

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1207 积分：7230 威望：0 精华：0 注册：2013/3/4 18:02:00

Post By：2024/1/18 14:34:00 [显示全部帖子]

蓝版,查了下,是

Functions.Execute("数据表编号", "前台订房表")

这个函数的问题,函数代码在下面,这个要怎么优化呢?

Dim bm As String = args(0)

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "s elect * from {编码表}"

Dim dt As DataTable = cmd.ExecuteReader(True)

Dim dr As DataRow = dt.Find("表名 ='" & bm & "'")

If dr IsNot Nothing Then

If Date.Today > dr("日期") Then '如果今天的日子大于存在表格里的日期

dr("日期") = Date.Today

dr("序号") = 0

Else

dr("序号") = dr("序号") + 1 '如果和今天的日子一样，则序号+1

End If

Dim s As String = dr("前缀名") + Format(Date.Today, "yyMMdd") + Format(dr("序号"), "0000")

dr.Save

Return(s)

End If

晕了快扶我

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1207 积分：7230 威望：0 精华：0 注册：2013/3/4 18:02:00

Post By：2024/1/18 14:49:00 [显示全部帖子]

大概懂了,谢谢蓝版

下一主题 >> << 上一主题

主题：问个新增行赋值效率的问题