共28 条记录, 每页显示 10 条, 页签: [1][2] [3]

标题：[求助]求问窗口中的按扭控件如何实现插入文件？

21楼

kylin 发表于：2008/10/7 15:55:00

补19楼，刚才居然上传没有成功。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

22楼

t_fs 发表于：2008/10/8 6:00:00

谢谢大家的帮助！

23楼

t_fs 发表于：2008/10/8 6:20:00

用下列代码可以实现一半的功能了，剩下的选择的文件名及路径如何保存在当前行的”评价报告“中了。求问一下将 dlg.ShowDialog 结果保存在当前行的单元格中的公式，如何写？直接赋值不知可否？有了类似易表中的SetCellText函数就可以了。谢谢各位帮忙！

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If

24楼

贺老六 发表于：2008/10/8 8:53:00

以下是引用t_fs在2008-10-8 6:20:00的发言：
用下列代码可以实现一半的功能了，剩下的选择的文件名及路径如何保存在当前行的”评价报告“中了。求问一下将 dlg.ShowDialog 结果保存在当前行的单元格中的公式，如何写？直接赋值不知可否？有了类似易表中的SetCellText函数就可以了。谢谢各位帮忙！

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If

其实不是foxtable难学，而是你根本没有学，否则接触foxtable一个月了，不会提出这样的问题的。

tables("表名")(r,c) = "内容"
tables(“表名").Rows(r)(c) = "内容"

r是整数，表示行号，c可以是整数(列位置)，也可以是字符(列名称)

再说一次：磨刀不误砍材工，心急吃不得热豆腐。

[此贴子已经被作者于2008-10-8 8:53:15编辑过]

25楼

t_fs 发表于：2008/10/8 10:22:00

谢谢！
如果不知道行号，而是当前行当前列如何表示呢？

26楼

狐狸爸爸 发表于：2008/10/8 10:29:00

更简单，给当前行、当前单元格设置值：

Tables("表名").Value = "值"

27楼

狐狸爸爸 发表于：2008/10/8 10:31:00

其实真正开发系统的时候，foxtable比易表简单很多，前提是你已经开始静心学习。
例如这个value属性，帮助讲得非常的详细。

[此贴子已经被作者于2008-10-8 10:32:48编辑过]

28楼

t_fs 发表于：2008/10/8 16:24:00

谢谢！

我是急用后学，边学边用。查找帮助时按功能查找，总是无从下手，找不到位置。

共28 条记录, 每页显示 10 条, 页签: [1][2] [3]