主题：自动复制代码问题

      我想做个按钮，点击后，将A表中第一列所有内容复制到B表中第二列，怎样写代码，请各位老师帮忙。

参考：http://www.foxtable.com/webhelp/scr/0680.htm

 

http://www.foxtable.com/webhelp/scr/1533.htm

 

     麻烦问一下有点蓝老师，我想做一个按钮，把表A的第一列全部复制到第二列，第三列复制到第四列，代码怎么写。

还是看2楼的帮助，用法一样，表名称使用同一个即可，例如

 

Dim f As New  Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "第一列,第三列"  '指定数据来源列
f.DataTable = DataTables("表A") '指定数据接收表
f.DataCols = "第二列,第四列"  '指定数据接收列
f.Append = False
f.Distinct = False
f.Fill() '填充数据

 

谢谢有点蓝老师的帮忙。我再问一下，我在窗口放了一个文件管理器控件，怎么不能用呢，需要什么代码吗。

 

此主题相关图片如下：qq截图20170323141045.png

点增加、目录、打开、删除都没反应。

 

绑定某个表某个列，即可。

谢谢有点色老师帮忙，又有一个问题。在表中合同照片是多文件类型，我想将窗口中文件管理器中选定的文件添加到合同照片列，编写如下代码，但

还有CheckedComboBox控件的内容，也添加不到表中，代码如下：

文件控件绑定的是表，直接取列的值就行啊

 

ndr("合同照片") = Tables("某表").Current("某列")

 

如果需要选中的值，就用selectItem http://www.foxtable.com/webhelp/scr/1899.htm

 

9楼代码没问题。