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

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

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

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

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

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

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

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

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

另外：：：：

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

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