主题：组合框，选定列表内容，没有反应？

生产管理→成本核算单_编辑 窗口  在“状态”列组合框 自定义项目里 我 定义了 “进行中 已完成”，可是我在测试的时候，点击 组合框 的下拉列表中 选定 已完成 组合框中没有任何反应。请问这是为什么？请狐狸爸爸和各位高手帮我看一下。
此主题相关图片如下：bug.jpg

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

点击浏览该文件:cptims.foxdb

是开发板的

TextChanged

中有这段代码：

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "机织面料" And r("订单数量") <= r("坯布机织最低量") Then
        r("坯布单价") = r("坯布供应商报价") + r("坯布放样费")
    Else
        r("坯布单价") = r("坯布供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "机织面料" And r("订单数量") <= r("染色机织最低量") Then
        r("染色单价") = r("染色供应商报价") + r("染色小缸费")
    Else
        r("染色单价") = r("染色供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "机织面料" And r("订单数量") <= r("印花机织最低量") Then
        r("印花单价") = r("印花供应商报价") + r("印花上机费")+ r("印花描稿费")+ r("印花开版费")
    Else
        r("印花单价") = r("印花供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "针织面料" And r("订单数量") <= r("坯布针织最低量") Then
        r("坯布单价") = r("坯布供应商报价") + r("坯布上机费")
    Else
        r("坯布单价") = r("坯布供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "针织面料" And r("订单数量") <= r("染色针织最低量") Then
        r("染色单价") = r("染色供应商报价") + r("染色小缸费")
    Else
        r("染色单价") = r("染色供应商报价")
    End If
Next

For Each r As Row In Tables("成本核算单").Rows
    If r("面料类别") = "针织面料" And r("订单数量") <= r("印花针织最低量") Then
        r("印花单价") = r("印花供应商报价") + r("印花上机费")+ r("印花描稿费")+ r("印花开版费")
    Else
        r("印花单价") = r("印花供应商报价")
    End If
Next

 

就出现上面的错误，如果去掉这段代码就正常了。

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

点击浏览该文件:cptims.foxdb

把错误提示关掉就可以了。

不过打开之前出现上图这样的错误提示。

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

狐狸爸爸 在吗？出来帮我解决一下啊。十万火急

 

狐狸爸爸 帮我看一下啊

 

在吗？请帮我看一下，为什么出现这种莫名其妙的问题？谢谢

那是哪个数据类型错了呢？我把所有的表达式都删除了，还是出现这样的错误啊？