If e.DataCol.Name = "是否销售给航信" AndAlso e.DataRow("是否销售给航信") = True Then Dim Result As DialogResult Result = MessageBox.Show("销售客户确认为航信?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.NO Then MessageBox.Show("销售客户不是航信.","提示") e.Cancel = True '取消编辑 e.DataRow("是否销售给航信") = False End If If Result = DialogResult.YES Then Dim fdr As DataRow = DataTables("航信台账").Find("来自id = '" & e.DataRow("_Identify") & "'") If fdr Is Nothing Then fdr = DataTables("航信台账").AddNew End If Dim nma() As String = {"品种","中文品名","荒料编号","测算表号","采购成本含税","现存仓库","销售日期","航信销售日期","航信销售总额","航信销售客户"} '"JKH荒料"表数据来源列 Dim nmb() As String = {"品种","品名","荒料编号","测算表号","采购成本","仓库","入库日期","航信销售日期","航信销售总额","航信销售客户"} '"航信台账"表数据接收列 For i As Integer = 0 To nma.Length - 1 fdr(nmb(i)) = e.DataRow(nma(i)) Next fdr("来自id") = e.DataRow("_Identify") MessageBox.Show("本条销售记录已经带入【航信台账】", "提示") End If End If
|