主题：快捷右键增加的行不能执行如下的DataRowAdding命令呢,按钮增加是可以的

 Dim gc As String = Tables("入库单列表").Current("入库编号")

Dim cmd As New SQLCommand

cmd.C

cmd.CommandText = "Select 供应商编码,供应商简称,入库单号,入库日期,签收人,录入人,录入日期,入库编号 Fro m {入库单列表} Where 入库编号 = '"& gc & "'"

Dim Values = cmd.ExecuteValues

If Values.Count > 0 Then

    e.DataRow("供应商编码") = Values("供应商编码")

    e.DataRow("供应商简称") = Values("供应商简称")

    e.DataRow("入库单号") = Values("入库单号")

    e.DataRow("入库日期") = Values("入库日期")

    e.DataRow("签收人") = Values("签收人")

    e.DataRow("录入人") = Values("录入人")

    e.DataRow("录入日期") = Values("录入日期")

    e.DataRow("入库编号") = Values("入库编号")

End If

菜单代码是系统默认的:

此主题相关图片如下：菜单代码.png