0

我在 9 月份问了一个类似的问题（嗯，相同，老实说），但由于某种原因，该问题的解决方案在我最近的事件中不起作用......

我UltraGrid现在用于输入订单中每一行的付款日期，并有一CheckBox列将其标记为已付款。为每个订单行付款后，订单将进入下一阶段。

无论如何，当我创建的测试订单被标记为已交付并达到当前阶段（第 5 阶段 - 等待客户付款）时，我最初能够编辑CheckBox每个订单行上的付款日期和列。

但是，如果我将一个标记为已付款，而将另一个留空然后保存，则会出现以下问题。

我进入订单将下一行标记为已付款。我可以输入付款日期，但不能设置CheckBox为True。事实上，在单步执行之后，单元格甚至没有进入EditMode，因为CellChange事件没有被触发。

下面的代码CellChange应该允许在输入日期后将CheckBox单元格设置为True- 但是，它没有进入编辑模式。

谁能明白为什么会这样？

 Try
        If e.Cell.Column.Key = "PaymentDate" Then
            e.Cell.Row.Cells("Customer_Paid").Activation = Activation.AllowEdit
            e.Cell.Row.Cells("Customer_Paid").IsInEditMode = True
        End If
    Catch ex As Exception
        errorLog(ex)
    End Try

    Try
        If e.Cell.Column.ToString = "Customer_Paid" Then
            Dim customerPaid As Boolean = Boolean.Parse(e.Cell.Text)

            If customerPaid = True Then
                If IsDBNull(ugProducts.ActiveRow.Cells("PaymentDate").Value) Then
                    MsgBox("Please enter a payment date", MsgBoxStyle.OkOnly, "Invalid Date")
                    e.Cell.Row.Cells("Customer_Paid").Value = False
                    ugProducts.ActiveRow.Appearance.BackColor = Color.White
                    ugProducts.ActiveRow.Cells("PaymentDate").Value = DBNull.Value
                Else
                    ugProducts.ActiveRow.Appearance.BackColor = Color.LightGreen
                    ugProducts.ActiveRow.Cells("Product_Price_Per").Appearance.BackColor = Color.LightGreen
                End If

                e.Cell.Row.Update()

            Else
                ugProducts.ActiveRow.Appearance.BackColor = Color.White
                ugProducts.ActiveRow.Cells("Product_Price_Per").Appearance.BackColor = Color.LightGreen
                ugProducts.ActiveRow.Cells("PaymentDate").Value = DBNull.Value
                Exit Sub
            End If
        Else

        End If

    Catch ex As Exception
        errorLog(ex)

    End Try

没有错误，只是没有进入EditMode状态。

上一个案例的解决方案是使用Boolean.Parse我这次添加的行，但这次没有成功。

4

1 回答 1

0

不是解决问题本身，而是我解决它的一种方法......

我将PaymentDate条目从 allow更改EditMode为仅设置CheckBoxto True。

然而，最终用户可能不希望这样做，所以问题可能仍然没有答案，但就目前而言，这是可行的。

If e.Cell.Column.Key = "PaymentDate" Then
   e.Cell.Row.Cells("Customer_Paid").Activation = Activation.AllowEdit
   e.Cell.Row.Cells("Customer_Paid").Value = True
End If
于 2017-01-11T09:47:55.350 回答