求现成可用sqlanywhere，即PB自带数据库环境下可用的代码，谢谢大侠了！！（小女子初学，实在不懂如何写代码，研究了很久，还是不会，于是就求救了，嘻嘻。。。。。）
以下问题各自独立！
1、如何在数据窗口使用粘贴功能
2、如何将数据库表里的列排序
3、如何设置外键，使得动态建立的数据库表里的某列里的数据显示到动态建立的数据窗口中
4、如何检测数据库表是否存在，存在跳转至窗口1，不存在跳转窗口2
以上问题解决一个20分，嘻嘻。。。。
在线求解！！
------解决方案--------------------
http://www.hur.cn
------解决方案--------------------
看成解决一个问题20块了
分变成悬赏了，呵呵
------解决方案--------------------
来抢20块。。。
第二个问题知道 ：
要先用setsort(string) 设置排序条件再用 sort() 执行排序。
其中的 string 是排序的条件，写法如：
string ls_sort = '列1名称 A, 列2名称 D'
dw.setsort(ls_sort)
dw.sort()
//即可以完成用 列1 升序，列2 降序的方法排序。
------解决方案--------------------
http://www.hur.cn/soft/pb/
------解决方案--------------------
- C/C++ code
//1 粘贴功能 提供一个EXCEL导入数据窗口的函数f_excel,传入参数是datawindow类型的DW名称，其中idw_dw.ImportClipboard(4)实现的就是粘贴（需要剪切板中内容的列数符合DW的列数及数据类型），可以改造一下，在DW的keydown事件下判断CTRL+V然后做粘贴操作。string path,filenameinteger value,resultvalue = GetFileOpenName("Select File",path,filename,"xls","xls Files (*.xls),*.xls,Text Files (*.TXT),*.TXT,DBF Files (*.DBF),*.DBF")if value<>1 then returnif right(path,3)='xls' or right(path,3)='XLS' then OLEObject ObjExcel ObjExcel = CREATE OLEObject result = ObjExcel.ConnectToNewObject( "excel.application") if result <> 0 then messagebox("信息提示","连接EXCEL失败，请检查计算机中是否安装了EXCEL!") Return else ObjExcel.Workbooks.Open(path) //ls_rj是文件的路径 string ls_copy int i if ObjExcel.ActiveSheet.Cells.Copy = true then ObjExcel.Application.Visible = false idw_dw.SetTransObject(SQLCA) i = idw_dw.ImportClipboard(4) //[b]将系统剪切版上的内容粘贴到数据窗口中,其中4为起始行参数[/b] Clipboard("") //清空剪切版上的内容 ObjExcel.Quit() ObjExcel.DisconnectObject() //断开与OLE的连接 Destroy ObjExcel else messagebox("提示","您的EXCEL不支持此功能，请检查EXCEL版本，建议使用OFFICE-EXCEL") end ifend if elseif right(path,3)='txt' or right(path,3)='TXT' then idw_dw.importfile(path,2)elseif right(path,3)='dbf' or right(path,3)='DBF' then idw_dw.importfile(path,1)end if