Dim r As dialogresult
messagebox.show("没有锁定,是否锁定?","注意",messageboxbuttons.yesnocancel,messageboxicon.warning)
If r=dialogresult.yes Then
messagebox.show("已锁定")
Else
    messagebox.show("不锁定")
End If

在命令窗口输入以上代码，无论点击“是”、“否”及“取消”按钮，弹出的对话框都是“不锁定”

请教专家，这是为什么？

该怎么办？

果然是少些了一个等于号。非常感谢！

现在还有一个问题：

我在一个销售日志表中用代码生成了一个订单号，我想在订单号生成的同时，立即自动打开订单表，并且在订单表的订单号列生成此订单号。请问代码该怎么写？我只学到“表事件”。有劳了！

我现在想：

1、当销售日志生成订单号后自动切换到销售单，并在销售单的最后一行自动填入订单号、导购员和客户名称的内容，光标标定于产品条码，输入条码后，标定于数量，确认后标定于下一行的产品条码。

2、订单号不同的行显示不同的颜色。

3、销售单状态列如果显示的是“结束”，则输入金额后，自动统计订单号的总金额。

4、在销售单中，如果取消列为“true”，则在订单号相同的情况下，

     删除倒数第一行

     解锁倒数第二行

为配合学习我做了一个学习项目，可能漏洞百出，望不吝赐教。

从开始学习以来，你给了我很大的帮助，希望以后有机会好好谢谢你！

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

点击浏览该文件:学习作业.table

我希望看到谁在什么时候修改了姓名，于是在afteredit事件中编写了如下代码：

If e.Col.Name = "姓名" Then
    e.Row("修改记录") = User.Name & Date.Now
End If

但是，这样在修改记录中显示的只是最近一次的信息。

我需要一个列表,罗列出关于姓名的所有修改记录，最好还能包含历次的修改值。

请问该怎么办？有劳！

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

点击浏览该文件:作业.table

If e.DataRow("审核") = False Then  \'未审核通过的行

    If e.DataRow.Locked  = False \'如果此行目前未锁定,也就是准备锁定此行    ***

        Messagebox.show("不能锁定未审核通过的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

        e.Cancel = True

    End If

ElseIf e.DataRow("审核") = True Then \'已经审核通过的行

   If e.DataRow.Locked  = True \'如果此行已锁定,也就是准备取消锁定此行  ***

        If User.Group <> "经理" Then

            Messagebox.show("只有经理才能解锁已经审核通过的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

            e.Cancel = True

        End If

    End If

End If

以上这段代码是我从帮助文件 表事件/DataRowLockedChanging中复制的，用***标明的语句 if 之后没有跟 then ，不明白为什么，能讲讲吗？

没有then,是手误，漏掉的。

有没有then，都可以运行，但是建议有then

If e.DataCol.Name = "折扣" Then
    If e.NewValue > 0.1 Then
        Dim pr As DataRow = e.DataRow.GetParentRow("订单")
        If pr IsNot Nothing Then         ***
            If pr("客户等级") <> "VIP" Then
                MessageBox.show("非VIP客户的折扣不能超过10%", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                e.Cancel = True
            End If
        End If
    End If
End If

不明白***为什么一定要判断pr是否为nothing