以下是引用晕了快扶我在2013-5-10 17:12:00的发言：
If bname = "产品报价"
Dim ids As String
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText ="select * from {产品报价主表}"
dt = cmd.ExecuteReader
For Each dr As DataRow In dt.DataRows
ids = ids & ",'" & dr("OPN") &"'"
Next
ids= ids.Trim(",")
dim t as table = Tables("产品报价选择_产品列表") '建议以后都进行代码定义，之后修改代码方便很多
t.StopRedraw
Tables("产品报价选择_产品列表").fill("Select * From {未报价物料查询} where 料号 not In (" & ids & ")","ERP",True)
Dim i As Integer =Tables("产品报价选择_产品列表").DataTable.DataRows.Count
With Tables("产品报价选择_产品列表").DataTable
.LoadFilter = "料号 not In (" & ids & ")"
.LoadTop = 15
.LoadPage = 0
.Load()
e.Form.Controls("页码信息").Text= "共[" & .TotalPages & "] 页 ,当前为第[" & .LoadPage + 1 & "]页,共[" & i & "]行数据"
End With
With Tables("产品报价选择_产品列表")
.MergeMode = MergeModeEnum.Free
.MergeCols.Clear()
.MergeCols.Add("品牌")
.MergeCols.Add("供应商")
.MergeCols.Add("品名")
.MergeCols.Add("规格")
.MergeCols.Add("料号")
.MergeCols.Add("均价")
.MergeSort = "品牌,供应商,品名"
.AllowMerge = True
.Cols("品牌").TextAlign = TextAlignEnum.Center
.Cols("MOQ").TextAlign = TextAlignEnum.Center
.Cols("供应商").TextAlign = TextAlignEnum.Center
.Cols("单价").TextAlign = TextAlignEnum.Center
.Cols("未税单价").TextAlign = TextAlignEnum.Center
.Cols("均价").TextAlign = TextAlignEnum.Center
.Cols("税率").TextAlign = TextAlignEnum.Center
.DataTable.SysStyles("EmptyArea").BackColor = color.white
.DataTable.DataCols("单价").SetFormat("##0.#####")
.DataTable.DataCols("均价").SetFormat("##0.#####")
.DataTable.DataCols("未税单价").SetFormat("##0.#####")
.DataTable.DataCols("MOQ").SetFormat("#,####,###")
.SetColVisibleWidth("品牌|80|供应商|90|未税单价|60|单价|60|均价|60|品名|120|规格|200|料号|190|MOQ|60|含税|40|税率|40")
End With
End If
t.ResumeRedraw
卡得疯掉了，窗口的afterload事件，大概会卡3秒左右，求高手帮忙看看能不能优化的？
SQL2000和2005的数据库测试都有这个问题，PING 服务器无丢包现象，PING值少于1MS
加上这两条应该就够了
加好友 
发短信
Post By：2013/5/10 17:23:00 [显示全部帖子]
