主题：以前易表的出纳簿，我改不过来，请大家帮忙~！

按你的顺序，回答如下，不对的地方请狐友指教：

还没有改好的功能：
1.关联起来就可以呀～
2.用户及权根
  1)自动锁定,这个在帮助中找找，不难！
  2)参见帮助中的权限；
3.有点工作量，看帮助，或一条一条问吧，太多了费时～你分开来问，会有人回答的

4.关于流水帐表的行的验证.

'1)要求各列都要录入数据(借,贷只能录入一项,不能同时都录入)判断借、贷是否符合要求:::::::::::::::::
'在Currentchanged事件中:其他参照吧～
if currenttable.current.isnull("借") andalso currenttable.current.isnull("贷") then
 MessageBox.Show("借贷必须有一方已填写了金额!", "提示") 
end if

'2)在借方增加时,必须录入piao据号码. 放在'在startEdit事件中（要指定列名哟）
if e.Col.Name  = "借" then
if currenttable.current.isnull("piao据号码")  then
 MessageBox.Show("请填写piao据号码!", "提示")
e.cancel = true
sendkeys.send("{left}")
end if
end if

'3)录入的piao据号码,必须是已经在piao据登记表中登记的piao据.  流水帐： 

   用列表项目吧，不复杂的 且允许手工录入＝false ::piao据号码的列属性 禁止重复＝true

' 4)piao据登记表的总编号,必须在piao据统计表中登记后才可用.
    也关联起来吧 :::且允许手工录入＝false ::

'5.增加一个报表,内容和流水帐表相当,要有过次页及分页小计借贷金额及piao据份数功能.
   这个比较难些，请教高手吧～～～

另外：：：：

'给piao据登记表 打勾::流水帐中的:::afteredit:::::::
if e.Col.Name  = "复核" then
Dim ph As DataRow = DataTables("piao据登记").Find("[piao据号码]  = '" & currenttable.current("piao据号码") & "'")
if currenttable.current("复核") = true then
 ph("入帐") = true
else
 ph("入帐") = false
end if
end if

'计算记帐piao据分数:::::::::::::::::::::::::::
Dim Sum As string
With CurrentTable
    Sum = CurrentTable.compute("count(piao据号码)")
 End With