主题：datalist合计的示例(借花献佛)

谢谢

前两天的更新有问题，下载的项目的时候，复制到新的目录再运行。

另外请检查列名称是否正确。

代码问题，检查列名称看看

问题在这里的：

Dim cps As List(Of String) = Da.GetUniqueValues("","" & Vars("ColName") & "")

没有给全局变量colName赋予一个有效的值，自然出错，这个值必须是列名称之一

其实很简单，在关键的代码之前，加上：
Messagebox.Show(Vars("ColName"))

检查一下全局便量ColName是否有值，如果不掌握这些基本的技巧，写代码一旦出错，就很被动。

调试技巧

很多错误只有在运行的时候，才会发现。
虽然对于运行中的错误，系统会明确提示是哪一个对象的哪一个事件发生了错误，以及错误的原因；但是要具体定位是哪一行代码有问题，往往是一件非常艰巨的工作，特别是代码很长，逻辑较为复杂的时候。我们可以在代码段中插入MessageBox.show(x)，将代码分割成多段，x是一个数字，例如：

代码段一
MessageBox.Show(1)
代码段二
MessageBox.Show(2)
代码段三
MessageBox.Show(3)
代码段四
MessageBox.Show(4)
代码段五
MessageBox.Show(5)
...

这样每执行一段代码，就提示一个数字，在上面的例子中，如果提示2后发生了错误，那么说明问题发生在第三段代码，这样我们就可以重点分析该段代码了。

此外，在调试代码的时候，我们还可以利用MessageBox来显示关键变量或数据，这对于分析错误原因，会有很大的帮助。


调试结束后，删除所有用于调试的MessageBox语句即可。

MessageBox语句如果出现在一些特定的事件中，可能会导致死循环，例如表事件PrepareEdit，那么如何来进行调试呢？可以参考下面的例子：

代码段一
If ModifierKey = Keys.Control Then
    MessageBox.Show(1)
End If
代码段二
If ModifierKey = Keys.Control Then
    MessageBox.Show(2)
End If

这样只有始终按下Ctrl键，才会执行MessageBox语句，松开Ctrl键，就回到正常状态，从而避免死循环的出现。

需要注意的是，代码是前后关联的，有的时候某处代码执行时发生错误，并不是该处代码有问题，而是前面的代码造成的，例如：

Dim dr As DataRow
dr = DataTables("产品").Find("编号 = '03'") '找出编号为03的产品
dr("单价") = 0.1

如果产品表中不存在编号为03的记录，那么上面的代码执行到第三行：

dr("单价") = 0.1

将出现错误提示，但是显然该行代码本身并没有问题，我们需要的是应该加上判断语句：

Dim dr As DataRow
dr = DataTables("产品").Find("编号 = '03'") '找出编号为03的产品
If dr IsNot Nothing Then '如果找到的话
    dr("单价") = 0.1
End If

不用研究了，下次更新，可以直接在窗口插入任何表。
这样DataList就完全是一个鸡肋了。

呵呵，如果是模式窗口，已经有这个事件啊：BeforeClose

那就给表增加一个双击列头排序的功能