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

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

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

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

版本检测

有个小调整，例如在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

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