IF This.AcceptText() = 1 THEN
// 計算修改和刪除的筆數
ll_mod = This.ModifiedCount( )
ll_del = This.DeletedCount( )
ll_total = ll_mod + ll_del
// 檢查資料是否有異動,判斷是否存檔成功
IF ll_total >= 1 AND This.Update(TRUE, FALSE) > 0 THEN
COMMIT USING SQLCA;
This.ResetUpdate()
This.Object.DataWindow.ReadOnly="Yes"
//**** 存檔成功 (ib_save=True) ****//
ib_save = true
ELSE
ROLLBACK USING SQLCA;
//**** 存檔失敗 (ib_save=False) ****//
ib_save = false
MessageBox("存檔失敗!!", "存檔失敗 , 請重新確認資料是否有更新!",StopSign!)
END IF

在插入按钮的下面。写了dw_1.ScrollToRow(dw_1.insertRow(0))
cb_insert.TriggerEvent(Clicked!)


在保存按妞下面写了： dw_1.accepttext()
if dw_1.modifiedcount() + dw_1.deletedcount() > 0 then
if dw_1.update()=1 then //如果修改成功
commit ; //提交事务
messagebox('提示','数据保存成功！')
else
rollback ; //回滚事务
messagebox('提示','数据保存错误。', stopsign!)
end if
else
messagebox('提示','数据没有修改过，没有必要保存！',stopsign!)
end if


在窗口的OPEN事件中写了：
dw_1.SetTransObject(SQLCA) //设置事务对象
dw_1.Retrieve() //检索数据

if Lower(gs_userid) <> 'tssa' then //不是超级用户
cb_insert.Enabled = False //不允许新建用户
cb_delete.Enabled = False //不允许删除用户
cb_pri.Enabled = False //不允许为用户分配权限
dw_1.SetFilter("userid='" + gs_userid + "'") //只显示当前用户。
dw_1.Filter()
end if


在数据窗口的 rowfocuschanged下写了：

this.SelectRow(0,False)
This.SelectRow(CurrentRow,True)

在数据窗口的 losefocus事件下写了：
this.accepttext()
当然。删除。权限。关闭按妞的代码就没有写上来了。

在插入按钮的下面。写了dw_1.ScrollToRow(dw_1.insertRow(0))
cb_insert.TriggerEvent(Clicked!)

上面两句应该是在CB_INSERT控件下的CLICKED事件的脚本吧，但为什么最后一句又要执行一次呢？



在保存按妞下面写了： dw_1.accepttext()
if dw_1.modifiedcount() + dw_1.deletedcount() > 0 then
if dw_1.update()=1 then //如果修改成功
commit ; //提交事务
messagebox('提示','数据保存成功！')
else
rollback ; //回滚事务
messagebox('提示','数据保存错误。', stopsign!)
end if
else
messagebox('提示','数据没有修改过，没有必要保存！',stopsign!)
end if
上面代码看起来没有什么问题

在插入按钮的下面。写了dw_1.ScrollToRow(dw_1.insertRow(0))
cb_insert.TriggerEvent(Clicked!)

上面两句应该是在CB_INSERT控件下的CLICKED事件的脚本吧，但为什么最后一句又要执行一次呢

是在cb_insert下面写的。至于这一句是多余的cb_insert.TriggerEvent(Clicked!)一但触发了。它会一直插入。直到程序没有反应 。可我吧这句去掉了，还是不行 。关于这个问题还没有其他方面的原因吗？我实在不知道怎么弄了！

检查DW有没有更新能力
是否未 设DW更新属性

这些具体是那些呢。我实在是找不到了！

打开DW，在ROWS菜单下有个UPDATE。。。。。。

非常感谢！终于可以了。这个属性我上次改了。但是改错了。后来一直以为是代码的事。可没想到。。。。。。。