主题：请教引用问题

Select Case e.Col.Name
    Case "交货日期"
        If e.Text > "" Then
            e.Row("审核") = True
        End If
End Select

想实现交货日期列（字符格式）有数据，审核列（逻辑格式）自动打"√"，谢谢！！！

写在VALIDATEEDIT里，请指教。谢谢！！！

试了一下，在交货日期输入数据，审核没打勾，不知问题出在什么位置。

 

Select Case e.DataCol.Name
   Case "交货日期"
      e.DataRow("审核")  = Not e.DataRow.IsNull("交货日期")
End Select

将上述代码设置在DataColChanged里，审核列没打勾，不是引用多了有什么冲突吧，请指教，谢谢！！！

已将代码放在第一行，还是不行，谢谢各位专家，还是用手打勾了，衷心感谢！！！

Select Case e.DataCol.Name
   Case "交货日期"
      e.DataRow("审核")  = Not e.DataRow.IsNull("交货日期")
End Select
If e.DataCol.Name = "规格" OrElse e.DataCol.Name = "单价" Then
    Dim dr As DataRow
    dr = DataTables("仓库").Find("[规格] = '" & e.DataRow("规格") & "'")
    If dr IsNot Nothing Then
        e.DataRow("存量") = dr("存量")
    Else
        e.DataRow("存量") = Nothing
    End If
End If

If e.DataCol.Name = "配" AndAlso e.DataRow("配") = True Then
    Dim nma() As String = {"管制号","规格","加工","交货日期","客户"}
    Dim nmb() As String = {"管制号","规格","加工","交货日期","客户"}
    Dim dr As DataRow = DataTables("车床").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

If e.DataCol.Name = "小件" AndAlso e.DataRow("小件") = True Then
    Dim nma() As String = {"管制号","规格","加工","交货日期","客户"}
    Dim nmb() As String = {"管制号","规格","加工","交货日期","客户"}
    Dim dr As DataRow = DataTables("小件").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

Select Case e.DataCol.Name
    Case "规格"
        If e.DataRow.IsNull("规格") = False Then
            If e.DataRow.GetChildRows("规格").Count = 0 Then
                Dim dr As DataRow = DataTables("仓库").AddNew()
                dr("规格") = e.DataRow("规格")
            End If
        End If
End Select

If e.DataCol.name = "审核" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("审核") = True
                cnt = cnt + 1
            End If
        Next
        pr("审核") = (crs.Count = cnt)
    End If
End If

因是新手，如其它代码有不合理的请帮忙一起修改，谢谢！！！

 

谢谢！！！

传不上去，错误：文件类型不正确我，要改成其它格式吗？

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

点击浏览该文件:代码.rar

抱歉！经过仔细检查真的是列名写错一个字，现问题已解决，万分感谢！！！

现正在做采购这个模块，下面这段代码怎么研究都转不过弯来，因入库有两类，一类是采字开头编号到财务付款，其它开头编号到财务收款，都是靠审核来锁定行，现采购没问题，订单入库就报错，请指教。

If e.DataCol.Name = "审核" AndAlso e.DataRow("审核") = True Then
    Dim nma() As String = {"管制号","规格","数量","客户"}
    Dim nmb() As String = {"管制号","规格","数量","客户"}
    Dim dr As DataRow = DataTables("出库").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If
Select Case e.DataCol.name
    Case "审核"
        Dim dr As DataRow = DataTables("采购").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
        dr("审核") = e.DataRow("审核")
End Select