回 帖 发 新 帖 刷新版面

主题:grid中的按钮代码问题!

这是关于grid中的按钮代码
&& 另存数据
IF NOT EMPTY(thisform.TableName)
 LOCAL cFileName
 IF RECCOUNT(thisform.TableName)>0
    cFileName=PUTFILE("文件名:",thisform.TableName,"dbf")
    IF NOT EMPTY(cFileName)
     COPY TO (cFileName)
    ENDIF
 ENDIF
ENDIF
添加
&& append
IF NOT EMPTY(thisform.Tablename)
 APPEND BLANK IN (thisform.TableName)
 thisform.DataChange=.t.
 thisform.DataGrid.Refresh()
 thisform.datagrid.SetFocus()   && 鼠标焦点跳至表格对象内
ENDIF

1、其中thisform.TableName中的TableName是指的什么名称,是grid的Name还是其他的,我没搞明白?
2、在添加按钮中的thisform.datagrid.SetFocus()   && 鼠标焦点跳至表格对象内
是指当前鼠标点击或者记录指针的位置吗?
3、请帮我加上详细的注释
谢谢!!!

回复列表 (共2个回复)

沙发

1、 TableName是THISFORM自定义的属性
2、thisform.datagrid.SetFocus() 是 thisform.datagrid 获得焦点

板凳

请问我要执行这2段代码需要自己填些什么才能生效?

我来回复

您尚未登录,请登录后再回复。点此登录或注册