主题：[求助]求助老大了，关于这个项目里报错和卡顿的问题！

①这个项目里 现场检查表 datacolchanged 和 preparedit 都有代码

 

现在的问题是考核内容下拉后 触发datacolchanged后 会报错（最好以 符顺朝 为例）

 

此主题相关图片如下：1.jpg

 

 

此主题相关图片如下：2.jpg

 

②现场检查表 第二行例子里 由于考核内容为空（有岗位），考核序号应该是引用了绩效考核项表里的 相关序号， 但是进入单元格后没有下拉框

preparedit代码如下：

Dim cmd As New SQLCommand
Dim dt As DataTable
If e.Col.Name = "考核序号" Then
    cmd.C
    cmd.CommandText = "SELECT 序号,岗位,考核内容 From {考核项目}"
    dt = cmd.ExecuteReader()
    If e.Row("考核内容") IsNot Nothing Then
        Tables("现场检查").cols("考核序号").ComboList = dt.GetComboListString("序号", "岗位 = '" & e.Row("岗位") & "' and 考核内容 = '" & e.Row("考核内容") & "'")
    Else
        Tables("现场检查").cols("考核序号").ComboList = dt.GetComboListString("序号", "岗位 = '" & e.Row("岗位") & "'")
    End If
End If

 

 

 

③现场检查表  考核序号与考核内容来回点击会有卡顿现象

 

请问是什么原因？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:华泰内控系统-erp 12.7.rar

密码 短信你了 老大

第一个问题 自己已经解决 是表名的问题！

老大说的不错 呵呵！  

 

后台提取数据 我是有用的，以后项目成形肯定是用后台提取 加快读取  既然已经在开发 就想一步到位

有个问题

 

PrePareEdit  我的代码后半部分 考核内容为空的时候 考核序号应有对应岗位的序号下拉  怎么会没有下拉？

老大 有点见鬼啊  我把代码换成这个 

 

Case "考核序号"
            If e.Row.isnull("考核内容") = True Then
                Tables("现场检查").cols("考核序号").ComboList = dt.GetComboListString("序号", "岗位 = '" & e.Row("岗位") & "'")
            End If

 

就能正常下拉了  is nothing为什么不行

问题已解决