主题：狐爸0225更新后的问题急求解

狐爸请检查0225更新后是不是有问题

之前发布的版本的项目能正常使用

用0225更新后的版本发布的项目出现问题

出现的问题现在还没有找到规律，有些代码出错或不运行。。。

版本检测

 

此主题相关图片如下：qq截图20120308113415.jpg

有个小调整，例如在DataRowAdding中设置列的值，不会触发DataColChanged事件。

例如：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=17236&skin=0

好象不仅仅是这个原因

采购订单明细 的DataColChanged代码也不执行

Dim dr As DataRow =e.DataRow
Select Case e.DataCol.Name

         Case "商品代码"

                 If e.DataRow.IsNull("采购订单日期") = False Then 
                       Dim cmdz As New SQLCommand
                       Dim dtz As DataTable
                       cmdz.C                          cmdz.CommandText = "SELECT * From {产品价格表} Where 商品代码 ='" & e.DataRow("商品代码") & "'And 终止日期 >='" & e.DataRow("采购订单日期") & "' And 起始日期 <='" & e.DataRow("采购订单日期") & "'" 
                       dtz = cmdz.ExecuteReader()
                       If dtz.DataRows.Count > 0 Then
                          dr("基价") = dtz.DataRows(0)("价格_成本")
                          dr("折扣")=dr("无税单价")-dr("基价")
                       End If
                    End If

End Select

这个采购订单明细的 采购订单日期 不是通过DataRowAdding设置的值，而是通过采购订单明细 的DataColChanged代码而来的

Case "采购订单编号"
        Dim da As DataRow
        da = DataTables("采购订单").Find("[采购订单编号]='" & e.DataRow("采购订单编号") & "'")
        If da IsNot Nothing Then
            dr("采购订单日期")=da("采购订单日期")

做个简单的例子发上来，说明一下你遇到的问题吧。

还有这种和DataRowAdding和DataColChanged无关的原代码

比如DataColChanging代码

Select Case e.DataCol.Name
    Case "商品代码"

          Dim cmd11 As New SQLCommand
          Dim dt11 As DataTable
          cmd11.C 
          cmd11.CommandText = "Select SUM(计量_数量) as 结存数量 From {库存数据} Where 商品代码 ='" & trim(e.NewValue) & "'And 仓库名称 ='" & trim(e.DataRow("仓库名称")) & "'"
           dt11 = cmd11.ExecuteReader()

           Dim dr11 As DataRow=dt11.DataRows(0)

           If dr11("结存数量") < 1 then

              e.Cancel =True
              Messagebox.Show("结存数量小于1!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

End Select

事实上 结存数量 不小于1 但总提示“结存数量小于1”？

          

好象找到原因了，问题出在关联子表新增行时关联列不触发DataColChanged事件，以前版本是可以的

出库明细表的DataColChanged事件为

Dim dr As DataRow =e.DataRow
Select Case e.DataCol.Name
    Case "出库编号"
        Dim da As DataRow
        da = DataTables("出库").Find("[出库编号]='" & e.DataRow("出库编号") & "'")
        If da IsNot Nothing Then
            dr("仓库名称")=da("仓库名称")
        End If
End Select

如例在出库表中输入出库编号，仓库名称后，在出库明细表新增行后并未触发DataColChanged，出库明细表的仓库名称为空，所在再在商品代码中输入商品代码就出差错，怎么办呢？

 

 

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

点击浏览该文件:管理项目4.foxdb

急求解

你6楼的文件，为我测试没有问题，我在出库明细表增加一行，输入出库编号，仓库名称能够自动出现啊。

正如你说的：有个小调整，例如在DataRowAdding中设置列的值，不会触发DataColChanged事件。这种对于以前的代码依据DataRowAdding来触发DataColChanged事件，现在怎么办呢？现在关联表也出现这种问题了。现在想回到以前的版本都回不去了，有什么办法吗？

你可以将代码一直到DataRowAdded事件中，如果不方便一直，也不用担心，明天重新下载一下，我也感觉这种变动代码的副作用太大，所以今晚改回来，重新上传一下算了。