①这个项目里 现场检查表 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

密码 短信你了 老大

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

1、你的DataColChanged时间的代码：

    cm.CommandText = "SELECT 考核内容,序号,岗位 From {绩效考核项}"

可是你的后台并没有名称为“绩效考核项”的表，只有“考核项目”表，不要表Foxtable中的名称和后台的名称混淆了。

而且为什么要从后台提取数据，直接从已经加载的绩效考核项提取就行：

Dim dt As DataTable = DataTables("绩效考核项")
Select Case  e.DataCol.Name
    Case  = "责任人"
        Dim dr As DataRow = dt.Find("姓名 = " & "\'" & e.DataRow("责任人") & "\'" )
        If dr IsNot Nothing \'如果找到, 则设置各列内容
            e.DataRow("部门") = dr("部门")
            e.DataRow("岗位") = dr("岗位")
        End If
    Case  "考核内容"
        Dim dr As DataRow = dt.Find("考核内容 = " & "\'" & e.DataRow("考核内容") & "\' and 岗位 = " & "\'" & e.DataRow("岗位") & "\'" )
        If dr IsNot Nothing \'如果找到, 则设置各列内容
            e.DataRow("考核序号") = dr("序号")
        End If
End Select

2、PrePareEdit时间中不应该有计算量大的代码，你现在这样的代码，一定是卡的，PrepareEdit事件的代码应该改为：

If e.IsFocusCell Then
    Select Case e.col.name
        Case "考核内容"
            Tables("现场检查").cols("考核内容").ComboList = DataTables("绩效考核项").GetComboListString("考核内容", "岗位 = \'" & e.Row("岗位") & "\'")
        Case  "考核序号"
            If e.Row("考核内容") IsNot Nothing Then
                Tables("现场检查").cols("考核序号").ComboList = DataTables("绩效考核项").GetComboListString("序号", "岗位 = \'" & e.Row("岗位") & "\' and 考核内容 = \'" & e.Row("考核内容") & "\'")
            Else
                Tables("现场检查").cols("考核序号").ComboList = DataTables("绩效考核项").GetComboListString("序号", "岗位 = \'" & e.Row("岗位") & "\'")
            End If
    End Select
End If

您学了很多知识，但是消化不好，你用的都是高级却不高效的方法，建议先不要着急开发，先再系统温习一下帮助。

例如这种动态列表项目，帮助都有介绍的：

老大说的不错 呵呵！  

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

后台提取数据很慢的，常用的数据，就应该一次提取出来，不要分多次提取。

有个问题

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

If e.Row("考核内容") IsNot Nothing Then

应该改为：

If e.Row.IsNull("考核内容")  = False

参考：

http://www.foxtable.com/help/topics/1470.htm