[浏览完整版]
标题：怪载!子窗口在命令窗口能打开,在菜单中为何打不开?
1楼
cpayinyuan 发表于：2009/2/11 15:32:00如题,同样的子窗口,在命令窗口用 Forms("业务员任务").open可以打开,但在菜单中用标准按钮却打不开,怎么回事!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工资系统.table |
[此贴子已经被作者于2009-2-11 15:36:17编辑过]
2楼
菜鸟foxtable 发表于：2009/2/11 15:35:00forms("业务员任务").Open()
后面增加()试试看?
后面增加()试试看?
3楼
cpayinyuan 发表于：2009/2/11 15:39:00以下是引用菜鸟foxtable在2009-2-11 15:35:00的发言：
forms("业务员任务").Open()
后面增加()试试看?
forms("业务员任务").Open()
后面增加()试试看?
试过了,没用!
4楼
mr725 发表于：2009/2/11 15:46:00以下是引用cpayinyuan在2009-2-11 15:32:00的发言：
如题,同样的子窗口,在命令窗口用 Forms("业务员任务").open可以打开,但在菜单中用标准按钮却打不开,怎么回事!
如题,同样的子窗口,在命令窗口用 Forms("业务员任务").open可以打开,但在菜单中用标准按钮却打不开,怎么回事!
| 下载信息 [文件大小：492.0 KB 下载次数：1] | |
 点击浏览该文件:工资系统.table |
[此贴子已经被作者于2009-2-11 15:36:17编辑过]
怪栽～！ 我打开你这个文件时提示错误，根本进不去你的系统～～！！
此主题相关图片如下：怪栽.jpg
[此贴子已经被作者于2009-2-11 15:46:51编辑过]
5楼
菜鸟foxtable 发表于：2009/2/11 16:04:00可以啊,只是提示after load有错误..
此主题相关图片如下：001.jpg
此主题相关图片如下：002.jpg
此主题相关图片如下：001.jpg此主题相关图片如下：002.jpg[此贴子已经被作者于2009-2-11 16:06:35编辑过]
6楼
cpayinyuan 发表于：2009/2/11 16:20:00以下是引用菜鸟foxtable在2009-2-11 16:04:00的发言：
可以啊,只是提示after load有错误..
此主题相关图片如下：001.jpg
此主题相关图片如下：002.jpg
可以啊,只是提示after load有错误..
此主题相关图片如下：001.jpg此主题相关图片如下：002.jpg[此贴子已经被作者于2009-2-11 16:06:35编辑过]
还得请贺老师看一下怎么回事,我这儿有好几个窗口都在菜单里打不开,但在命令窗口和按钮事件能正常打开,真怪!
7楼
菜鸟foxtable 发表于：2009/2/11 16:24:00发代码上来一齐研究...
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim drs As List(Of DataRow) = DataTables("大区表").Select("1=1")
For Each dr As DataRow In drs
tv.Nodes.Add( dr("大区"), dr("大区"), "部门.ico")
Next
Vars("rwlb")="基本任务"
'dim rw as string = Vars("rwlb")
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
if Vars("rwlb")="基本任务"
dst.DataTable = DataTables("业务员任务表")
else
dst.DataTable = DataTables("业务员目标任务表")
end if
'dst.Filter="[月份]=" & mt
'dst.ColumnList ="姓名|档案号"
dst.Build()
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim drs As List(Of DataRow) = DataTables("大区表").Select("1=1")
For Each dr As DataRow In drs
tv.Nodes.Add( dr("大区"), dr("大区"), "部门.ico")
Next
Vars("rwlb")="基本任务"
'dim rw as string = Vars("rwlb")
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
if Vars("rwlb")="基本任务"
dst.DataTable = DataTables("业务员任务表")
else
dst.DataTable = DataTables("业务员目标任务表")
end if
'dst.Filter="[月份]=" & mt
'dst.ColumnList ="姓名|档案号"
dst.Build()
8楼
mr725 发表于：2009/2/11 16:27:00以下是引用菜鸟foxtable在2009-2-11 16:04:00的发言：
可以啊,只是提示after load有错误..
........
可以啊,只是提示after load有错误..
........
[此贴子已经被作者于2009-2-11 16:06:35编辑过]
老菜鸟同志，你的运气好，我还是被阻挡在 工资系统.table 之外，无法进入系统！！！！·也没有你的图中的提示～
9楼
菜鸟foxtable 发表于：2009/2/11 16:42:00有没有更新到最新版本?2月10日版.
10楼
狐狸爸爸 发表于：2009/2/11 17:12:00我这里都可以打开。
因为图标不存在，所以打开的时候，下面的代码报错：
tv.Nodes.Add( dr("大区"), dr("大区"), "部门.ico")
因为图标不存在，所以打开的时候，下面的代码报错：
tv.Nodes.Add( dr("大区"), dr("大区"), "部门.ico")