求现成可用sqlanywhere，即PB自带数据库一下可用的代码,该怎么处理

求现成可用sqlanywhere，即PB自带数据库一下可用的代码
求现成可用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/

探讨
呵呵，eviler好幽默呀，去了xuam给的网页，找不到我想要的东西哦，是不是因为我不会查呢？？

------解决方案--------------------

C/C++ code

//1 粘贴功能 提供一个EXCEL导入数据窗口的函数f_excel,传入参数是datawindow类型的DW名称，其中idw_dw.ImportClipboard(4)实现的就是粘贴（需要剪切板中内容的列数符合DW的列数及数据类型），可以改造一下，在DW的keydown事件下判断CTRL+V然后做粘贴操作。
string path,filename
integer value,result

value = GetFileOpenName("Select File",path,filename,"xls","xls Files (*.xls),*.xls,Text Files (*.TXT),*.TXT,DBF Files (*.DBF),*.DBF")
if value<>1 then return
if 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 if
end 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

求现成可用sqlanywhere，即PB自带数据库一下可用的代码,该怎么处理

相关推荐